[Script] Manipulando a conexão local com VBScript
Enviado: 17 Jul 2013 08:19
Seguem dois scripts para manipulação dos parâmetros de configuração da rede local. Conforme os nomes sugerem, a função deles é de setar as informações no Seta-FIXO.vbs e retornar a configuração por DHCP no Seta-DHCP.vbs. Ambos devem ser executados do Administrador no Windows 7/8 ou ter o UAC desabilitado, no XP pode ser executado pelo próprio usuário. Seguem códigos:
Seta-FIXO.vbs
Seta-DHCP.vbs
Prontos, em anexo.
Bom proveito
Seta-FIXO.vbs
Código: Selecionar todos
' =================================================================================================
' Script para setar IP fixo na estação de trabalho
' Por Marcelo Leães - [email protected]
' =================================================================================================
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
' Defina aqui IP, máscara, gateway e servidores DNS a serem utilizados
strIPAddress = Array("192.168.100.100")
strSubnetMask = Array("255.255.255.0")
strGateway = Array("192.168.100.254")
strGatewayMetric = Array(1)
arrDNSServers = Array("8.8.8.8", "8.8.4.4")
For Each objNetAdapter in colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
If errEnable = 0 Then
WScript.Echo "IP configurado com sucesso."
Else
WScript.Echo "Precisa executar como Administrador."
End If
Next
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set Nics = objWMIService.ExecQuery _
("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
For Each Nic In Nics
intSetDNSServers = Nic.SetDNSServerSearchOrder(arrDNSServers)
If intSetDNSServers = 0 Then
WScript.Echo "DNS configurados com sucesso."
Else
WScript.Echo "Precisa executar como Administrador."
End If
NextCódigo: Selecionar todos
' =================================================================================================
' Script para habilitar o DHCP na estação de trabalho
' Por Marcelo Leães - [email protected]
' =================================================================================================
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
For Each objNetAdapter In colNetAdapters
errEnable = objNetAdapter.EnableDHCP()
Next
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetCards = objWMIService.ExecQuery ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
for each objNetCard in colNetCards
arrDNSServers = objNetAdapter.EnableDHCP()
errEnable = objNetCard.SetDNSServerSearchOrder(arrDNSServers)
IF errEnable = 0 then
Wscript.Echo "DHCP habilitado com sucesso."
else
Wscript.Echo "Precisa executar como Administrador."
badstate = 1
end if
NextBom proveito
