Das folgende Makrobeispiel zeigt, wie man den aktiven Windows User per VBS ermitteln kann.

Version 1 – ExpandEnvironmentStrings

' Heiko Jendreck - personal helpdesk & webdesign
' http://www.phw-jendreck.de
' Version 1.00.043 2010.09.16 HJe
' Aktiven Windows-User per VBS ermitteln
Option Explicit
Dim oWshShell, UserName

set oWshShell = CreateObject("WScript.Shell") 
UserName = oWshShell.ExpandEnvironmentStrings("%UserName%") 
Wscript.Echo UserName

' Wir beenden sauber. :)
WScript.Quit()

Getestet wurde das Script in einer Windows-XP-Umgebung.

Version 2 – WinNTSystemInfo

' Heiko Jendreck - personal helpdesk & webdesign
' http://www.phw-jendreck.de
' 2019.05.15 Vers 1.0
' UserName aufrufen mit WScript.Shell
Option Explicit

' Declaration of variables
Dim objSystemInfo, strUserName

' Create object WinNTSystemInfo
Set objSystemInfo = WScript.CreateObject("WinNTSystemInfo")

' Get active UserName
strUsername = objSystemInfo.UserName

' Print aktive UserName
WScript.Echo "UserName: " & strUserName

' Deallocate used object
Set objSystemInfo = Nothing

' Wir beenden sauber. :)
WScript.Quit()

Getestet wurde das Script mit Windows 10