Dim strVSDFileName
Dim objVSDApp

'引数のチェック
If WScript.Arguments.Count <> 1 Then WScript.Quit

'ﾌｧｲﾙ名取得
strVSDFileName = WScript.Arguments(0)

'起動
Set objVSDApp = WScript.CreateObject("Visio.Application")
objVSDApp.Visible = True

'読み取り専用で開く
Call objVSDApp.Documents.OpenEx(strVSDFileName,2)
'  Flags (http://msdn.microsoft.com/library/ja/Jpvssdk11/html/vimthOpenEx.asp)
'visOpenCopy  &H1
'visOpenRO  &H2
'visOpenDocked  &H4
'visOpenDontList  &H8
'visOpenMinimized  &H10
'visOpenRW  &H20
'visOpenHidden  &H40
'visOpenMacrosDisabled  &H80
'visOpenNoWorkspace  &H100

'終了処理
Set objVSDApp = Nothing
WScript.Quit