none
Buscar usuário logado e nome do usuário RRS feed

  • Pergunta

  • Bom dia,

    Estou com o script abaixo que roda em cada máquina fazendo um inventário de softwares, ele grava um arquivo txt em uma pasta com as informações obtidas e dá-se o nome deste arquivo sendo o nome da máquina; estou precisando que o nome do arquivo seja montado pelo nome da máquina + chave usuário + nome do usuário (Como aparece no AD).

    Exemplo: MCR001_USU2354_FERNANDO ASSIS

    Script:

    xxx

    Dim strCompName

    strComputer = "."

     

    Set WshShell = WScript.CreateObject("WScript.Shell")

    Set objWMIService = GetObject("winmgmts:" & _
        "{impersonationLevel=impersonate}!\\" & _
        strComputer & _
        "\root\cimv2")

    Set colSoftware = objWMIService.ExecQuery _
        ("SELECT * FROM Win32_Product")  


    strCompName = WshShell.ExpandEnvironmentStrings("%COMPUTERNAME%")


    If colSoftware.Count > 0 Then

        Set objFSO = CreateObject("Scripting.FileSystemObject")
        Set objTextFile = objFSO.CreateTextFile( _
            "\\SRV001\DOCUMENTOS$\00_Notícias\Acessos\InventSoftware\" & strCompName & ".txt", True)

        For Each objSoftware in colSoftware
            objTextFile.WriteLine objSoftware.Caption & vbtab & _
            objSoftware.InstallDate
        Next

        objTextFile.Close

    Else
        WScript.Echo "Cannot retrieve software from this computer."

    End If

    xxx

    Conto com a colaboração dos colegas,



    Sds,

    Wagner

     


    Wagner
    quarta-feira, 6 de maio de 2009 12:07

Respostas

  • Olá,

    Verifique se te atende:

    Set WSHNetwork = WScript.CreateObject("WScript.Network")
    Dominio = WSHNetwork.UserDomain
    Usuario = WSHNetwork.UserName
    Computador = WSHNetwork.ComputerName
    Set UserObj = GetObject("WinNT://" & Dominio & "/" & Usuario)
    nomeUsuario = UserObj.Fullname

    wscript.echo "Computador: " & Computador
    wscript.echo "Dominio: " & Dominio
    wscript.echo "Usuario: " & Usuario
    wscript.echo "Nome Completo : " & nomeUsuario

    Poste os resultados.

    Até mais,

    Jesiel

    Obs.: Se útil, classifique
    • Marcado como Resposta Wagner_Rede quarta-feira, 6 de maio de 2009 16:27
    quarta-feira, 6 de maio de 2009 13:55

Todas as Respostas

  • Olá,

    O username você pode usar as linhas abaixo:

    Set WSHNetwork = WScript.CreateObject("WScript.Network")
    usuario = WSHNetwork.UserName

    A chave, eu não entendi muito bem... qual campo seria??? é o SID do usuário???

    Até mais,

    Jesiel

    Obs.: Se útil, classifique
    quarta-feira, 6 de maio de 2009 12:50
  • Obrigado,

    Seria aquele usuário que colocamos para logar onde pede-se Usuário e Senha.

    Wagner
    quarta-feira, 6 de maio de 2009 13:33
  • Olá,

    Verifique se te atende:

    Set WSHNetwork = WScript.CreateObject("WScript.Network")
    Dominio = WSHNetwork.UserDomain
    Usuario = WSHNetwork.UserName
    Computador = WSHNetwork.ComputerName
    Set UserObj = GetObject("WinNT://" & Dominio & "/" & Usuario)
    nomeUsuario = UserObj.Fullname

    wscript.echo "Computador: " & Computador
    wscript.echo "Dominio: " & Dominio
    wscript.echo "Usuario: " & Usuario
    wscript.echo "Nome Completo : " & nomeUsuario

    Poste os resultados.

    Até mais,

    Jesiel

    Obs.: Se útil, classifique
    • Marcado como Resposta Wagner_Rede quarta-feira, 6 de maio de 2009 16:27
    quarta-feira, 6 de maio de 2009 13:55
  • obrigado, funcionou blz.
    Wagner
    quarta-feira, 6 de maio de 2009 16:29