[エクスプローラを開く]

初期表示を C:\Temp にして、エクスプローラを開きます。

【ソースコード】

[tips0126.vbs]
Option Explicit
On Error Resume Next

Dim strFolderName   ' フォルダ名
Dim objShell        ' Shell オブジェクト

strFolderName = "C:\Temp"

Set objShell = WScript.CreateObject("Shell.Application")
If Err.Number = 0 Then
    objShell.Explore strFolderName
    WScript.Echo strFolderName & " を開きました。"
Else
    WScript.Echo "エラー: " & Err.Description
End If

Set objShell = Nothing

【実行結果】

C:\> cscript //NoLogo tips0126.vbs
C:\Temp を開きました。