none
Renomear via VBS (Ajuda) RRS feed

  • Pergunta

  • Eu tenho um vbs que serve para renomear maquinas, só que eu gostaria que ao inves de ficar editando o script para mudar o hostname, eu gostaria de saber se tem como fazer um script onde depois de executado abrir um caixa de dialogo pedindo para colocar o hostname desejado e depois ele executa e muda o host, tem como???
    Segue o script que tenho:

     

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

    Set colComputers = objWMIService.ExecQuery _
        ("Select * from Win32_ComputerSystem")

    For Each objComputer in colComputers
        err = objComputer.Rename("teste1")
    Next

     

    Obrigado.

    sábado, 9 de fevereiro de 2008 13:53

Respostas

  • Andre fica assim:

    Ncomputer = Inputbox("Novo nome da máquina:")

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

    Set colComputers = objWMIService.ExecQuery _
        ("Select * from Win32_ComputerSystem")

    For Each objComputer in colComputers
        err = objComputer.Rename(Ncomputer)
    Next

    sábado, 9 de fevereiro de 2008 23:00