Cambiar IP,NETMASK y Puerta de enlace por script.
Alguna vez os habéis encontrado en la tesitura de necesitar cambiar estos datos en un ordenador al iniciar en un dominio o simplemente para que un amigo los cambie por los datos correctos o similar? Pues con el siguiente script podréis hacerlo fácilmente, es muy sencillo y va en VBScript.
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
ip = Array("192.168.1.2")
mascara = Array("255.255.255.0")
gw = Array("192.168.1.1")
gwmetric = Array(1)
dns = Array("192.168.1.20", "212.145.4.98")
For Each objNetAdapter in colNetAdapters
errip = objNetAdapter.EnableStatic(ip, mascara)
errgw = objNetAdapter.SetGateways(gw, gwmetric)
errdns = objNetAdapter.SetDNSServerSearchOrder(dns)
Next
If (errip = 0) AND (errgw = 0) AND (errdns = 0) Then
WScript.Echo "El script se ejecuto correctamente, asignacion completada"
Else
WScript.Echo "Error"
End If
Ahora solo queda copiarlo pegarlo en un archivo de texto, cambiar los valores entre comillas por los deseados y cambiarle la extensión a .vbs y listo!
Comentarios