Overzicht AD-gebruikersinformatie verzamelen? - Serversoftware en clouddiensten

dinsdag 6 november 2007 13:39

Acties:

Verwijderd

Topicstarter

Hallo,

Voor een aantal klanten moet ik een printbare overzicht maken van haar gebruikersaccounts (+e-mailadressen). Iets wat ik niet heb kunnen vinden , maar bestaat er een tool die uit de AD die informatie verzamelt en kan zetten in een txt file oid?

dinsdag 6 november 2007 13:41

Acties:

Verwijderd

Met LDIFDE kun CVSDE kun je gebruikers exporteren naar een file. Zie mijn vorige post.

dinsdag 6 november 2007 13:44

Acties:

BFS

Rude awakening

Het kan vast een stuk mooier maar ik heb het volgende VBS script in elkaar geflanst om een soort telefoonlijst te genereren naar een bestandje genaamd telefoonlijst.html. Hierbij moet 'LDAP://dc=contoso,dc=local' veranderd worden naar de naam van je lokale domein.

VBScript:

'========================================================================='
' AUTHOR:  Kees Baggerman                         '
' COMPANY: Quaere                             '
' DATE:    23-10-2007                             '  
' Version: 1.0                                '
' COMMENT: VBS script with Output:                    '
'       - AD information                      '
'                                     '
'                                     '
'                                     '
'========================================================================='


'========================================================================='
' generate a filename             '
'========================================================================='


    strOutputFile = "telefoonlijst.html"

    Set objFileSystem = CreateObject("Scripting.fileSystemObject")
    Set objOutputFile = objFileSystem.CreateTextFile(strOutputFile, TRUE)


'========================================================================='
' Create HTML Formatting                          '
'========================================================================='

    objOutputFile.WriteLine "<html>"
    objOutputFile.WriteLine "<head>"
    objOutputFile.WriteLine "<title>Telefoonlijst</title>"
    objOutputFile.WriteLine "<style>"
    objOutputFile.WriteLine "tr{vertical-align:top;}"
    objOutputFile.WriteLine "th{background-color:#AACFE4;text-align:center;font-family:Tahoma,Arial;color=black;font-size:12px;font-weight:bold;}"
    objOutputFile.WriteLine "td.td1{width:20%;background-color:#6E8BB6;font-family:Tahoma,Arial;color=white;font-size:9px;height:40px;}"
    objOutputFile.WriteLine "td.td2{width:20%;background-color:#AACFE4;font-family:Tahoma,Arial;color=black;font-size:9px;height:40px;}"
    objOutputFile.WriteLine "td.td2_40{width:40%;background-color:#AACFE4;font-family:Tahoma,Arial;color=black;font-size:10px;height:40px;}"
    objOutputFile.WriteLine "td.td2_30{width:160%;background-color:#AACFE4;font-family:Tahoma,Arial;color=black;font-size:10px;height:40px;}"
    objOutputFile.WriteLine "td.td2_8{width:40px;background-color:#AACFE4;font-family:Tahoma,Arial;color=black;font-size:10px;height:40px;}"
    objOutputFile.WriteLine "</style>"

    objOutputFile.WriteLine "</head>"

    objOutputFile.WriteLine "<BODY>"

    objOutputFile.WriteLine "<table border=1 width=100% cellspacing=0 cellpadding=3 bordercolor=black bordercolordark=#AACFE5>"
    objOutputFile.WriteLine "  <tr><th colspan=100%>Telefoonlijst</th></tr>"
    objOutputFile.WriteLine "</table>"
    objOutputFile.WriteLine "<br>"

    objOutputFile.WriteLine "</BODY>"


'========================================================================='
' Add Print button                            '
'========================================================================='
    
    objOutputFile.WriteLine "<input type=button "
    objOutputFile.WriteLine "  onClick=window.print() "
    objOutputFile.WriteLine " value= Print This Page />"
    objOutputFile.WriteLine "<br>"
    objOutputFile.WriteLine "<br>"
    objOutputFile.WriteLine "<br>"


'========================================================================='
' Create Tables Formatting                        '
'========================================================================='


    objOutputFile.WriteLine "<table border=1 width=100% cellspacing=0 cellpadding=3 bordercolor=black bordercolordark=#AACFE5>"
    objOutputFile.WriteLine "<tr>"
    objOutputFile.WriteLine "<td class=td1>Weergave naam :</td>"
    objOutputFile.WriteLine "<td class=td1>Inlognaam     :</td>"
    objOutputFile.WriteLine "<td class=td1>Telefoonnummer: </td>"
    objOutputFile.WriteLine "<td class=td1>Emailadres    : </td>"
    objOutputFile.WriteLine "<td class=td1>Locatie       : </td>"
    objOutputFile.WriteLine "</tr>"


'========================================================================='
' Get data from AD                                '
'========================================================================='

On Error Resume Next

Const ADS_SCOPE_SUBTREE = 2

Set objConnection = CreateObject("ADODB.Connection")
Set objCommand =   CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection

objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE 

objCommand.CommandText = _
    "SELECT ADsPath FROM 'LDAP://dc=contoso,dc=local' WHERE objectCategory='user'"  
Set objRecordSet = objCommand.Execute


Do Until objRecordSet.EOF
    strPath = objRecordSet.Fields("ADsPath").Value
    Set objUser = GetObject(strPath)
    objOutputFile.WriteLine "<table border=1 width=100% cellspacing=0 cellpadding=3 bordercolor=black bordercolordark=#AACFE5>"
    objOutputFile.WriteLine "<tr>"
    objOutputFile.WriteLine "<td class=td2>" & objUser.displayName & "</td>"
    objOutputFile.WriteLine "<td class=td2>" & objUser.userPrincipalName & "</td>"
    objOutputFile.WriteLine "<td class=td2>"  & objUser.telephoneNumber & "</td>"
    objOutputFile.WriteLine "<td class=td2>" & objUser.mail & "</td>"
    objOutputFile.WriteLine "<td class=td2>" & objUser.physicalDeliveryOfficeName & "</td>"
    objOutputFile.WriteLine "</tr>"
    objOutputFile.WriteLine "</table>"
    objRecordSet.MoveNext
Loop


objOutputFile.WriteLine "</HTML>"

When did I realize I was God? Well, I was praying and suddenly I realized that I was talking to myself

dinsdag 6 november 2007 14:02

Acties:

BFS

Rude awakening

Copy/paste het documentje in notepad en sla het op als *iets*.vbs. Daarna dien je dus nog wel even die LDAP verwijzing aan te passen en daarna kun je het bestand opslaan en het starten door erop te dubbelklikken.

When did I realize I was God? Well, I was praying and suddenly I realized that I was talking to myself

dinsdag 6 november 2007 14:04

Acties:

Verwijderd

Topicstarter

heel mooi, alleen hij genereert een leeg exemplaar. (geen gegevens) ik ga even klooien , dank

dinsdag 6 november 2007 14:07

Acties:

BFS

Rude awakening

Verwijderd schreef op dinsdag 06 november 2007 @ 14:04:
heel mooi, alleen hij genereert een leeg exemplaar. (geen gegevens) ik ga even klooien , dank

Dan leest hij je AD niet uit, contoso en local moeten dus veranderd worden in het domein waarop jij/jullie inloggen.

When did I realize I was God? Well, I was praying and suddenly I realized that I was talking to myself

dinsdag 6 november 2007 14:10

Acties:

Verwijderd

Topicstarter

contoso veranderd uiteraard, local blijft local.

dinsdag 6 november 2007 14:13

Acties:

BFS

Rude awakening

Je draait het wel als admin of iig als user die rechten genoeg heeft om de AD uit te lezen? Ik heb het getest tegen een 2000 native domain.

edit:

Net ook nog even tegen een SBS servertje gehouden en ook dat werkt?

[ Voor 24% gewijzigd door BFS op 06-11-2007 14:14 ]

When did I realize I was God? Well, I was praying and suddenly I realized that I was talking to myself

dinsdag 6 november 2007 14:14

Acties:

Verwijderd

Topicstarter

Ja, als administrator ingelogd. Ik meld me nog mocht het niet lukken. (SBS)

Op het moment dat ik het script run, wordt het systeem ook heel traag. Het gegenereerde html bestand blijft ook knipperen alsof het in gebruik is. (+/-30 users)

het process wscript.exe vraagt opeens heel veel CPU, en het systeem is niet vooruit te branden. Gaat dit wel goed.......

[ Voor 76% gewijzigd door Verwijderd op 06-11-2007 14:19 ]

dinsdag 6 november 2007 14:18

Acties:

the-edge

Leuk script, had ik net nodig!

dinsdag 6 november 2007 14:19

Acties:

Verwijderd

Topicstarter

werkt het bij jou wel the-edge??

Op een gegeven moment krijg ik een VISUAL C++ RUNTIME ERROR

Ik ga het even op een andere server proberen (eveneens SBS2003)

EDIT: op een andere server werkt hij wel, niets mis met het script dus, bedankt!

[ Voor 95% gewijzigd door Verwijderd op 06-11-2007 14:28 ]

dinsdag 6 november 2007 16:02

Acties:

elevator

Officieel moto fan :)

Je kan je vraag ook inwilligen met een one-liner commandline opdracht:

dsquery user | dsget user -display -email

dinsdag 6 november 2007 16:12

Acties:

BFS

Rude awakening

elevator schreef op dinsdag 06 november 2007 @ 16:02:
Je kan je vraag ook inwilligen met een one-liner commandline opdracht:
dsquery user | dsget user -display -email

Maar mijn 118 extra regels code generen wel een mooie HTML file met Print button!

Voor dat wat waard is natuurlijk

When did I realize I was God? Well, I was praying and suddenly I realized that I was talking to myself