¿Busca un pequeño programa para completar automáticamente la IP?
¿Puedes ser más específico?
Si desea ingresarlos automáticamente, puede usar la herramienta 2KXP. Después de configurar esto, solo necesita ingresar el número de la máquina y la IP y el nombre de la máquina se escribirán automáticamente.
Si es una máquina diferente, introduce una IP diferente. Primero, necesita la tabla de direcciones IP correspondiente a la dirección MAC y luego complete la IP leyendo la dirección MAC.
Se convierte en lo siguiente:
En caso de error, reanudar siguiente
'Obtenga la dirección física de la tarjeta de red de esta máquina: MacAddress
strComputer = "."
Establecer objWMIService = GetObject("winmgmts:" & "{ impersonationLevel=impersonate }!\\" & strComputer & "\root\cimv2")
Establecer colNicConfigs = objWMIService.ExecQuery _ p>
("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
Para cada objNicConfig en colNicConfigs
Establezca objNic = objWMIService.Get _
("Win32_NetworkAdapter.DeviceID=" amp; objNicConfig.Index)
'Escribe la dirección física de la tarjeta de red de esta máquina en la variable: strMacAddress
strMacAddress = objNic. Dirección MAC
Siguiente
'Leer archivo de configuración
archivos dim, archivo, strReadLine, RowNumber, isFind
isFind=0
Const ForReading = 1
establecer archivos=CreateObject("Scripting.FileSystemObject")
si files.fileexists("config.cfg", ForReading) entonces
set file =files.opentextfile("config.cfg")
else
msgbox("Coloque el archivo de lista MAC (nombre de archivo: config.cfg) en el directorio del programa")
end if
RowNumber = 0
Hacer mientras file.AtEndOfStream lt;gt; True
strReadLine = file.ReadLine
RowNumber = RowNumber 1
Si InStr(strReadLine, strMacAddress) lt;gt; entonces
ComputerConfig = Split(strReadLine, ";" )
isFind=1
Salir Do
Finalizar si
Bucle
Si isFind=1 Entonces
'Modificar dirección IP
strComputer = "."
Establecer objWMIService = GetObject("winmgmts:\\" amp; strComputer amp; "\root
\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
("Seleccione * de Win32_NetworkAdapterConfiguration donde IPEnabled=TRUE")
strIPAddress = Array(ComputerConfig( 2))
strSubnetMask = Array("255.255.255.0")
strGateway = Array(ComputerConfig(3))
strDNS = Array("202.100. 64.68", "202.101.103.55")
strGatewayMetric = Array(1)
Para cada objNetAdapter en colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask )
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
errDNS = objNetAdapter.SetDNSServerSearchOrder(strDNS)
Siguiente
'Modificar Nombre de la máquina
Set WshShell = CreateObject("Wscript.Shell")
Set Fso = CreateObject("SCripting.FileSystemObject")
WshShell.RegWrite "HKLM \SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName\ComputerName", ComputerConfig(0) , "REG_SZ"
WshShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\NV Hostname", ComputerConfig (0), "REG_SZ"
WshShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Hostname", ComputerConfig(0), "REG_SZ"
'Modificar CS-CDKEY
WshShell.RegWrite "HKCU\Software\Valve\CounterStrike\Settings\Key", ComputerConfig(4), "REG_SZ"
WshShell.RegWrite "HKU\S- 1-5-21-839522115-507921405-2146800195-500\Software\Valve\CounterStr
ike\Settings\Key", ComputerConfig(4), "REG_SZ"
WshShell.RegWrite "HKU\S-1-5-21-1085031214-220523388-839522115-500\Software\Valve\CounterStrike\ Configuración\Clave", ComputerConfig(4), "REG_SZ"
WshShell.RegWrite "HKU\S-1-5-21-1614895754-1417001333-839522115-500\Software\Valve\CounterStrike\Settings\ key", ComputerConfig(4), "REG_SZ"
'Borrar elementos de inicio
WshShell.RegDelete"HKLM\Software\Microsoft\Windows\CurrentVersion\Run\AutoConfig"
Establecer Wshell=Nada
strComputer = "."
Establecer objWMIService = GetObject("winmgmts:" _
amp; "{ impersonationLevel= suplantar, (Apagar) }!\\" amp; strComputer amp; "\root\cimv2")
Establecer colOperatingSystems = objWMIService.ExecQuery _
("Seleccionar * de Win32_OperatingSystem" )
Si errEnable = 0 Entonces
'WScript.Echo "¡La configuración de red está completa y entrará en vigor después de reiniciar! ! "
Else
WScript.Echo "Error de configuración"
Fin si
Para cada objOperatingSystem en colOperatingSystems
'ObjOperatingSystem.Reboot()
Siguiente
En caso de error Ir a 0
Else
msgbox("La dirección MAC local está en la lista ¡No se encuentra en el archivo ")
Fin si
También hay un archivo config.cfg con el siguiente contenido:
[ComputerName] [ Dirección Mac] [Dirección IP] [GateWay] [CS:CDKey]
LSDL001;00:11:5B:CF:C8:12;192.168.0.1;192.168.0.254;3245164654063
LSDL002;00: 11:5B:BD:2F:E4;192.168.1.1;192.168.1.254;3385636230783
LSDL003;00:11:5B:B3:F0:86;192.168.2.1;192.168. 2.254;203069816730 2
<p>LSDL004;00:11:5B:C8:C8:E1;192.168.3.1;192.168.3.254;7149496192146
LSDL005;00:11:5B:CF:C6:D9;192.168.4.1; 192.168.4.254;6823878707810
WJY;00:11:11:02:FA:F3;192.168.4.1;192.168.4.254;6823878707810