Script: Server 2003 匯出群組成員的user account 資訊至文字檔
指定群組後, 直接查詢群組成員, 並匯出指定的欄位資訊 On ERROR RESUME NEXT Const ADS_Property_Update = 2 Const ADS_SCOPE_SUBTREE = 2 Const ForAppending = 2 y=Year(Now) m=Month(Now) d=Day(Now) s=Second(Now) If (m<10) Then m="0" & m End If If (d<10) Then d="0" & d End If sDate = Y & M & D '================================= Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile _ ("c:\Batch\"&sDate&"-Export_GAL.txt", ForAppending, True) objTextFile.WriteLine "This Log Created at: " & Now()& vbCrLf objTextFile.WriteLine Set objConnection = CreateObject("ADODB.Connection") objConnection.Open "Provider=ADsDSOObject;" Set objCommand = CreateObject("ADODB.Command") ob...