想通过VB脚本读取域中用户和用户组信息，不知哪位高手做过？

问题已经解决 [打开主题]

本主题的最佳答案为 [ 2 楼].

通过以下vbscript可以很全面的列出一个域下面的用户和相关信息：
Sub ListUsers( strDomain )
        Set objComputer = GetObject("WinNT://" & strDomain )
        objComputer.Filter = Array( "User" )
        For Each objUser In objComputer
                WScript.Echo "Name: " & objUser.Name
                WScript.Echo "Fullname: " & objUser.Fullname
                WScript.Echo "Description: " & objUser.Description
                WScript.Echo "AccountDisabled: " & objUser.AccountDisabled
                WScript.Echo "IsAccountLocked: " & objUser.IsAccountLocked
                WScript.Echo "Profile: " & objUser.Profile
                WScript.Echo "LoginScript: " & objUser.LoginScript
                WScript.Echo "HomeDirectory: " & objUser.HomeDirectory
                WScript.Echo ""
       
        Next
End Sub


' ****************************************************************************
' Main
' ****************************************************************************
Dim strDomain
Do
   strDomain = inputbox( "Please enter a domainname", "Input" )
Loop until strDomain <> ""

ListUsers( strDomain )
'*****************************************************************************

最佳答案

该回答被楼主/管理员列为正解!

多谢，我正在把它转换成CQ下的脚本实现。