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:
|
Opzione esplicita
objNetwork fioco, strDomainName, strComputer
Lo strRemoteAdminUser fioco, gli strRemoteAdminPass, lo strAdminUser, strAdminPass, boolPinged
objShell fioco, strCommand, intReturn
objFSO fioco, objInput, objLog, strInput, strLogFile
Const che intForReading = 1
Regolare il objNetwork = CreateObject (“WScript.Network„)
Regolare il objShell = CreateObject (“WScript.Shell„)
'strDomainName = objNetwork.UserDomain
strInput = InputBox (“introdurre il nome della lima per leggere i nomi di calcolatore da: „, “archivio di entrata„, “computers.txt„)
strLogFile = InputBox (“introdurre il nome della lima per registrare i risultati: „, “lima di ceppo„, “log.txt„)
'strComputer = InputBox (“entrare nel nome o nel IP address di calcolatore: „, “calcolatore„, “YOURREMOTEPC„)
strRemoteAdminUser = InputBox (“entrare nel nome di cliente del coordinatore locale per„ & nello strComputer & “: „, “cliente di utente di Admin su„ & strComputer, “coordinatore„)
strRemoteAdminPass = InputBox (“digitare la parola d'accesso locale per„ & strComputer & “\„ & strRemoteAdminUser & “: „, “parola d'accesso locale di Admin„)
strDomainName = InputBox (“entrare nel Domain Name per aggiungere i calcolatori a: „, “Domain Name„, “domain.com„)
strAdminUser = InputBox (“entrare nel dominio rappresentano„ & strDomainName & “per unire il calcolatore al dominio con: „, “cliente di utente di Admin di dominio„, “coordinatore„)
strAdminPass = InputBox (“digitare la parola d'accesso per„ & strDomainName & “\„ & strAdminUser & “: „, “parola d'accesso di utente di Admin di dominio„)
Regolare il objFSO = CreateObject (“Scripting.FileSystemObject„)
Regolare il objLog = objFSO.CreateTextFile (strLogFile, allineare)
objLog.WriteLine “aggiungono i calcolatori a distanza al dominio: „ & strDomainName & “- scritto iniziato„ & ora
Regolare il objInput = objFSO.OpenTextFile (strInput, intForReading, falso)
Mentre non objInput.AtEndOfStream
strComputer = objInput.ReadLine
boolPinged = rumore metallico (strComputer)
Se boolPinged = allora allineare
'SE IL PRIMO ORDINE VIENE A MANCARE, PROVA USING IL SECONDO ORDINE COLLEGARSI ALLA MACCHINA A DISTANZA CON LE CREDENZIALI ESPLICITE
'Inoltre, potete cambiare il cmd /k a cmd /c e cambiare lo strCommand di objShell.Run, 1, allineare allo strCommand di objShell.Run, 0, allineare
'nascondere il richiamo di ordine, ma non usa il cmd /k e 0, altrimenti un richiamo di ordine aperto rimarrà nascosto.
lo strCommand = “NETDOM SI UNISCE„ & strComputer & “/Domain: „ & strDomainName & “/userD: „ & strDomainName & “\„ & strAdminUser & “/passwordD: „ & strAdminPass & “/userO: „ & strRemoteAdminUser & “/passwordO: „ & strRemoteAdminPass & “/REBOOT„
'lo strCommand = “cmd /k NETDOM SI UNISCE„ & strComputer & “/Domain: „ & strDomainName & “/userD: „ & strDomainName & “\„ & strAdminUser & “/passwordD: „ & strAdminPass & “/REBOOT„
'strCommand = InputBox (“richiamo„, “titolo„, strCommand)
intReturn = objShell.Run (strCommand, 1, allineare)
Se intReturn = 0 allora
lo strComputer di objLog.WriteLine & “si è unito al dominio e sta ripartendo.„
Altrimenti
lo strComputer di objLog.WriteLine & “non ha potuto aggiungersi al dominio. Codice di uscita„ & intReturn
Concluder se
Altrimenti
lo strComputer di objLog.WriteLine & “non ha potuto essere fatto un rumore metallico.„
Concluder se
Wend
objInput.Close
objLog.WriteLine “aggiungono i calcolatori a distanza al dominio: „ & strDomainName & “- Script finished„ & ora
objLog.Close
MsgBox “fatto. Vedere prego„ & strLogFile
Rumore metallico di funzione (strComputer)
objShell fioco, boolCode
Regolare il objShell = CreateObject (“WScript.Shell„)
boolCode = objShell.Run (“rumore metallico - n 1 - w 300„ & strComputer, 0, allineare)
Se boolCode = 0 allora
Il rumore metallico = allinea
Altrimenti
Rumore metallico = falso
Concluder se
Concludere la funzione
|
