YNY
Full Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Const JOIN_DOMAIN = 1 Const ACCT_CREATE = 2 Const ACCT_DELETE = 4 Const WIN9X_UPGRADE = 16 Const DOMAIN_JOIN_IF_JOINED = 32 Const JOIN_UNSECURE = 64 Const MACHINE_PASSWORD_PASSED = 128 ' в небезопасном режиме цепляет только хост Const DEFERRED_SPN_SET = 256 Const INSTALL_INVOCATION = 262144 Set objExplorer = WScript.CreateObject("InternetExplorer.Application") objExplorer.Navigate "http://10.10.10.10/ip.php" '"about:blank" ' objExplorer.ToolBar = 0 objExplorer.StatusBar = 0 objExplorer.Width=300 objExplorer.Height = 150 objExplorer.Left = 0 objExplorer.Top = 0 objExplorer.Visible = 1 'objExplorer Set objDoc = objExplorer.Document.Body '"This information is displayed in a separate window." 'objDoc.InnerHTML = strHTML ' objExplorer.Visible = True 'msgbox objDoc.InnerHTML & vbcrlf & objDoc.innerText Dim toshluz Dim toshluzF toshluz=trim(Mid(Cstr(objDoc.innerText),instr(Cstr(objDoc.innerText),"с:")+2)) toshluzF=Mid(toshluz,1,instrrev(toshluz,".",-1,1)) & "1" 'msgbox toshluzF objExplorer.Quit 'закрываем браузер strDomain = toshluzF ' -- имя домена или рабочей группы (типа *.*.*.1) 'strPassword = "ls4k5ywA" ' -- указать или NULL 'strUser = "shenalan" ' -- указать или NULL Set objNetwork = CreateObject("WScript.Network") strComputer = objNetwork.ComputerName Set objComputer = _ GetObject("winmgmts:{impersonationLevel=Impersonate}!\\" & _ strComputer & "\root\cimv2:Win32_ComputerSystem.Name='" _ & strComputer & "'") '***меняем группу на toshluzF ReturnValue = objComputer.JoinDomainOrWorkGroup(strDomain, _ NULL, _ NULL, _ NULL) ' если не указать JOIN_DOMAIN + ACCT_CREATE, т.е последнюю переменную, то вводит в РГ ' перезагружаем комп через t секунд дабы изменения вступили в силу (работает точно если по ярлыку кликать) Set WshShell = WScript.CreateObject("WScript.Shell") rezult=WshShell.Run ("cmd /c shutdown -r -t 5") | Всего записей: 476 | Зарегистр. 18-05-2006 | Отправлено: 14:50 25-11-2010 | Исправлено: YNY, 09:35 26-11-2010 |
|