none
alterar o nome do computador no windows 2000 RRS feed

  • Pergunta

  • Boa tarde,

     

    Fiz um script para alterar o nome do computador via AD.

     

    o Script é este.

     

    Const Pwd = "password"
    Const Username = "administrador"

    Set wmi = GetObject("Winmgmts:root\cimv2")


    For Each objComputer in wmi.InstancesOf("Win32_ComputerSystem")

           erro = objComputer.rename(NewNomePC,Password,User)
          
           If erro <> 0 Then
             LogNumber = 1
             WScript.Echo (Now & " Não foi possivel trocar o nome do Terminal...")
           Else
              WScript.Echo (Now & " Troca de Nome de Terminal Feita.. Reiniciar... s.f.f.")
           End If

    Next
     

    Esta a funcionar perfeitamente no Windows Xp, já no windows 200 não esta a funcionar. Sabem indicar me outra forma de mudar o nome do computador que funione no w2k.

     

    Obrigado desde já

     

    quarta-feira, 4 de junho de 2008 21:26