Usuário com melhor resposta
Renomear computadores via script

Pergunta
-
Caros amigos,
Mais uma vez, conto com a ajuda dos senhores para resolver este problema.
Preciso de um script para renomear 200 computadores conforme planilha excel disponivel na rede e na descrição do computador apareça o usuário que está logado. vi alguns tópicos, mais nenhum mem atendeu.
Ps. Pode acontecer de 2 máquinas executares o script simultaneamente.
Grato,
Deivid Soares.
Respostas
-
Marcellus,
Agradeço sua ajuda.
O script para alterar a DESCRIÇÃO do micro está perfeito, porém o link que você me indicou eu já havia entrado e não funcionou. Parece que ele não le a planilha com os novos nomes.
Grato.
Deivid.
Somente para acrescentar, não consegui fazer funcionar o script que busca em uma planilha excel o novo nome do computador, conforme link indicado pelo amigo Marcellus. Quando executo o mesmo nada acontece.
Grato pela ajuda.
Deivid.- Marcado como Resposta Deivid Soares quarta-feira, 19 de maio de 2010 14:00
Todas as Respostas
-
Caros amigos,
Mais uma vez, conto com a ajuda dos senhores para resolver este problema.
Preciso de um script para renomear 200 computadores conforme planilha excel disponivel na rede e na descrição do computador apareça o usuário que está logado. vi alguns tópicos, mais nenhum mem atendeu.
Ps. Pode acontecer de 2 máquinas executares o script simultaneamente.
Grato,
Deivid Soares.
Deivid.
Veja o link abaixo. Esse altera o terminal de acordo com uma planilha do excel,
http://social.technet.microsoft.com/Forums/pt-BR/scriptadminpt/thread/8e8af477-0e6c-4dbd-b273-23e21fabecdb
E se caso precise, alteração da descrição é bem simples. Sendo necessário permissão ao usuário. (Insira o final do outro script)
Segue o script...
Const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set objRegistry = GetObject _
("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
Set WshShell = WScript.CreateObject("WScript.Shell")
strKeyPath = "System\CurrentControlSet\Services\lanmanserver\parameters"
strValueName = "srvcomment"
strDescription = WshShell.ExpandEnvironmentStrings("%USERNAME%")
objRegistry.SetStringValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, strDescription
Poste os resultados e se útil classifique!
[]s,
" Qm tem boca vai a roma, meu fogão tem 6 e não saiu da cozinha ainda" -
-
Marcellus,
Agradeço sua ajuda.
O script para alterar a DESCRIÇÃO do micro está perfeito, porém o link que você me indicou eu já havia entrado e não funcionou. Parece que ele não le a planilha com os novos nomes.
Grato.
Deivid.
Somente para acrescentar, não consegui fazer funcionar o script que busca em uma planilha excel o novo nome do computador, conforme link indicado pelo amigo Marcellus. Quando executo o mesmo nada acontece.
Grato pela ajuda.
Deivid.- Marcado como Resposta Deivid Soares quarta-feira, 19 de maio de 2010 14:00