>>532
全行載せます。

Dim oShell
Set oShell = WScript.CreateObject ("WSCript.shell")

Set objSF = oShell.SpecialFolders

'oShell.run "cmd /C notepad.exe C:\Documents and Settings\Administrator\デスクトップ\a.txt"
oShell.run "cmd /C notepad.exe " & oShell.ExpandEnvironmentStrings("%HOMEPATH%") & "\デスクトップ\a.txt"

'WScript.Echo objSF.Item("Desktop")

Set oShell = Nothing