Active Directory eksort til csv fil

Link: http://www.microsoft.com/technet/scriptcenter/scripts/default.mspx

Jeg har en masse scripting derhjemme, som jeg evt. kan sende dig i aften - hvis du ikke selv kan gennemskue disse...

Ja,det vil jeg meget gerne have, da jeg ikke kan overskue, hvilket af dem jeg skal bruge.

Der er ikke et enkelt herinde du skal bruge... der er flere, men jeg kigger lige på det i aften, når jeg kommer hjem engang! ;-) - medmindre andre kommer med noget, inden da... :-)

Det lyder godt. På forhånd tak. Du får point, når jeg se om jeg kan bruge de.

Script der laver filen writefile.csv:

On Error Resume Next

Dim objFileSystem, objOutputFile
Dim strOutputFile

Const OPEN_FILE_FOR_APPENDING = 8

strOutputFile = "c:\writefile.csv"
Set objFileSystem = CreateObject("Scripting.fileSystemObject")
Set objOutputFile = objFileSystem.OpenTextFile(strOutputFile, OPEN_FILE_FOR_APPENDING)

Set colItems = GetObject _
    ("LDAP://ou=managed users,dc=nwtraders,dc=msft")
colItems.Filter = Array("User")

For Each objItem in colItems
Wscript.Echo objItem.cn
strUserPrincipalName = objItem.Get("userPrincipalName")
strSAMAccountName = objItem.Get("sAMAccountName")
strUserWorkstations = objItem.Get("userWorkstations")
strDisplay = objItem.Get("displayName")
strName = objItem.Get("name")
strGname = objItem.Get("givenName")
strIni = objItem.Get("initials")
strSn = objItem.Get("sn")

objOutputFile.WriteLine strUserPrincipalName _
        & "," & strSAMAccountName _
        & "," & strDisplay _
        & "," & strName _
        & "," & strGname _
        & "," & strSn _
        & "," & strIni
next
objOutputFile.Close

Set objFileSystem = Nothing

WScript.Quit(0)

Og script der læser selvsamme fil, og eks. opdaterer dit AD...

' Sample Usage --

'TestString = "Phyisical, Data, Network, Transport, Application, Session, Presentation"
'FYI - First data field is id=0
Dim objFileSystem, objInputFile
Dim strInputFile, inputData, strData

Const OPEN_FILE_FOR_READING = 1

' generate a filename base on the script name, here readfile.in
strOutputFile = "c:\Writefile2.csv"

Set objFileSystem = CreateObject("Scripting.fileSystemObject")
Set TestString = objFileSystem.OpenTextFile(strOutputFile, OPEN_FILE_FOR_READING)

'------


Private Function CSV_Results(csvstring, fieldID)

    i = 0
    Comma = Array(i)
    result = Array(i)

    Comma(i) = InStr(1, csvstring, ",")

    result(i) = Left(csvstring, Comma(i)-1)
        If InStr(1, result(i), CHR(34)) <> 0 Then
            Qpos1 = InStr(1, csvstring, CHR(34))
            Qpos2 = InStr(Qpos1 +1 , csvstring, CHR(34))
            Comma(i) = InStr(Qpos2 +1, csvstring, ",")
            result(i) = Mid(csvstring, Qpos1+1, Qpos2-Qpos1-1)
        End If


    Do While Comma(i) <> 0
   
        i = i + 1
        ReDim Preserve Comma(i)
        ReDim Preserve result(i)

        Comma(i) = InStr(Comma(i-1)+1, csvstring, ",")
        If Comma(i) <> 0 Then
            result(i) = Mid(csvstring, Comma(i-1)+1, Comma(i) - Comma(i-1) -1 )
            If InStr(1, result(i), CHR(34)) <> 0 Then
                Qpos1 = InStr(Comma(i-1), csvstring, CHR(34))
                Qpos2 = InStr(Qpos1 +1 , csvstring, CHR(34))
                Comma(i) = InStr(Qpos2 +1, csvstring, ",")
                result(i) = Mid(csvstring, Qpos1+1, Qpos2-Qpos1-1)
            End If
       
        End If

    Loop

    strLength = Len(csvstring)
    result(i) = Right(csvstring, strLength - Comma(i-1))
    If InStr(1, result(i), CHR(34)) <> 0 Then
        result(i) = Replace(result(i), CHR(34), "")
    End If

    CSV_Results = result(FieldID)

End Function

Tak for det.