How to find User on Console 0

[--J.LO--]

Hi,

i desperately try to find a script or tool that shows the user logged into console 0 of a machine. I'm running an autoit script within a service account so @username will return the user of that account.

i want to know if real (human) user has logged onto the machine and get his name or id..

THX

I suggest this could be an extension for UDF compinfo.au3?

[lod3n]

Try this:

func _getLocalUser($strComputer)
    $objWMIService = ObjGet("winmgmts:{impersonationLevel=impersonate}!\\" & $strComputer & "\root\cimv2")
    if isObj($objWMIService) then
        $colComputer = $objWMIService.ExecQuery ("Select UserName from Win32_ComputerSystem")
        For $objComputer in $colComputer
            return $objComputer.UserName
        Next 
    EndIf
    return 0
EndFunc

Edited October 2, 2006 by lod3n

[herewasplato]

MsgBox(0, "", _getLocalUser("-"))
MsgBox(0, "", @UserName)

Func _getLocalUser($strComputer)
    $objWMIService = ObjGet("winmgmts:{impersonationLevel=impersonate}!\\" & $strComputer & "\root\cimv2")
    If IsObj($objWMIService) Then
        $colComputer = $objWMIService.ExecQuery ("Select UserName from Win32_ComputerSystem")
        For $objComputer In $colComputer
            Return $objComputer.UserName
        Next
    EndIf
    Return 0
EndFunc

I changed your last EndIf to EndFunc.

(I did not test under the OP's conditions.)

[lod3n]

Damn you Scite4AutoIt AutoComplete and my inability to proofread! Thanks, I've fixed the post.

[lod3n]

Might also look at psloggedon from SysInternals.