1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
|
Вариант точный
Тусклое objNetwork, strDomainName, strComputer
Тусклое strRemoteAdminUser, strRemoteAdminPass, strAdminUser, strAdminPass, boolPinged
Тусклое objShell, strCommand, intReturn
Тусклое objFSO, objInput, objLog, strInput, strLogFile
Const intForReading = 1
Установите objNetwork = CreateObject («WScript.Network»)
Установите objShell = CreateObject («WScript.Shell»)
'strDomainName = objNetwork.UserDomain
strInput = InputBox («впишите имя архива для того чтобы прочитать имена компьютера от: », «входной файл», «computers.txt»)
strLogFile = InputBox («впишите имя архива для того чтобы записать результаты: », «архив журнала», «log.txt»)
'strComputer = InputBox («впишите имя компьютера или адрес IP: », «компьютер», «YOURREMOTEPC»)
strRemoteAdminUser = InputBox («впишите типа счета местного администратора для» & strComputer & «: », «учет потребителя Admin на» & strComputer, «администратор»)
strRemoteAdminPass = InputBox («впишите местный пароль для» & strComputer & «\» & strRemoteAdminUser & «: », «местный пароль Admin»)
strDomainName = InputBox («впишите имя домена для того чтобы добавить компьютеры к: », «имя», «domain.com» домена)
strAdminUser = InputBox («впишите домен определите» & strDomainName & «для того чтобы соединить компьютер к домену с: », «учет потребителя Admin домена», «администратор»)
strAdminPass = InputBox («впишите пароль для» & strDomainName & «\» & strAdminUser & «: », «пароль потребителя Admin домена»)
Установите objFSO = CreateObject («Scripting.FileSystemObject»)
Установите objLog = objFSO.CreateTextFile (strLogFile, поистине)
objLog.WriteLine «добавляют дистанционные компьютеры к домену: » & strDomainName & «- начатый сценарий» & теперь
Установите objInput = objFSO.OpenTextFile (strInput, intForReading, ложный)
Пока не objInput.AtEndOfStream
strComputer = objInput.ReadLine
я boolPinged = Пинг (strComputer)
Если boolPinged = True после этого
'ЕСЛИ ПЕРВОЕ КОМАНДОВАНИЕ ТЕРПИТ НЕУДАЧУ, ТО ПОПЫТКА USING ВТОРОЕ КОМАНДОВАНИЕ, КОТОР НУЖНО СОЕДИНИТЬСЯ К ДИСТАНЦИОННОЙ МАШИНЕ С ТОЧНЫМИ ДОКУМЕНТАМИ
'Также, вы можете изменить cmd /k к cmd /c и изменить strCommand objShell.Run, 1, поистине к strCommand objShell.Run, 0, поистине
'спрятать запрос командй, но не использует cmd /k и 0, в противном случае открытый запрос командй останется спрятанным.
strCommand = «NETDOM СОЕДИНЯЕТ» & strComputer & «/Domain: » & strDomainName & «/userD: » & strDomainName & «\» & strAdminUser & «/passwordD: » & strAdminPass & «/userO: » & strRemoteAdminUser & «/passwordO: » & strRemoteAdminPass & «/REBOOT»
'strCommand = «cmd /k NETDOM СОЕДИНЯЕТ» & strComputer & «/Domain: » & strDomainName & «/userD: » & strDomainName & «\» & strAdminUser & «/passwordD: » & strAdminPass & «/REBOOT»
'strCommand = InputBox («подсказка», «название», strCommand)
intReturn = objShell.Run (strCommand, 1, поистине)
Если intReturn = 0 после этого
strComputer objLog.WriteLine & «было соединено к домену, и rebooting.»
Еще
strComputer objLog.WriteLine & «не smogло быть добавлено к домену. Кодий выхода» & intReturn
Закончитесь если
Еще
strComputer objLog.WriteLine & «не smogло быть pinged.»
Закончитесь если
Wend
objInput.Close
objLog.WriteLine «добавляют дистанционные компьютеры к домену: » & strDomainName & «- Script законченный» & теперь
objLog.Close
Сделанное MsgBox «. Пожалуйста см.» & strLogFile
Пинг функции (strComputer)
Тусклое objShell, boolCode
Установите objShell = CreateObject («WScript.Shell»)
boolCode = objShell.Run («Пинг - n 1 - w 300» & strComputer, 0, поистине)
Если boolCode = 0 после этого
Пинг = True
Еще
Пинг = ложно
Закончитесь если
Закончите функцию
|
