列出域中所有用户的属性

On Error Resume Next

Const ADS_SCOPE_SUBTREE = 2

Set objConnection = CreateObject("ADODB.Connection")
Set objCommand =   CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection

objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE 

objCommand.CommandText = "SELECT AdsPath FROM 'LDAP://dc=mail,dc=google,dc=com' WHERE objectCategory='user'"  

Set objRecordSet = objCommand.Execute

objRecordSet.MoveFirst

Do Until objRecordSet.EOF
    WScript.Echo "accountExpires : " & objUser.accountExpires
    WScript.Echo "msDS-User-Account-Control-Computed : " & objUser.msDS-User-Account-Control-Computed
    WScript.Echo "aCSPolicyName : " & objUser.aCSPolicyName
    WScript.Echo "msIIS-FTPDir : " & objUser.msIIS-FTPDir
    WScript.Echo "adminCount : " & objUser.adminCount
    WScript.Echo "msIIS-FTPRoot : " & objUser.msIIS-FTPRoot
    WScript.Echo "badPasswordTime : " & objUser.badPasswordTime
    WScript.Echo "mSMQDigests : " & objUser.mSMQDigests
    WScript.Echo "badPwdCount : " & objUser.badPwdCount
    WScript.Echo "mSMQDigestsMig : " & objUser.mSMQDigestsMig
    WScript.Echo "businessCategory : " & objUser.businessCategory
    WScript.Echo "mSMQSignCertificates : " & objUser.mSMQSignCertificates
    WScript.Echo "codePage : " & objUser.codePage
    WScript.Echo "mSMQSignCertificatesMig : " & objUser.mSMQSignCertificatesMig
    WScript.Echo "controlAccessRights : " & objUser.controlAccessRights
    WScript.Echo "msNPAllowDialin : " & objUser.msNPAllowDialin
    WScript.Echo "dBCSPwd : " & objUser.dBCSPwd
    WScript.Echo "msNPCallingStationID : " & objUser.msNPCallingStationID
    WScript.Echo "defaultClassStore : " & objUser.defaultClassStore
    WScript.Echo "msNPSavedCallingStationID : " & objUser.msNPSavedCallingStationID
    WScript.Echo "desktopProfile : " & objUser.desktopProfile
    WScript.Echo "msRADIUSCallbackNumber : " & objUser.msRADIUSCallbackNumber
    WScript.Echo "dynamicLDAPServer : " & objUser.dynamicLDAPServer
    WScript.Echo "msRADIUSFramedIPAddress : " & objUser.msRADIUSFramedIPAddress
    WScript.Echo "groupMembershipSAM : " & objUser.groupMembershipSAM
    WScript.Echo "msRADIUSFramedRoute : " & objUser.msRADIUSFramedRoute
    WScript.Echo "groupPriority : " & objUser.groupPriority
    WScript.Echo "msRADIUSServiceType : " & objUser.msRADIUSServiceType
    WScript.Echo "groupsToIgnore : " & objUser.groupsToIgnore
    WScript.Echo "msRASSavedCallbackNumber : " & objUser.msRASSavedCallbackNumber
    WScript.Echo "homeDirectory : " & objUser.homeDirectory
    WScript.Echo "msRASSavedFramedIPAddress : " & objUser.msRASSavedFramedIPAddress
    WScript.Echo "homeDrive : " & objUser.homeDrive
    WScript.Echo "msRASSavedFramedRoute : " & objUser.msRASSavedFramedRoute
    WScript.Echo "homePhone : " & objUser.homePhone
    WScript.Echo "networkAddress : " & objUser.networkAddress
    WScript.Echo "initials : " & objUser.initials
    WScript.Echo "ntPwdHistory : " & objUser.ntPwdHistory
    WScript.Echo "lastLogoff : " & objUser.lastLogoff
    WScript.Echo "o : " & objUser.o
    WScript.Echo "lastLogon : " & objUser.lastLogon
    WScript.Echo "operatorCount : " & objUser.operatorCount
    WScript.Echo "lastLogonTimestamp : " & objUser.lastLogonTimestamp
    WScript.Echo "otherLoginWorkstations : " & objUser.otherLoginWorkstations
    WScript.Echo "lmPwdHistory : " & objUser.lmPwdHistory
    WScript.Echo "pager : " & objUser.pager
    WScript.Echo "localeID : " & objUser.localeID
    WScript.Echo "preferredOU : " & objUser.preferredOU
    WScript.Echo "lockoutTime : " & objUser.lockoutTime
    WScript.Echo "primaryGroupID : " & objUser.primaryGroupID
    WScript.Echo "logonCount : " & objUser.logonCount
    WScript.Echo "profilePath : " & objUser.profilePath
    WScript.Echo "logonHours : " & objUser.logonHours
    WScript.Echo "pwdLastSet : " & objUser.pwdLastSet
    WScript.Echo "logonWorkstation : " & objUser.logonWorkstation
    WScript.Echo "scriptPath : " & objUser.scriptPath
    WScript.Echo "mail : " & objUser.mail
    WScript.Echo "servicePrincipalName : " & objUser.servicePrincipalName
    WScript.Echo "manager : " & objUser.manager
    WScript.Echo "terminalServer : " & objUser.terminalServer
    WScript.Echo "maxStorage : " & objUser.maxStorage
    WScript.Echo "unicodePwd : " & objUser.unicodePwd
    WScript.Echo "mobile : " & objUser.mobile
    WScript.Echo "userAccountControl : " & objUser.userAccountControl
    WScript.Echo "mS-DS-CreatorSID : " & objUser.mS-DS-CreatorSID
    WScript.Echo "userCertificate : " & objUser.userCertificate
    WScript.Echo "msCOM-UserPartitionSetLink : " & objUser.msCOM-UserPartitionSetLink
    WScript.Echo "userParameters : " & objUser.userParameters
    WScript.Echo "msDRM-IdentityCertificate : " & objUser.msDRM-IdentityCertificate
    WScript.Echo "userPrincipalName : " & objUser.userPrincipalName
    WScript.Echo "msDS-Cached-Membership : " & objUser.msDS-Cached-Membership
    WScript.Echo "userSharedFolder : " & objUser.userSharedFolder
    WScript.Echo "msDS-Cached-Membership-Time-Stamp : " & objUser.msDS-Cached-Membership-Time-Stamp
    WScript.Echo "userSharedFolderOther : " & objUser.userSharedFolderOther
    WScript.Echo "msDS-Site-Affinity : " & objUser.msDS-Site-Affinity
    WScript.Echo "userWorkstations : " & objUser.userWorkstations
Loop

Bookmark this post: