[Scripting]Lijst met users en bijbehorende groepen in Excel*

[Bubbob]

Ik ben op zoek naar een mogelijkheid om op basis van een txtfile met user logons names uit te lezen van welke groepen de gebruikers lid zijn en dit naar een txt file weg te schrijven.

Met dsget krijg ik al wel e.e.a. in een txt file.

dsget user "CN=logonnaam,OU=xxxxx,OU=xxx,DC=xxxxxx,DC=xxxxxxx" -desc >test.txt
dsget user "CN=logonnaam,OU=xxxxx,OU=xxx,DC=xxxxxx,DC=xxxxxxx" -memberof >test.txt

Ik wil dit verder in Excel bewerken maar daarvoor wil ik eigenlijk de volgende layout zodat ik dit kan importeren en sorteren/filteren etc:


Naam1,"CN=xxxxxxxxxx,OU=xxxxxxxxx,DC=xxxxxxxx,DC=xxxxxxxxxxx"

Loginnaam1,displayNaam1,"CN=xxxxxxxxxx1,OU=xxxxxxxxx,DC=xxxxxxxx,DC=xxxxxxxxxxx"
Loginnaam1, displayNaam2,"CN=xxxxxxxxxx1,OU=xxxxxxxxx,DC=xxxxxxxx,DC=xxxxxxxxxxx"
Loginnaam2, displayNaam2,"CN=xxxxxxxxxx2,OU=xxxxxxxxx,DC=xxxxxxxx,DC=xxxxxxxxxxx"
Loginnaam3, displayNaam3,"CN=xxxxxxxxxx1,OU=xxxxxxxxx,DC=xxxxxxxx,DC=xxxxxxxxxxx"
etc

Heeft iemand een idee hoe je dit voor elkaar krijgt en met een input lijst met loginnamen kunt werken? Of wellicht in VBS o.i.d.

Dank.

Gr

[sanfranjake]

CSVDE geeft een csv-outputfile waar je waarschijnlijk wel uit kan halen wat je wil, of eventueel met een macrootje formatten?

[alt-92]

VBScript:

strGroup = InputBox("geef de groep op die uitgezocht moet worden","groep opgeven")
if strGroup = "" Then
    Wscript.Quit
    Else

   set fso = createobject("Scripting.FileSystemObject")
   set logfile = fso.createtextfile("c:\temp\" & strGroup &"_groupmembers.txt", True)
   
   
   
   Set objGroup = GetObject _
       ("LDAP://cn=" & strGroup & ", ou=Security Groups, dc=domain, dc=net")
   
   For Each strUser in objGroup.Member
       Set objMember = GetObject("LDAP://" & strUser)
     
       logfile.writeline objMember.CN & "|" & objMember.sAMAccountName & "|" &_
 strGroup & "|" & objMember.Class & "|" & objMember.distinguishedName
   Next

End If

MsgBox "Klaar!"

Maar wat heb je zelf al uitgezocht met betrekking tot VBscript?

http://www.microsoft.com/technet/scriptcenter/default.mspx is een goede startplek.

[ Voor 4% gewijzigd door alt-92 op 13-08-2007 20:35 ]