2011 陽明山越野路跑賽

 2011 陽明山越野路跑活動

今天起個大早(03:40)，為了去搭劍潭捷運站的接駁車(04:00~04:50)，上車才知道，從劍潭站到中山樓需要40分鐘左右，還好搭的早，早點到，準備的時間多。

到的時候天還沒亮，欣賞一下日出吧~

但總是很重的硫磺味圍繞在身邊，轉頭一看，是牛奶湖。揮之不去的硫磺味!!

06:00 準時出發..

起點於 【陽明山中山樓停車場】沿途經過 【湖山路陽金公路岔路口】=> 【陽金公路陽管處遊客中心】 =>【中興路口】=>【竹子湖派出所】=>【百拉卡公路岔路口】=>小油坑地質景觀區】=>【竹子山道路風口段】最後再依原線折返回終點【陽明山中山樓停車場】。

沿途風景：小油坑前

轉進竹子山道前

轉進竹子山道後，才出現5KM的標示牌，還好竹子山道很漂亮..

已經7.5KM左右了，折返點在遠處的山頭再轉過去..

9.5KM了，快到折返點了!

小結：這次的難度不低，21KM 耗時2H32M。

Lotus Notes connector for Microsoft Online meeting 沒有講的事

使用Notes Client 連到Lync Server做預約會議室時，一般都參考MS 提供的Lotus Notes Connector ，它已經設計好 Notes 範本資料庫（7.X/8.X)及 for HttpRequest的web site 元件（conference/livemeeting）
http://archive.msdn.microsoft.com/LotusNotesConnector

其中沒有講到的幾件事：
1. 建構Web Site時，Authorization 需設為[Basic Authorization]並取消[Anonymouse]及[windows authorization]
2. 8.5.1 版本的Notes Template，其中MSOCSBodyDXL 內的Page已經指名Notes Client的使用版本，如果版本不符，於匯入會議室資訊到Calendar 時，會出現 "DXL importer operation failed" 的錯誤訊息。

如何用Logon Script 來更正Office 的 使用者 user name

用Ghost 出來的OS，其Office 使用者為預設值，如果多人開啟同一份File Server的文件時，最常預到的是出現"唯讀"現象，想要要求使用者關閉，確不知是何人最先開啟。

解決辦法是：要求Office使用者設定"使用者"資訊。
Office 2003 : 工具 => 選項 => 一般 => 使用者名稱
Office 2010 : 檔案 => 選項 => 一般 => 使用者名稱

如果有人不合作，不變更設定，豈不是就沒輒了 ??

還是可以用Logon Script 強制更正：


前略
.........

' for Office : start
hDefKey = &H80000001  '
' Connect to registry provider on target machine with current user'
Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
' 將User Name 轉換為 16 進制編碼
iValues = AsciiToHex(objUser.cn)
BinaryValueName = "UserName"
arrHexValues = Split(iValues, ",") ' 分離字串為陣列
aOfficeVersions = Array("14.0","12.0","11.0")  ' 設定更新的Office 版本
' find the Office version(s) installed
For Each sOfficeVersion In aOfficeVersions
  sRegKeyPath = "Software\Microsoft\Office\" & sOfficeVersion & "\Common\UserInfo"  ' Register key path
    If oReg.EnumKey(hDefKey, sRegKeyPath , arrSubKeys) = 0 Then ' 判斷是否有子鍵值
        oReg.SetBinaryValue hDefKey,sRegKeyPath ,BinaryValueName,arrHexValues  ' 更新
    End If
Next 
sRegKeyPath = "Software\Microsoft\Office\Common\UserInfo"    ' Office 2010 有 default User name 位置
If oReg.EnumKey(hDefKey, sRegKeyPath , arrSubKeys) = 0 Then
    oReg.SetBinaryValue hDefKey,sRegKeyPath ,BinaryValueName,arrHexValues
End If
'
Function AsciiToHex(sData)
  ' Turns ASCII string sData into array of hex numerics
  Dim i, aTmp
  For i = 1 To Len(sData)
    If i = 1 Then
      aTmp = "&H" & Hex(Asc(Mid(sData, i))) & ",&H00"
    Else
      aTmp = aTmp & ",&H" & Hex(Asc(Mid(sData, i))) & ",&H00"
    End If
  Next
  ASCIItoHex = aTmp & ",&H00,&H00"
End Function
' --- for office end


更強的寫法，四行搞定：
Set objWord = CreateObject("Word.Application")
objWord.UserName = objUser.cn
objWord.UserInitials = Left(objUser.cn, 1) & Left(objUser.SN, 1)
objWord.Quit