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:
|
Opción explícita
objNetwork dévil, strDomainName, strComputer
El strRemoteAdminUser dévil, strRemoteAdminPass, strAdminUser, strAdminPass, boolPinged
objShell dévil, strCommand, intReturn
objFSO dévil, objInput, objLog, strInput, strLogFile
Const intForReading = 1
Fijar el objNetwork = CreateObject (“WScript.Network”)
Fijar el objShell = CreateObject (“WScript.Shell”)
'strDomainName = objNetwork.UserDomain
strInput = InputBox (“incorporar el nombre del archivo para leer nombres de computadora de: ”, “fichero de entrada”, “computers.txt”)
strLogFile = InputBox (“incorporar el nombre del archivo para registrar resultados: ”, “fichero de diario”, “log.txt”)
'strComputer = InputBox (“incorporar el nombre de computadora o el IP address: ”, “computadora”, “YOURREMOTEPC”)
strRemoteAdminUser = InputBox (“incorporar el nombre de cuenta del administrador local para” y el strComputer y “: ”, “cuenta de usuario del Admin en” y strComputer, “administrador”)
strRemoteAdminPass = InputBox (“incorporar la contraseña local para” y strComputer y “\” y strRemoteAdminUser y “: ”, “contraseña local del Admin”)
strDomainName = InputBox (“incorporar el Domain Name para agregar las computadoras a: ”, “Domain Name”, “domain.com”)
strAdminUser = InputBox (“incorporar el dominio explican” y strDomainName y “para ensamblar la computadora al dominio con: ”, “cuenta de usuario del Admin del dominio”, “administrador”)
strAdminPass = InputBox (“incorporar la contraseña para” y strDomainName y “\” y strAdminUser y “: ”, “contraseña de usuario del Admin del dominio”)
Fijar el objFSO = CreateObject (“Scripting.FileSystemObject”)
Fijar el objLog = objFSO.CreateTextFile (strLogFile, verdad)
objLog.WriteLine “agregan las computadoras alejadas al dominio: ” y strDomainName y “- escritura comenzada” y ahora
Fijar el objInput = objFSO.OpenTextFile (strInput, el intForReading, falso)
Mientras que no objInput.AtEndOfStream
strComputer = objInput.ReadLine
boolPinged = silbido de bala (strComputer)
Si boolPinged = entonces verdad
'SI EL PRIMER COMANDO FALLA, INTENTO USAR EL SEGUNDO COMANDO DE CONECTAR CON LA MÁQUINA REMOTA CON CREDENCIALES EXPLÍCITAS
'También, usted puede cambiar el cmd /k al cmd /c y cambiar el strCommand de objShell.Run, 1, verdad al strCommand de objShell.Run, 0, verdad
'ocultar el aviso de comando, pero no utiliza el cmd /k y 0, si no un aviso de comando abierto permanecerá ocultado.
el strCommand = “NETDOM ENSAMBLA” y strComputer y “/Domain: ” y strDomainName y “/userD: ” y strDomainName y “\” y strAdminUser y “/passwordD: ” y strAdminPass y “/userO: ” y strRemoteAdminUser y “/passwordO: ” y strRemoteAdminPass y “/REBOOT”
el 'strCommand = “cmd /k NETDOM ENSAMBLA” y strComputer y “/Domain: ” y strDomainName y “/userD: ” y strDomainName y “\” y strAdminUser y “/passwordD: ” y strAdminPass y “/REBOOT”
'strCommand = InputBox (“aviso”, “título”, strCommand)
intReturn = objShell.Run (strCommand, 1, verdades)
Si intReturn = 0 entonces
el strComputer de objLog.WriteLine y “fue ensamblado al dominio, y está reanudando.”
el strComputer de objLog.WriteLine y “no se podía agregar al dominio. Código de salida” y intReturn
Terminar si
el strComputer de objLog.WriteLine y “no se podía silbar como una bala.”
Terminar si
Wend
objInput.Close
objLog.WriteLine “agregan las computadoras alejadas al dominio: ” y strDomainName y “- Script finished” y ahora
objLog.Close
MsgBox “hecho. Ver por favor” y strLogFile
Silbido de bala de la función (strComputer)
objShell dévil, boolCode
Fijar el objShell = CreateObject (“WScript.Shell”)
boolCode = objShell.Run (“silbido de bala - n 1 - w 300” y strComputer, 0, verdades)
Si boolCode = 0 entonces
El silbido de bala = verdad
Silbido de bala = falso
Terminar si
Terminar la función
|
