获取当前系统用户名

运行环境：分辨率：1440×900 色深：32位 操作系统：Windows XP 按键精灵版本：7.00.3730

@兄弟工程师012009/3/19

//获取当前系统用户名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