Active Directory Query in Excel

Pagina: 1
Acties:
  • 311 views sinds 30-01-2008
  • Reageer

  • dago21
  • Registratie: November 2004
  • Laatst online: 15-09-2025
Hallo,

Ik heb me inmiddels rot gezocht naar wat hulp op het gebied van VBA en heb eigenlijk weinig kunnen vinden wat ik zocht (Google was nu even niet mijn vriend).

Wie houdt er van een uitdaging?


Ik gebruik Excel 2003 en wil met Excel een VBA macro maken zodat elke user in ons domain gegevens kan updaten (ik wil dus geen command line of VBScripts gebruiken). Deze macro moet contact zoeken met de Active Directory Server en een summary maken.

Ik heb inmiddels een sheet met allerlei gegevens over de locaties zoals adres en locatie nummer. Locatie nummer staat in colom F (beginnende bij F6). Nu wou ik die colom laten parsen door de macro en elke 3 cijferige locatie nummer laten opzoeken in AD (dus als veld leeg is negeren en als veld alfa heeft ook negeren. rijen zijn niet aan eengesloten maar maximale lege rijen er tussen is 8 ).

De gegevens die ik uit AD wil halen is als volgt opgebouwd:
device type, daarna de locatie en daarna -volgnummer.
Voorbeeld: SV999-001 (server, locatie 999, nummer 001).
Voorbeeld: PC999-039 (pc, locatie 999, nummer 039)

Voor elke locatie wil ik dat hij alle device types neer list in een lege tab genoemd "raw data". Hier wil ik dan later een Pivot over heen leggen. Dus data zal daar geschikt voor moeten zijn zodat ik aantallen per device kan tellen, dus:
Locatie 999 heeft 35 PC's en 6 servers. Deze gegevens wil ik dan weer verwerken naar bijvoorbeeld investering, maw wat "kost" die locatie aan hardware.

De gegevens waar hij zijn data moet ophalen is uit:

testad.testdomain.loc in de OU Remote/NL (hieronder hangen 3 andere OU's maar die moet hij ook doorlopen).

Is dit mogelijk en zo ja hoe??? Ik kom er helaas niet uit...

[ Voor 0% gewijzigd door dago21 op 20-10-2006 09:29 . Reden: een 8 met een ) is niet een 8) ... ]


  • _Thanatos_
  • Registratie: Januari 2001
  • Laatst online: 22-06 10:32

_Thanatos_

Ja, en kaal

Misschien kun je deze VBscripts in VBA omzetten? Zo groot is het verschil vast niet.

日本!🎌


  • NMe
  • Registratie: Februari 2004
  • Laatst online: 17:36

NMe

Quia Ego Sic Dico.

dago21 schreef op donderdag 19 oktober 2006 @ 15:08:
(Google was nu even niet mijn vriend)
Onze stickies vast ook niet. Waar hoort mijn topic? :+

Welkom op GoT trouwens. :)

PRG>>OFF

'E's fighting in there!' he stuttered, grabbing the captain's arm.
'All by himself?' said the captain.
'No, with everyone!' shouted Nobby, hopping from one foot to the other.


  • F_J_K
  • Registratie: Juni 2001
  • Niet online

F_J_K

Moderator CSA/PB/AI

Front verplichte underscores

Kijk even naar de Active DS type library in VBA :)

Edit: en wellicht heb je iets aan http://www.msexchange.org...Exchange-Users-Excel.html

[ Voor 51% gewijzigd door F_J_K op 20-10-2006 12:08 ]

'Multiple exclamation marks,' he went on, shaking his head, 'are a sure sign of a diseased mind' (Terry Pratchett, Eric)


  • dago21
  • Registratie: November 2004
  • Laatst online: 15-09-2025
Ik heb het deels kunnen oplossen inmiddels. De msexchange website had ik ook gezien, maar door mijn gebrekkige VBA kennis vond is die net iets te lastig om te ontleden.

Wat ik nu gedaan heb is:
1 tab met dbinput, knop gemaakt Update. Deze refreshed de data vanuit de database en maakt vervolgens de calculatie net zolang er data in kolom D staat.

Een tab kosten, waarin ik alle prijs informatie heb staan; helaas handmatig linken vanuit een andere excel sheet ging niet zo erg lekker.

Dan Pivot, met een knop ook weer om de data te refreshen.

Nu ga ik nog een sheet maken waar de calculaties gedaan worden, en die hide ik dan gewoon :)

Bedankt voor je input!