Function fn_LoggedOn(strComputer)
REM ==========================================================
REM Fonction qui cherche la personne loguée sur un PC distant
REM ==========================================================
On Error Resume Next
Dim objWMIService, objComputer, colComputer
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colComputer = objWMIService.ExecQuery _
("Select * from Win32_ComputerSystem")
For Each objComputer In colComputer
WScript.Echo "User Name = " & objComputer.UserName _
& vbNewLine & "Computer Name = " & objComputer.Name
'WScript.Echo objComputer.UserName
fn_LoggedOn = objComputer.UserName
Next
Loguer Time & " " & String(Len(strComputer), " ") & " " & "LoggedOn terminé." & vbCrLf
End Function