для uestudio

G100m 12.12.2005 17:01

Dim objArgs, objSh, s, cmd

Set objArgs = WScript.Arguments
Set objSh = CreateObject("WScript.Shell")
s = Mid( objArgs(0), 8 )
cmd = "uestudio.exe " & s

errReturn = objSh.Run (cmd, 1, false)