判断当前用户是否管理员

Set objNetwork = CreateObject("Wscript.Network")
strComputer = objNetwork.ComputerName
Wscript.echo "Computer Name: " & strComputer
strUser= objNetwork.UserName

Wscript.echo "The current User is " & strUser

Set objGroup = GetObject("WinNT://" & strComputer & "/administrators")
For Each objUser in objGroup.Members
 If objUser.Name = strUser Then
  Wscript.Echo strUser & " is a local administrator."
 End If
Next