Форум компании Смарт-Софт

<br>'Объявляем массив со списокм ГУИД групп<br>Dim MyArray(10)<br>MyArray(0) = "{A1372C6B-FEC5-48A7-9970-2B5F81659FED}"<br>MyArray(1) = "{FEWFWEB-FEC5-48A7-9970-2B5F81659FED}"<br>MyArray(2) = "{GEWGWE3-FEC5-48A7-9970-2B5F81659FED}"<br>

<br>' MorF(c) icq 332277202<br><br>Set Args = WScript.Arguments.Unnamed<br>If Args.Count &lt;&gt; 3 Then<br>&nbsp;&nbsp;&nbsp; WScript.Echo "??? usage: cscript.exe restart.vbs AdmID AdmPass NewPass /sn:ServerName"<br>&nbsp;&nbsp;&nbsp; WScript.Quit<br>End If<br><br>AdmID = Args(0)<br>AdmPass = Args(1)<br>NewPass = Args(2)<br>'Объявляем массив со списокм ГУИД групп<br>Dim MyArray(10)<br>MyArray(0) = "{A1372C6B-FEC5-48A7-9970-2B5F81659FED}"<br><br><br>If WScript.Arguments.Named.Exists("sn") Then<br>&nbsp;&nbsp;&nbsp; ServName = WScript.Arguments.Named.Item("sn")<br>&nbsp;&nbsp;&nbsp; Set Srv = CreateObject("TrafInsp.TrafInspAdmin", ServName)<br>Else<br>&nbsp;&nbsp;&nbsp; Set Srv = CreateObject("TrafInsp.TrafInspAdmin")<br>End If<br>Set Perm = Srv.QueryPermissions()<br>LogOn = Perm.DoSharedLogon(AdmID, AdmPass, "Script")<br><br><br>Set Dom = WScript.CreateObject("Msxml2.DOMDocument.4.0")<br>itUser = 3<br>conf_AttrLevelDetail = 5<br>Dom.loadXML Srv.GetList(itUser, null, null, conf_AttrLevelDetail)<br>Set DocEl = Dom.DocumentElement<br><br>Set Nodes = DocEl.selectNodes("UserItem")<br>If Nodes.Length &gt; 0 Then<br>&nbsp;&nbsp;&nbsp; For Each Node in Nodes<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Guid = Node.getAttribute("GUID")<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; Tar = Node.getAttribute("Group")<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For i = LBound(MyArray, 1) To UBound(MyArray, 1)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; if MyArray(i) = Tar Then<br> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; Set Dom1 = WScript.CreateObject("Msxml2.DOMDocument.4.0")<br> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;Dom1.loadXML "&lt;UserList /&gt;"<br> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; Set Root = Dom1.DocumentElement<br> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; With Root.AppendChild(Dom1.CreateElement("UserItem"))<br> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp; .setAttribute "GUID", Node.getAttribute("GUID")<br> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp; .setAttribute "Password", NewPass<br> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp; '.setAttribute "_Restart_", -1<br> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp; '.setAttribute "_RestartKeepBalance_", -1<br> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp; .setAttribute "AdminNote", "Сменен пароль"<br> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; End With<br> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;WScript.Echo "Клиенту " &amp; Node.getAttribute("DisplayName") &amp; " сменен пароль на "&amp;NewPass&amp;""<br> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;  &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp; &nbsp;&nbsp;&nbsp; <br> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;Srv.UpdateList itUser, Dom1.xml<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; End If<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; Next<br>&nbsp;&nbsp;&nbsp;&nbsp; Next<br><br>Else<br>&nbsp;&nbsp;&nbsp; WScript.Echo "Нет данных"<br>End If<br><br>Function ToDigit(StrTD)<br>&nbsp;&nbsp;&nbsp; If StrTD = "" Then<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ToDigit = 0<br>&nbsp;&nbsp;&nbsp; Else<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If Not IsNumeric(StrTD) Then<br> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; ToDigit = Replace(StrTD, ".", Mid(1 / 2, 2, 1))<br> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; ToDigit = ToDigit + 0<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<br> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; ToDigit = StrTD<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br>&nbsp;&nbsp;&nbsp; End If<br>End Function<br><br><br>