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 |
|
