[VBScript] ログオン中のユーザー名を取得する

この記事は2年以上前の投稿になります。
記載された情報が古くなっている可能性がございますので十分ご注意ください。

WMI の Win32_ComputerSystem クラス に UserName というプロパティで現在ログオンしているユーザー名を取得できます。
Windows7(64bit)でも正しく取得できました。

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set objItems = objWMIService.ExecQuery("Select * From Win32_ComputerSystem")

For Each objItem in objItems
    Wscript.Echo objItem.UserName
Next

○注意点
リモートデスクトップでログインしても、認識することができます。
「Virtual PC」や「Hyper-V」では取得に失敗して「null」が返ってきますので、ご注意ください。