[Script] Manipulando a conexão local com VBScript

[marceloleaes]

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

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
Next

Seta-DHCP.vbs

Có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
Next

Prontos, em anexo.

Bom proveito 

[athos.farias]

Olá Marceloleas.

preciso muito de sua ajuda.

eu preciso fazer um script para informar para um cliente de uma rede DHCP, o motivo dele estar sem conexao com a internet através de uma caixinha "TIP" de texto.

O objetivo é proporcionar um meio dos clientes não ficarem tão perdidos quando sua conexão com a internet falhar. Quando não estamos trocando pacotes com a internet, no windows, aquele ponto de exclamação aparece em cima do ícone no systrai, porém, para a maioria dos usuários, essa informação pode não ser precisa para esclarecer  o verdadeiro problema.
Pergunta:
Dá pra fazer um script no WSH ou de outra forma para informar numa caixinha os seguintes eventos?:

*Falha no ip local: ("por favor ligue para xxxxx e espere o téc. ir até a sua sala verificar....")

*Falha no ip externo: (" nosso link de internet está fora do ar, por favor aguarde, estamos trabalhando para soluc...")
Fim da conversa no bate-papo

[marceloleaes]

Eu tenho um que verifica o gateway e depois a conectividade com a internet.. deixa ver se eu encontro aqui...

[marceloleaes]

Encontrei aqui, vê se te atende 

http://itbr.org/forum/scripts/%28script ... da-em-log/

[athos.farias]

Entendi, mas preciso saber outras coisitas, como eu posso entrar em contato fora do forum com vc?

[marceloleaes]

De preferência pelo fórum, até pq se eu não souber te auxiliar alguém mais pode.

[athos.farias]

Ok, então marcelo, ó código está ótimo, o que mais atende o que pretendo até agora!

e ficaria melhor ainda para minha necessidade, se conseguirmos adapta-lo a esse objetivo:

Ao invés de criar um log*txt  de saída. O resultado do teste seria nosso evento De mostrar o texto requisitado, num balãozinho tip, que não necessariamente seria uma TOOLTIP, pois não precisamos passar o mouse em cima de algo para o balao aparecer. Mas ao inves disso, nosso script roda de Tempo em tempo (a definir), e se ele perceber alteração negativa no nosso teste de conexão. ele lança esse balãozinho ali perto do relógio do windows, sendo essa, a grande complexidade creio eu, da missao.


Como começar a pensar nisso?

[athos.farias]

Até agora encontrei isso relacionado:

https://msdn.microsoft.com/pt-br/librar ... -snippet-1

https://msdn.microsoft.com/pt-br/librar ... 90%29.aspx

https://msdn.microsoft.com/pt-br/librar ... 10%29.aspx

[marceloleaes]

Algo assim ou tem que manjar MUITO de vbscript ( se bem que dá muito trabalho ) ou partir para VB mesmo.

Vou ver algo e te aviso.

[athos.farias]

Algo novo até o momento?