Используя WMI, Win32Session - отличное начало. Также следует отметить, что если вы находитесь в сети, вы можете использовать Win32_NetworkLoginProfile для получения всех видов информации.
Set logins = objWMIService.ExecQuery _
("select * from Win32_NetworkLoginProfile")
For Each objSession in logins
Wscript.Echo objSession.LastLogon
Next
Другие сведения, которые вы можете собрать, включают имя пользователя, последний выход из системы, а также различные материалы, связанные с профилем.