Boa tarde.
Vi alguns dias atras um vbs que altera e adiciona o computador a um domínio, queria que alguém me ajudasse, com a seguinte questão:
Nesse mesmo código queria adicionar uma descrição, porem a mesma sempre será igual ao hostname, alguém consegui criar isso, acredito que com uma variável pois a descrição sempre será igual ao host.
Name = InputBox("Digite o nome que o computador receberá.","Rename")
Password = "senha"
Username = "usuário"
Set objWMIService = GetObject("Winmgmts:root\cimv2")
For Each objComputer in _
objWMIService.InstancesOf("Win32_ComputerSystem")
Return = objComputer.rename(Name,Password,User)
If Return <> 0 Then
WScript.Echo "Falha! Erro = " & Err.Number
Else
WScript.Echo "Sucesso!" & " Reinicie o computador para que a modificação tenha efeito"
End If
Next
DomainName = InputBox("Digite o nome do dominio em que o computador será inserido","Dominio")
DomainPassword = "senha"
DomainUsername = "usuário"
Set objWMIService = GetObject("Winmgmts:root\cimv2")
For Each objComputer in _
objWMIService.InstancesOf("Win32_ComputerSystem")
Return = objComputer.JoinDomainOrWorkgroup(DomainName,DomainPassword,DomainUsername)
If Return <> 0 Then
WScript.Echo "Falha! Erro = " & Err.Number
Else
WScript.Echo "Sucesso!" & " Reinicie o computador para que a modificação tenha efeito"
End If
Next
Obrigado
