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 :
|
Option explicite
Faible objNetwork, strDomainName, strComputer
Le faible strRemoteAdminUser, strRemoteAdminPass, strAdminUser, strAdminPass, boolPinged
Faible objShell, strCommand, intReturn
Faible objFSO, objInput, objLog, strInput, strLogFile
Const intForReading = 1
Placer l'objNetwork = le CreateObject (« WScript.Network »)
Placer l'objShell = le CreateObject (« WScript.Shell »)
'strDomainName = objNetwork.UserDomain
strInput = InputBox (« écrire le nom du dossier pour lire des noms d'ordinateur de : », « dossier d'entrée », « computers.txt »)
strLogFile = InputBox (« écrire le nom du dossier pour enregistrer des résultats : », « fichier de consignation », « log.txt »)
'strComputer = InputBox (« écrire le nom ou l'IP address d'ordinateur : », « ordinateur », « YOURREMOTEPC »)
strRemoteAdminUser = InputBox (« écrire le nom de compte d'administrateur local pour » et le strComputer et « : », « compte d'utilisateur d'Admin sur » et strComputer, « administrateur »)
strRemoteAdminPass = InputBox (« entrer le mot de passe local pour » et strComputer et « \ » et strRemoteAdminUser et « : », « mot de passe local d'Admin »)
strDomainName = InputBox (« écrire le Domain Name pour ajouter des ordinateurs à : », « Domain Name », « domain.com »)
strAdminUser = InputBox (« entrer dans le domaine expliquent » et strDomainName et « pour joindre l'ordinateur au domaine avec : », « compte d'utilisateur d'Admin de domaine », « administrateur »)
strAdminPass = InputBox (« entrer le mot de passe pour » et strDomainName et « \ » et strAdminUser et « : », « mot de passe d'utilisateur d'Admin de domaine »)
Placer l'objFSO = le CreateObject (« Scripting.FileSystemObject »)
Placer l'objLog = l'objFSO.CreateTextFile (strLogFile, vrai)
objLog.WriteLine « ajoutent les ordinateurs à distance au domaine : » et strDomainName et « - manuscrit commencé » et maintenant
Placer l'objInput = l'objFSO.OpenTextFile (strInput, intForReading, faux)
Tandis que pas objInput.AtEndOfStream
strComputer = objInput.ReadLine
boolPinged = cinglement (strComputer)
Si boolPinged = rectifier alors
'SI LA PREMIÈRE COMMANDE ÉCHOUE, ESSAI USING LA DEUXIÈME COMMANDE DE SE RELIER À LA MACHINE DISTANTE AUX QUALIFICATIONS EXPLICITES
'En outre, vous pouvez changer le cmd /k en cmd /c et changer le strCommand d'objShell.Run, 1, vrai en strCommand d'objShell.Run, 0, vrai
'cacher le message de sollicitation de commande, mais n'emploient pas le cmd /k et 0, autrement un message de sollicitation de commande ouvert restera caché.
le strCommand = « NETDOM SE JOIGNENT » et strComputer et « /Domain : » et strDomainName et « /userD : » et strDomainName et « \ » et strAdminUser et « /passwordD : » et strAdminPass et « /userO : » et strRemoteAdminUser et « /passwordO : » et strRemoteAdminPass et « /REBOOT »
le 'strCommand = « cmd /k NETDOM SE JOIGNENT » et strComputer et « /Domain : » et strDomainName et « /userD : » et strDomainName et « \ » et strAdminUser et « /passwordD : » et strAdminPass et « /REBOOT »
'strCommand = InputBox (« message de sollicitation », « titre », strCommand)
intReturn = objShell.Run (strCommand, 1, vrais)
S'intReturn = 0 puis
le strComputer d'objLog.WriteLine et « a été joint au domaine, et recharge. »
Autrement
le strComputer d'objLog.WriteLine et « n'a pas pu être ajouté au domaine. Code de sortie » et intReturn
Finir si
Autrement
le strComputer d'objLog.WriteLine et « n'a pas pu être cinglé. »
Finir si
Wend
objInput.Close
objLog.WriteLine « ajoutent les ordinateurs à distance au domaine : » et strDomainName et « - Script de finition » et maintenant
objLog.Close
MsgBox « fait. Voir svp » et strLogFile
Cinglement de fonction (strComputer)
Faible objShell, boolCode
Placer l'objShell = le CreateObject (« WScript.Shell »)
boolCode = objShell.Run (« cinglement - n 1 - W 300 » et strComputer, 0, vrais)
Si boolCode = 0 puis
Le cinglement = rectifient
Autrement
Cinglement = faux
Finir si
Finir la fonction
|
