Oje noch ein Blog » Active Directory

Standortabhängiges Anmeldescript

Daniel — Mon, 28 Sep 2009 07:50:59 +0000

Den aktuellen Standort eines Benutzers zu ermitteln, definiert durch die Active Directory Sites, funktioniert folgender VBS Code:

On Error Resume Next
Set wshShell = WScript.CreateObject( "WScript.Shell" )
strUserDomain = wshShell.ExpandEnvironmentStrings( "%USERDOMAIN%" )

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery("SELECT ClientSiteName FROM Win32_NTDomain WHERE DomainName = '"& strUserDomain &"'",,48)

For Each objItem in colItems
  ' Hier wird der erkannte Sitename der Anmeldedomäne ausgegeben.
  strSiteName = objItem.ClientSiteName
next

select case strSiteName
	case "Berlin"
             ' Tu irgendwas
	case "München"
             ' Tu irgendwas anderes
end select

Getestet unter Windows XP, Windows 2003, Vista und Windows 7.

LastLogon Lookup

Daniel — Wed, 05 Aug 2009 08:23:49 +0000

Ein Problem bei einer Windows 2000 Domäne, d.h. einer Domäne die sich nicht im einheitlichen Modus befinden, ist das nicht alle Eigenschaften von Objekten innerhalb der Domäne zwischen den Domänencontrollern repliziert werden.

Dies Betrifft unter anderem auch die letzte Anmeldezeit eines Benutzerkontos.

Dieser Wert ist allerdings ziemlich nützlich um z.B. Benutzerleichen zu identifizieren.

Mir ist kein Windows Boardmittel bekannt mit dem man diese Werte aus einer Domäne über alle Domänencontroller hinweg auslesen kann, deswegen habe ich mir ein kleines Tool geschrieben.

Programmaufruf

LastLogon Lookup.exe > Datei.cvs

Ausgabe

distinguishedName;sAMAccountName;LogonCount;LastLogon;DomainController

...

Das ganze wird dann über alle DCs für alle Benutzer ausgelesen.

Der Benutzeraccount unter dem das Progamm läuft muss mindestens entsprechende Werte aus dem AD lesen können (wär auch komisch sonst), eine Schreibberechtigung ist natürlich nicht notwendig. Das Ergebnis ist einfach mit Access/Excel/Stift und Zettel o.Ä. auszuwerten.

Geschrieben in VB.NET, wenn lieb gefragt wird schick ich bestimmt auch den Quellcode zu

Download: LastLogon Lookup.zip

Einfache Gruppenmitgliedschaftssuche

Daniel — Wed, 18 Mar 2009 16:02:26 +0000

Wer kennt das nicht, irgendwer braucht mal wieder eine Liste mit Benutzern die z.B. aufs Personallaufwerk Zugriff haben, sowie zum Internetzugriff berechtigt sind.

Für was auch immer man die Konten braucht, mit dieser LDAP Abfrage kann man das einfach herausfinden:

(&(&(&(objectCategory=person)(objectClass=user)(&(memberOf=GRUPPE1)(memberOf=GRUPPE2)))))

Gruppensyntax:

CN=GRUPPEx,OU=GRUPPEN,DC=deinedomäne,DC=xx

bzw. wenn direkt im USERS Container

CN=GRUPPEx,CN=users,DC=deinedomäne,DC=xx

Kann man immer mal wieder brauchen.