1. //获取当前系统用户名1
2. 开始VBScript块
3.     Set bag = GetObject("winmgmts:\\.\root\cimv2")
4.     Set coc = bag.ExecQuery("Select * from Win32_ComputerSystem")
5.     循环 Each objcomputer in coc 遍
6.         a=objcomputer.username
7.         next
8.     结束VBScript块
9.     弹出窗口 a
10.     //获取当前系统用户名2
11.     Set WshNetwork = CreateObject("WScript.Network")
12.     弹出窗口 "你的域名是: " & WshNetwork.UserDomain
13.     弹出窗口 "你的计算机系统名称是:" & WshNetwork.ComputerName
14.     弹出窗口 "你是:" & WshNetwork.UserName