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:
|
Opção explícita
objNetwork não ofuscante, strDomainName, strComputer
O strRemoteAdminUser não ofuscante, strRemoteAdminPass, strAdminUser, strAdminPass, boolPinged
objShell não ofuscante, strCommand, intReturn
objFSO não ofuscante, objInput, objLog, strInput, strLogFile
Const que intForReading = 1
Ajustar o objNetwork = o CreateObject (“WScript.Network”)
Ajustar o objShell = o CreateObject (“WScript.Shell”)
'strDomainName = objNetwork.UserDomain
strInput = InputBox (“dar entrada com o nome da lima para ler nomes de computador de: ”, “lima de entrada”, “computers.txt”)
strLogFile = InputBox (“dar entrada com o nome da lima para gravar resultados: ”, “lima de registro”, “log.txt”)
'strComputer = InputBox (“incorporar o nome ou o IP address de computador: ”, “computador”, “YOURREMOTEPC”)
strRemoteAdminUser = InputBox (“incorporar o nome de cliente do administrador local para” & o strComputer & “: ”, “cliente de usuário do Admin em” & strComputer, “administrador”)
strRemoteAdminPass = InputBox (“incorporar a senha local para” & strComputer & “\” & strRemoteAdminUser & “: ”, “senha local do Admin”)
strDomainName = InputBox (“incorporar o Domain Name para adicionar computadores a: ”, “Domain Name”, “domain.com”)
strAdminUser = InputBox (“incorporar o domínio esclarecem” & strDomainName & “para se juntar ao computador ao domínio com: ”, “cliente de usuário do Admin do domínio”, “administrador”)
strAdminPass = InputBox (“incorporar a senha para” & strDomainName & “\” & strAdminUser & “: ”, “senha de usuário do Admin do domínio”)
Ajustar o objFSO = o CreateObject (“Scripting.FileSystemObject”)
Ajustar o objLog = o objFSO.CreateTextFile (strLogFile, verdadeiro)
objLog.WriteLine “adicionam computadores remotos ao domínio: ” & strDomainName & “- certificado começado” & agora
Ajustar o objInput = o objFSO.OpenTextFile (strInput, intForReading, falso)
Quando não objInput.AtEndOfStream
strComputer = objInput.ReadLine
boolPinged = sibilo (strComputer)
Se boolPinged = retificar então
'SE O PRIMEIRO COMANDO FALHA, TENTATIVA USING O SEGUNDO COMANDO CONETAR À MÁQUINA REMOTA COM AS CREDENCIAIS EXPLÍCITAS
'Também, você pode mudar o cmd /k ao cmd /c e mudar o strCommand de objShell.Run, 1, verdadeiro ao strCommand de objShell.Run, 0, verdadeiro
'esconder o alerta de comando, mas não usa o cmd /k e 0, se não um alerta de comando aberto permanecerá escondido.
o strCommand = “NETDOM JUNTA-SE” & strComputer & “/Domain: ” & strDomainName & “/userD: ” & strDomainName & “\” & strAdminUser & “/passwordD: ” & strAdminPass & “/userO: ” & strRemoteAdminUser & “/passwordO: ” & strRemoteAdminPass & “/REBOOT”
'o strCommand = “cmd /k NETDOM JUNTA-SE” & strComputer & “/Domain: ” & strDomainName & “/userD: ” & strDomainName & “\” & strAdminUser & “/passwordD: ” & strAdminPass & “/REBOOT”
'strCommand = InputBox (“alerta”, “título”, strCommand)
intReturn = objShell.Run (strCommand, 1, verdadeiros)
Se intReturn = 0 então
o strComputer de objLog.WriteLine & “foi juntado ao domínio, e está recarregando.”
Mais
o strComputer de objLog.WriteLine & “não podia ser adicionado ao domínio. Código de saída” & intReturn
Terminar se
Mais
o strComputer de objLog.WriteLine & “não podia ser sibilado.”
Terminar se
Wend
objInput.Close
objLog.WriteLine “adicionam computadores remotos ao domínio: ” & strDomainName & “- Script finished” & agora
objLog.Close
MsgBox “feito. Ver por favor” & strLogFile
Sibilo da função (strComputer)
objShell não ofuscante, boolCode
Ajustar o objShell = o CreateObject (“WScript.Shell”)
boolCode = objShell.Run (“sibilo - n 1 - w 300” & strComputer, 0, verdadeiros)
Se boolCode = 0 então
O sibilo = retifica
Mais
Sibilo = falso
Terminar se
Terminar a função
|
