导出本机或远程电脑USERS组中的用户
strComputer = "."
Set colGroups = GetObject("WinNT://" & strComputer & "/Users")
'Set bjFSO = CreateObject("Scripting.FileSystemObject")
'Set bjTextFile = objFSO.CreateTextFile("D:\Users.txt")
'Wscript.echo "Object Name: " & colGroups.Name
'Wscript.echo "Object Path: " & colGroups.ADsPath
'Wscript.echo "Object Class: " & colGroups.Class
'Wscript.echo "Object Schema: " & colGroups.Schema
'Wscript.echo "Object Parent: " & colGroups.Parent
For Each objUser In colGroups.Members
'objTextFile.WriteLine objUser.Name
Wscript.echo objUser.Parent&"\"&objUser.Name
'Wscript.echo objUser.Name
Next
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/9932141/viewspace-445545/ ，如需转载，请注明出处，否则将追究法律责任。
