2004/05/17 (月) 22:46:11　 ◆　 ▼　 ◇　 [mirai]
Dim WSHShell, pnir, WSHArguments
Set pnir = CreateObject("Sleipnir.API")
Set WSHArguments = WScript.Arguments
Set WSHShell = WScript.CreateObject("WScript.Shell") 

WSHShell.Run Path
WScript.Sleep 1500

If WSHArguments.length  = 1 Then
  If WSHArguments(0) > 0 Then
    pnir.Navigate WSHArguments(0), URL
  End If
End If

Set pnir = Nothing
Set WSHArguments = Nothing
Set WSHShell = Nothing