使用以下脚本进行计算机帐号的枚举。

' ListAllComputerInfo.vbs
' 在 Active Directory 中枚举计算机帐号
' 陈涛 2008-11-22 12:12:06
' http://msdn.microsoft.com/en-us/library/ms675090(VS.85).aspx
' 根据您的需要修改以下参数
' 如果整个域  strSearchScope="LDAP://DC=zyy,DC=local"
' 如果某个OU  strSearchScope="LDAP://OU=办公室,DC=zyy,DC=local"
'strSearchScope="LDAP://OU=办公室,DC=zyy,DC=local"
strSearchScope="LDAP://DC=zyy,DC=local"
' 输出文件名
strOutPutFile="c:\ADComuterInfo.csv"
' 文件操作
Const ForAppending = 8
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile _
    (strOutPutFile, ForAppending, True)
' 取得域中计算机的信息
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.CommandText = _
    "Select name,adsPath,accountExpires,whenCreated, whenChanged  from '" & strSearchScope & "' " _
        & "where objectClass='user'"  
'objCommand.CommandText = _
'    "Select AdsPath from '" & strSearchScope & "' " _
'        & "where objectClass='computer'"         
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Timeout") = 30 
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE 
objCommand.Properties("Cache Results") = False 
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst
i=0
objTextFile.WriteLine("")
'objTextFile.WriteLine("开始时间:" & now())
objTextFile.WriteLine "name,sAMAccountName,displayname,description,mail,accountExpires"
Do Until objRecordSet.EOF
    i=i+1
 objTextFile.Write(objRecordSet.Fields("Name").Value & ",")
'Set objDate = objRecordSet.accountExpires 
'lngDate = (objDate.HighPart * (2^32)) * objDate.LowPart
  'objTextFile.Write(lngDate & ",")
  
     Set objUser = GetObject(objRecordSet.Fields("AdsPath").Value) 
       objTextFile.Write( objUser.AccountExpirationDate & ",")
       Set objUser = Nothing   
objTextFile.Write(objRecordSet.Fields("whenCreated").Value & ",")
objTextFile.Write(objRecordSet.Fields("whenChanged").Value & ",")
    objTextFile.WriteLine("")
    objRecordSet.MoveNext
Loop
'objTextFile.WriteLine("结束时间:" & Now())
objTextFile.Close
Wscript.Echo "已成功地将 " & i & "条信息写入到 " &  strOutPutFile & "中。"