none
Como mudar nome de PC e adicionar descrição do PC RRS feed

Respostas

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 *

    segunda-feira, 23 de julho de 2012 14:23
    Moderador
  • Kernel32,

    Solicitação atendida.


    Fábio de Paula Junior

    terça-feira, 24 de julho de 2012 13:29
    Moderador
  • 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
    quinta-feira, 26 de julho de 2012 20:30
  • 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? 

    blogs.technet.com/b/heyscriptingguy/archive/2005/12/07/how-can-i-change-the-description-for-a-computer.aspx


    Fábio de Paula Junior


    terça-feira, 7 de agosto de 2012 20:41
    Moderador