获取当前系统用户名

获取当前系统用户名

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

@兄弟工程师01 2009/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

获取当前系统用户名》有0个想法

发表回复

您的邮箱地址不会被公开。 必填项已用 * 标注