none
Ativar Netbios sobre TCP/IP no Windows Vista RRS feed

  • Pergunta

  • Senhores, Bom dia

     

           Estou precisando de criar um script para ativar o Netbios sobre TCP/IP no Windows Vista, se puderem me ajudar.

    Obs.: via registro tem que alterar a chave conforme abaixo:

    [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\netbt\Parameters\Interfaces\Tcpip_{0DE6A950-816C-4FB7-8652-D741A0844FE9}]
    "NetbiosOptions"=dword:00000001

    Atenciosamente

     

    Ethewaldo

    segunda-feira, 25 de abril de 2011 13:08

Respostas

  • Olá Ethewaldo,

    Segue o script. Copie e salve como .vbs

    'Inicio Script

    On Error Resume Next

    strcomputer = inputbox("Informe o nome do Computador ou o Endereço IP ")
    if strcomputer = "" then
        wscript.quit
    else

    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

    Set colNetCards = objWMIService.ExecQuery _
        ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")

    For Each objNetCard in colNetCards
        objNetCard.SetTCPIPNetBIOS(1)
    Next
    end if

    'Fim Script

    Qualquer dúvida post para que possamos lhe ajudar.

     

    Se lhe foi útil, vote! Se resolveu marque como resposta!


    Elmo Baraúna, SSA-Ba - FSCTP / MCP / MCDST / MCSA / MCT http://infraestruturaealgomais.blogspot.com
    • Sugerido como Resposta Elmo Baraúna quinta-feira, 5 de maio de 2011 03:53
    • Marcado como Resposta Fábio JrModerator terça-feira, 10 de janeiro de 2012 14:02
    quinta-feira, 5 de maio de 2011 03:52

Todas as Respostas

  • Olá Ethewaldo,

    Segue o script. Copie e salve como .vbs

    'Inicio Script

    On Error Resume Next

    strcomputer = inputbox("Informe o nome do Computador ou o Endereço IP ")
    if strcomputer = "" then
        wscript.quit
    else

    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

    Set colNetCards = objWMIService.ExecQuery _
        ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")

    For Each objNetCard in colNetCards
        objNetCard.SetTCPIPNetBIOS(1)
    Next
    end if

    'Fim Script

    Qualquer dúvida post para que possamos lhe ajudar.

     

    Se lhe foi útil, vote! Se resolveu marque como resposta!


    Elmo Baraúna, SSA-Ba - FSCTP / MCP / MCDST / MCSA / MCT http://infraestruturaealgomais.blogspot.com
    • Sugerido como Resposta Elmo Baraúna quinta-feira, 5 de maio de 2011 03:53
    • Marcado como Resposta Fábio JrModerator terça-feira, 10 de janeiro de 2012 14:02
    quinta-feira, 5 de maio de 2011 03:52
  • Olá Ethewaldo,

    O script atendeu sua necessidade?

    Caso tenha alguma dúvida post para que possamos lhe ajudar.

     

    Se lhe foi útil, Vote! Se resolveu, marque como resposta!


    Elmo Baraúna, SSA-Ba - FSCTP / MCP / MCDST / MCSA / MCT http://infraestruturaealgomais.blogspot.com
    sábado, 14 de maio de 2011 23:40