Уже перепробовал по разному но все равно ругается на строчку с
APIImportDesc(21, Item, file1.txt, outErrorPos, outErrorText)
попробовал даже так
Это чуть переработаный стандартный скрипт "rstcnt.vbs"
Код |
---|
Set Args = WScript.Arguments.Unnamed<br>If Args.Count <> 1 Then<br> WScript.Echo "??? usage: cscript.exe rstcnt.vbs APIPassword /sn:ServerName"<br> WScript.Quit<br>End If<br><br>APIPass = Args(0)<br><br>If WScript.Arguments.Named.Exists("sn") Then<br> ServName = WScript.Arguments.Named.Item("sn")<br> Set Srv = CreateObject("TrafInsp.TrafInspAdmin", ServName)<br>Else<br> Set Srv = CreateObject("TrafInsp.TrafInspAdmin")<br>End If<br>Srv.APILogon(APIPass)<br><br>APIImportDesc(21, Item, file1.txt, outErrorPos, outErrorText) |
Запускал скрипт как из папки скрипт и из других мест, ничего непомогает