Скрипты прокси ТИ 2.0

Выгрузка групп/пользователей/аттрибутов -
------------------------------------------------------
Set Args = WScript.Arguments.Unnamed
If Args.Count <> 2 Then
WScript.Echo "??? usage: cscript.exe unload.vbs AdmID AdmPass /sn:ServerName"
WScript.Quit
End If

AdmID = Args(0)
AdmPass = Args(1)

If WScript.Arguments.Named.Exists("sn") Then
ServName = WScript.Arguments.Named.Item("sn")
Set Srv = CreateObject("TrafInsp.TrafInspAdmin", ServName)
Else
Set Srv = CreateObject("TrafInsp.TrafInspAdmin")
End If

Set Perm = Srv.QueryPermissions()

Result = Perm.DoSharedLogon(AdmID,AdmPass,"Script")
If Result <> 0 Then
WScript.Echo "Logon error !!!"
WScript.Quit
End If

Set UserDom = WScript.CreateObject("Msxml2.DOMDocument.4.0")
UserDom.async = false
UserDom.loadXML(Srv.GetList(3,null,null,5))
UserDom.save("TrafInsp2_Users.xml")
WScript.Quit

------------------------------------------------------

Пример создания одного пользователя

------------------------------------------------------
Set Args = WScript.Arguments.Unnamed
If Args.Count <> 2 Then
WScript.Echo "??? usage: cscript.exe loaduser.vbs AdmID AdmPass /sn:ServerName"
WScript.Quit
End If

AdmID = Args(0)
AdmPass = Args(1)

If WScript.Arguments.Named.Exists("sn") Then
ServName = WScript.Arguments.Named.Item("sn")
Set Srv = CreateObject("TrafInsp.TrafInspAdmin", ServName)
Else
Set Srv = CreateObject("TrafInsp.TrafInspAdmin")
End If

Set Perm = Srv.QueryPermissions()

Result = Perm.DoSharedLogon(AdmID,AdmPass,"Script")
If Result <> 0 Then
WScript.Echo "Logon error !!!"
WScript.Quit
End If

Set UserDom = WScript.CreateObject("Msxml2.DOMDocument.4.0")

UserDom.load("test.xml")

Srv.InsertList 3,null,UserDom.xml

WScript.Quit
------------------------------------------------------
Аттрибуты юзера в test.xml, GIUD и прочие пропишуться по дефолту:


GroupDisplayName="VIP"
UserIPAddr="192.168.0.50" UserMAC="11-11-11-11-11-11"
BillMode="2" BlockReason="0" LogonType="3">

------------------------------------------------------

Дефолтный виндовы админ назначенный в ТИ незахотел логиниться создал в самом ТИ еще одного все ок стало.