导出加入域的计算机脚本

通过下边脚本可以把当前加入域某OU下的计算机导出到“计算机列表.csv ”文件中，导出的计算机信息包括机器名,dNSHostName,最后登录时间等属性。

' Define constants
' CONST ForReading                    = 1    
CONST  ForWriting                     =   2     
CONST  ForAppending                     =   8  
CONST  CONST_ERROR                    =   0
CONST  CONST_WSCRIPT                  =   1
CONST  CONST_CSCRIPT                  =   2
CONST  CONST_SHOW_USAGE               =   3
CONST  CONST_LIST                     =   4
Const  ADS_SCOPE_SUBTREE                 =   2
Const  ADS_UF_DONT_EXPIRE_PASSWD         =   65536
Const  ADS_UF_PASSWORD_EXPIRED         =   8388608  
Const  E_ADS_PROPERTY_NOT_FOUND   =   & h8000500D
Const  ONE_HUNDRED_NANOSECOND     =  . 000000100
Const  SECONDS_IN_DAY             =   86400

Dim  lastLogin
' ''''''''''''''''''''''''
Set  objShell  =   CreateObject ( " Wscript.Shell " )
lngBiasKey  =  objShell.RegRead( " HKLM\System\CurrentControlSet\Control\ "  _
     &   " TimeZoneInformation\ActiveTimeBias " )
If  ( UCase ( TypeName (lngBiasKey))  =   " LONG " )  Then
    lngBias  =  lngBiasKey
ElseIf  ( UCase ( TypeName (lngBiasKey))  =   " VARIANT() " )  Then
    lngBias  =   0
     For  k  =   0   To   UBound (lngBiasKey)
        lngBias  =  lngBias  +  (lngBiasKey(k)  *   256 ^ k)
     Next
End   If
Set  objShell  =   Nothing

' ''''''''''''''''''''''''

inputOU = inputbox ( " 请输入所需查询计算机的OU,该OU必须位于Machines的下一层,不输入为查询所有计算机 " , " 输入信息 " )
Outputfile =  strDCName1  &   " 计算机列表 "
Set  FSO  =   CreateObject ( " Scripting.FileSystemObject " )
Set  fLog  =  fso.OpenTextFile(Outputfile  &  inputOU  &   " .csv " , ForWriting, TRUE )
fLog.WriteLine  " 机器名,dNSHostName,最后登录时间 "

Set  rootDSE  =   GetObject ( " LDAP://rootDSE " )
BaseDN  =  rootDSE.Get( " defaultNamingContext " )
DC =   replace (BaseDN, " DC= " , " , " )
DC =   replace (DC, " ,, " , " . " )
DC = right (DC, len (DC) - 1 )

TARGET_OU =   " Machines "

if  inputOU <> ""   then
    TARGET_OU =  inputOU  &   " ,OU= "   &  TARGET_OU
end   if

inputdate = 0        

Set  objConnection  =   CreateObject ( " ADODB.Connection " )

objConnection.Provider  =   " ADsDSOObject "  
objConnection.Open  " Active Directory Provider "
Set  objCommand  =   CreateObject ( " ADODB.Command " )
Set  objCommand.ActiveConnection  =  objConnection
Set  objCommand1  =   CreateObject ( " ADODB.Command " )
Set  objCommand1.ActiveConnection  =  objConnection
' on error resume next
 
    objCommand.CommandText  =   " <LDAP:// "   &  DC  &   " /OU= "   &  TARGET_OU  &   " , "   &  BaseDN  &   " >;(&(objectclass=Computer));cn,ADsPath;subtree "
     Set  objRecordSet  =  objCommand.Execute
     if  err.number <> 0   then  
         msgbox   " 无法找到: "   &  TARGET_OU 
     end   if
    wscript.echo  " Begin: "
     If  objRecordSet.RecordCount > 0   Then
        objRecordSet.MoveFirst
         Do  Until objRecordSet.EOF                    
                               
                                     On   Error   Resume   Next
                                    adspath = objRecordSet.Fields( " adspath " )
                                    ShowMSG  adspath
                     Set  objComputer  =   GetObject (adspath)
                    lastName = objComputer.dNSHostName
                                computername = objComputer.Name
                    computername = replace (computername, " CN= " , "" )  
                     Set  objDate  =  objComputer.lastLogonTimeStamp
                                     If  (Err.Number  <>   0 )  Then
                                         On   Error   GoTo   0
                                        dtmDate  =  # 1 / 1 / 1601 #
                                     Else
                                         On   Error   GoTo   0
                                        lngHigh  =  objDate.HighPart
                                        lngLow  =  objDate.LowPart
                                         If  (lngLow  <   0 )  Then
                                            lngHigh  =  lngHigh  +   1
                                         End   If
                                         If  (lngHigh  =   0 )  And  (lngLow  =   0  )  Then
                                            dtmDate  =  # 1 / 1 / 1601 #
                                         Else
                                            dtmDate  =  # 1 / 1 / 1601 #  +  (((lngHigh  *  ( 2   ^   32 )) _
                                                 +  lngLow) / 600000000   -  lngBias) / 1440
                                         End   If
                                     End   If
                                    lastLogin = dtmDate
                                    fLog.WriteLine computername  &   " , "    &  lastName  &   " , "    &  lastLogin
                                     
                                    
            objRecordSet.MoveNext
         Loop
     End   If
 
wscript.echo  " Count: "   &  i 

Sub  ShowMSG(strSubMSG)
    Wscript.Echo  Time   &  vbTab  &  strSubMSG     
end sub

 

转载于:https://www.cnblogs.com/alronzhang/archive/2010/06/09/1754640.html