[VBS WSH ADSI]

[Muppet]

Dag luitjes,

Ik zoek hulp met het volgende.

Normaal lees ik attributen uit met WSH en ADSI en exporteer die naar een ldf bestandje. Dit gaat allemaal prima en importeren ook weer. Alleen nu wil ik het volgende exporteren "proxyaddresses" en dat gaat niet. Hij geeft een type mismatch. Dit komt omdat dit een lijst is en niet een attribute met 1 waarde maar met 4.

Loop nou een tijd te kloten maar krijg het niet voor elkaar en ik weet ook eigenlijk niet waar ik naar moet zoeken.

code:

Set FileSystem = WScript.CreateObject("Scripting.FileSystemObject")
Set OutPutFile = FileSystem.CreateTextFile("proxyaddresses.ldf", True)

Set oContainer = GetObject("LDAP://server/DC=domein,DC=nl")
EnumerateUsers oContainer

Set oNet = Createobject("Wscript.Network")

Sub EnumerateUsers(oCont)

Dim oObject

For Each oObject In oCont
    Select Case LCase(oObject.Class)
    Case "container" , "organizationalunit"
        EnumerateUsers oObject
    Case "user"
            OutPutFile.WriteLine "dn: " & oObject.distinguishedName
 
            OutPutFile.WriteLine "proxyaddresses: " & oObject.proxyaddresses
            OutPutFile.WriteLine "-"
            OutPutFile.WriteLine
    End Select
Next

End Sub

dit is een klein voorbeeldje wat een beetje de bedoeling is.

Iemand een idee waar ik dit moet zoeken.

oObject.proxyaddresses kan dus niet dit moet anders.

[DigiK-oz]

Probeer eens :


'check if it is an array
proxyaddr = oObject.proxyaddresses
if isarray(proxyaddr) then
for each item in proxyaddr
outputfile.writeline item
next
else
OutPutFile.WriteLine proxyaddr
end if

[Muppet]

Daar hebben we wat aan thnx zo werkt hij, had ik nog niet aan gedacht.

Toppertje