none
For e Ifs RRS feed

  • Pergunta

  • Amigos,

    Se alguem puder me ajudar, seria de bom grado.
    Favor verificar as synatxes dos for e ifs, está dando erro de complilação.

    On Error Resume Next

    Set loc = CreateObject( "WbemScripting.SWbemLocator" )
    Set WbemServices = loc.ConnectServer( ,"root\cimv2" )
    Set Adapters=WbemServices.ExecQuery( "Select * FROM" & _
    " Win32_NetworkAdapterConfiguration" )
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set colNetCards = objWMIService.ExecQuery _
        ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")

     For Each Adapter in Adapters
      If NOT IsNull( Adapter.IPAddress) Then
       if Left(Adapter.IPAddress(0),10) = "192.168.10" Then
        For Each objNetCard in colNetCards  
         arrDNSServers = Array("192.168.10.3", "192.168.97.145")
         objNetCard.SetDNSServerSearchOrder(arrDNSServers) 
         strPrimaryServer = "192.168.97.145"
         strSecondaryServer = ""
         objNetCard.SetWINSServer strPrimaryServer, strSecondaryServer
       End if
      End If
     Next


    Rodrigo Fontes Tavares - Adm. de Redes UNIMEDSJC - Futuro MCP Exchange 2003
    segunda-feira, 9 de março de 2009 15:43

Respostas

  • Rodrigo

    para cada for , deve ser criado um next

     

     For Each Adapter in Adapters
      If NOT IsNull( Adapter.IPAddress) Then
       if Left(Adapter.IPAddress(0),10) = "192.168.10" Then
        For Each objNetCard in colNetCards  
         arrDNSServers = Array("192.168.10.3", "192.168.97.145")
         objNetCard.SetDNSServerSearchOrder(arrDNSServers) 
         strPrimaryServer = "192.168.97.145"
         strSecondaryServer = ""
         objNetCard.SetWINSServer strPrimaryServer, strSecondaryServer
        Next
       End if
      End If
     Next

    tiago

    segunda-feira, 9 de março de 2009 16:00

Todas as Respostas

  • Rodrigo

    para cada for , deve ser criado um next

     

     For Each Adapter in Adapters
      If NOT IsNull( Adapter.IPAddress) Then
       if Left(Adapter.IPAddress(0),10) = "192.168.10" Then
        For Each objNetCard in colNetCards  
         arrDNSServers = Array("192.168.10.3", "192.168.97.145")
         objNetCard.SetDNSServerSearchOrder(arrDNSServers) 
         strPrimaryServer = "192.168.97.145"
         strSecondaryServer = ""
         objNetCard.SetWINSServer strPrimaryServer, strSecondaryServer
        Next
       End if
      End If
     Next

    tiago

    segunda-feira, 9 de março de 2009 16:00
  • Tiago, exatamente o que eu queria, muito obrigado!!!

    Agora, tenho apenas mais um duvida, voce sabe como chamar uma bat ou um exe dentro do vbs ?
    Rodrigo Fontes Tavares - Adm. de Redes UNIMEDSJC - Futuro MCP Exchange 2003
    segunda-feira, 9 de março de 2009 17:24
  • Olá,

    Utilize os comandos abaixo:


    strComputer = "."
    Set WshShell = WScript.CreateObject("WScript.Shell")
    WshShell.Run("notepad.exe")


    Onde está notepad.exe altere para o caminho do seu executavel.

    Até mais,

    Jesiel

    Obs.: Se útil, classifique
    segunda-feira, 9 de março de 2009 18:50