none
Capturar o nome do servidor e domínio que a estação esta logado RRS feed

  • Pergunta

  • Meu conhecimento de programação e básico, mais preciso alterar um script vbs que me traz um inventario de equipamento, mais nao me da o nome do servidor de AD, e o nome do DOMÍNIO que a estação esta logado.

    Alguém pode me ajudar?

    quarta-feira, 13 de janeiro de 2016 10:04

Respostas

  • Olá Wellington, bom dia.

    Você pode implementar essas linhas abaixo, ele traz as informações que você precisa.

    Set wshShell = CreateObject( "WScript.Shell" )
    'Busca nome do usuario
    strUserName = wshShell.ExpandEnvironmentStrings( "%USERNAME%" )
    WScript.Echo "Nome do usuario: " & strUserName
    'Busca nome do dominio
    strUserDomain = wshShell.ExpandEnvironmentStrings( "%USERDOMAIN%" )
    WScript.Echo "Dominio: " & strUserDomain

    Se precisar de mais ajuda, manda teu script que podemos ajudar a ajustar.

    Se a resposta fornecida nessa thread ajudou na sua solução, não esqueça de marcar como resposta!

    Abraço,
    Gustavo Zimmermann Montesdioca - MTAC, MCT
    Blog: www.gm9.com.br
    quarta-feira, 13 de janeiro de 2016 10:38
  • Wellington,

    Claro, veja abaixo:

    1. Você pode continuar com o bat, mas chamando o script através do wscript, esse processo executa o vbs em modo silencioso em um processo independente. No próprio bat, utilize o @echo off para que não apareça nada na tela do usuário e use a linha cmd.exe /c start /min myfile.bat para iniciar o CMD em modo minimizado, isso evita que o usuário interaja com essa tela.

    2. Para pegar o FQDN do domínio, utilize:

    Set Info = CreateObject("AdSystemInfo")
    GetDomainName = Info.DomainDNSName
    Abraço,
    Gustavo Zimmermann Montesdioca - MTAC, MCT
    Blog: www.gm9.com.br


    • Marcado como Resposta Wellington Delcy quarta-feira, 13 de janeiro de 2016 12:03
    quarta-feira, 13 de janeiro de 2016 11:43

Todas as Respostas

  • Olá Wellington, bom dia.

    Você pode implementar essas linhas abaixo, ele traz as informações que você precisa.

    Set wshShell = CreateObject( "WScript.Shell" )
    'Busca nome do usuario
    strUserName = wshShell.ExpandEnvironmentStrings( "%USERNAME%" )
    WScript.Echo "Nome do usuario: " & strUserName
    'Busca nome do dominio
    strUserDomain = wshShell.ExpandEnvironmentStrings( "%USERDOMAIN%" )
    WScript.Echo "Dominio: " & strUserDomain

    Se precisar de mais ajuda, manda teu script que podemos ajudar a ajustar.

    Se a resposta fornecida nessa thread ajudou na sua solução, não esqueça de marcar como resposta!

    Abraço,
    Gustavo Zimmermann Montesdioca - MTAC, MCT
    Blog: www.gm9.com.br
    quarta-feira, 13 de janeiro de 2016 10:38
  • Nossa funcionou perfeito, obrigado...

    Pode me ajudar com mais essas duvidas?

    1- Estou chamando este script via .bat porem se o usuario fechar o bat o script nao termina, tem como inibir isso ou fazer que o script VBS depois de iniciado termine sua execução mesmo fechando o .bat?

    2 - Como faço para pegar o nome completo do dominio o FQDN, (Ex.: contoso.local), e esta varial %userdomain%?

    quarta-feira, 13 de janeiro de 2016 11:19
  • Wellington,

    Claro, veja abaixo:

    1. Você pode continuar com o bat, mas chamando o script através do wscript, esse processo executa o vbs em modo silencioso em um processo independente. No próprio bat, utilize o @echo off para que não apareça nada na tela do usuário e use a linha cmd.exe /c start /min myfile.bat para iniciar o CMD em modo minimizado, isso evita que o usuário interaja com essa tela.

    2. Para pegar o FQDN do domínio, utilize:

    Set Info = CreateObject("AdSystemInfo")
    GetDomainName = Info.DomainDNSName
    Abraço,
    Gustavo Zimmermann Montesdioca - MTAC, MCT
    Blog: www.gm9.com.br


    • Marcado como Resposta Wellington Delcy quarta-feira, 13 de janeiro de 2016 12:03
    quarta-feira, 13 de janeiro de 2016 11:43