
CODE: [Copy to clipboard]Set aNet = CreateObject("Wscript.Network")
strComputer = aNet.ComputerName
Set aGroup = GetObject("WinNT://" & strComputer &"/Administrators")
aUser = aNet.UserName
For Each aUsers in aGroup.Members
If StrComp(aUsers.Name,aUser,1) = 0 Then Wscript.Echo "管理组成员:"&aUsers.Name
Next
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |