//获取当前系统用户名1
VBSBegin 
    Set bag = GetObject("winmgmts:\\.\root\cimv2")
    Set coc = bag.ExecQuery("Select * from Win32_ComputerSystem")
    For Each objcomputer in coc
    a=objcomputer.username
    next
VBSEnd 
MessageBox a
//获取当前系统用户名2
Set WshNetwork = CreateObject("WScript.Network")
MessageBox "你的域名是: " & WshNetwork.UserDomain
MessageBox "你的计算机系统名称是:" & WshNetwork.ComputerName
MessageBox "你是:" & WshNetwork.UserName