Usuário com melhor resposta
Como mudar nome de PC e adicionar descrição do PC

Pergunta
-
Bom dia.
Kernell, como faço esse processo mas com a descrição do computador tem que ser igual ao host.
Ou seja, como faço para setar a descrição do host?
Obrigado.
Tópico Original
Urgente Nome de maquinas
social.technet.microsoft.com/Forums/pt-BR/scriptadminpt/thread/ceb43715-18bc-4fed-a114-0620a3da45e0
- Dividir Fábio JrModerator segunda-feira, 23 de julho de 2012 15:14 Aberto em tópico já encerrado
- Editado Fábio JrModerator segunda-feira, 23 de julho de 2012 15:16 Observação
Respostas
-
André,
segue o código para alterar a descrição, insira ao final do seu código.
Const HKEY_LOCAL_MACHINE = &H80000002 strComputer = "." Set objRegistry = GetObject _ ("winmgmts:\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "System\CurrentControlSet\Services\lanmanserver\parameters" strValueName = "srvcomment" strDescription = "Description changed programmatically" objRegistry.SetStringValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, strDescription
Ref.:
How Can I Change the Description for a Computer?
Fábio de Paula Junior
- Editado Fábio JrModerator terça-feira, 7 de agosto de 2012 20:42
- Sugerido como Resposta Fábio JrModerator quarta-feira, 8 de agosto de 2012 15:19
- Marcado como Resposta Fábio JrModerator quarta-feira, 8 de agosto de 2012 22:26
Todas as Respostas
-
Bom Dia André,
Esta Tread ja foi fechada.
Vou pedir que abra uma nova pergunta nesta mesma parte do Forum sobre mudar nome de PC e adicionar descrição do PC com mesmo nome.
abs* Ajude a organizar melhor o Fórum, dando Feedback sobre a dúvida solicitada, e marcando como Útil e como Resposta, a postagem dos colaboradores que resolveram o seu caso, ou foram úteis *
-
-
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
- Mesclado Fábio JrModerator sexta-feira, 27 de julho de 2012 03:28 Tópico já aberto pelo mesmo usuário
-
André,
segue o código para alterar a descrição, insira ao final do seu código.
Const HKEY_LOCAL_MACHINE = &H80000002 strComputer = "." Set objRegistry = GetObject _ ("winmgmts:\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "System\CurrentControlSet\Services\lanmanserver\parameters" strValueName = "srvcomment" strDescription = "Description changed programmatically" objRegistry.SetStringValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, strDescription
Ref.:
How Can I Change the Description for a Computer?
Fábio de Paula Junior
- Editado Fábio JrModerator terça-feira, 7 de agosto de 2012 20:42
- Sugerido como Resposta Fábio JrModerator quarta-feira, 8 de agosto de 2012 15:19
- Marcado como Resposta Fábio JrModerator quarta-feira, 8 de agosto de 2012 22:26