chrone
Jun 28, 2008, updated at Jun 30, 2008 (UTC)
view5945
view10
0
Goto Top

Inaktive Computer auslesen

GermanQuestionWindows ServerMicrosoft
Hallo

Wir verwenden Windows Server 2003

Ich suche ein Script oder Freeware Tool mit dem ich die AD auslesen kann.
Und zwar möchte ich Computer, welche sich seit X Tagen nicht mehr an der Domäne gemeldet haben, auflisten.

So sollte es mir dann möglich sein, die AD aufzuräumen sein.

Gibt es eine einfache Lösung dafür.


Danke für eure Hilfe
comment-contentCommentShareShare
Share on Facebook Share on Twitter Share on Reddit Share on Linkedin

Content-Key: 90852

Url: https://administrator.de/contentid/90852

Printed on: April 25, 2024 at 08:04 o'clock

10 Comments
Latest comment
Goto Top
Member: bastla
bastla Jun 28, 2008 at 17:32:12 (UTC)
Goto Top
Hallo Chrone!

Sieh Dir mal OldCmp an ...

... bzw die Script-Lösungen hier.
Anmerkung zu den Scripts: Da hier ja Computer abgefragt werden sollen, ist die Zeile
strFilter = "(&(objectCategory=person)(objectClass=user))"
zu ändern auf
strFilter = "(objectCategory=computer)"
Grüße
bastla
Member: Chrone
Chrone Jun 28, 2008 at 19:00:37 (UTC)
Goto Top
Ich habe Script 1 zu 1 kopiert.
Dann habe ich es nochmals angepasst auf "computer".

Ich erhalte dann bei beiden Scripts den Fehler "Die Variable ist nicht definiert Wscript" bei folgender Zeile:
Wscript.Echo strUser & " ; " & objList.Item(strUser)

Hast du eine Idee woher dies kommt?
Member: bastla
bastla Jun 28, 2008 at 19:24:22 (UTC)
Goto Top
Hallo Chrone!

Sorry - kann ich nicht nachvollziehen.

Du kannst zwar zu Testzwecken am Anfang des Scripts vor "Option Explicit" ein REM schreiben oder in der angegebenen Zeile "Wscript." vor dem "Echo" weglassen, aber wenn Du nur das Festlegen des Filters in Zeile 105 geändert hast, sollte das Script eigentlich laufen.

Wie hast Du eigentlich das Script gestartet?

Grüße
bastla
Member: Chrone
Chrone Jun 29, 2008 at 11:41:50 (UTC)
Goto Top
Hallo Bastla

Nun funktioniert es.
Habe das Script zu erst im SimplexParser ausgeführt. Da funktionierte es nicht.

Wenn ich das Script in eine VBS-Datei speichere dann klappt es.

Mit cscript *.vbs > computer.txt kann ich die Informationen in eine Datei schreiben.

Gibt es vielleicht eine einfach Variante, dass nur Computer angezeigt werden mit einem Logon-Datum mehr als 30 Tagen?
Habe leider keine Ahnung von VBScript und Datums-Abfragen.


Gruss
Chrone
Member: bastla
bastla Jun 29, 2008 at 16:27:12 (UTC)
Goto Top
Hallo Chrone!

Dazu müsstest Du nur nach den "Dim"-Zeilen (etwa ab Zeile 46) einfügen:
Dim intAlter, dtmStichtag

intAlter = 30 'Alter in Tagen  
dtmStichtag = Date - intAlter
und den Ausgabeteil
Wscript.Echo strUser & " ; " & objList.Item(strUser)
ändern auf
If objList.Item(strUser) < dtmStichtag Then
    Wscript.Echo strUser & ";" & objList.Item(strUser)  
End If
Grüße
bastla
Member: Chrone
Chrone Jun 29, 2008 at 21:06:45 (UTC)
Goto Top
Danke, funktioniert perfekt.


Vielen Dank für dein Hilfe

Gruss
Chrone
Member: Chrone
Chrone Jun 30, 2008 at 06:38:15 (UTC)
Goto Top
Hallo Bastla

Ich habe zum Teil zwei Datums in einer Zeile. Kannst du mir eventuell erklären, welches Datum wofür steht?

Kann man das Script eventuell anpassen, dass nur der Client-Name ohne "CN=" , die Description und das LastLogon-Datum angezeigt wird?

Besten Dank und Gruss
Chrone
Member: bastla
bastla Jun 30, 2008 at 08:33:47 (UTC)
Goto Top
Hallo Chrone!

Ich habe zum Teil zwei Datums in einer Zeile. Kannst du mir eventuell erklären, welches Datum wofür steht?
Sollte eigentlich nur ein Datum (zumeist mit Uhrzeit) sein ...

Kann man das Script eventuell anpassen, dass nur der Client-Name ohne "CN=" , die Description und das LastLogon-Datum angezeigt wird?
Deklarationen ergänzen (Zeile 47):
Dim objUser, objProperty, strDesc
Ausgabeteil ersetzen durch:
' Output latest lastLogon date for each user.  
For Each strUser In objList.Keys
    If objList.Item(strUser) < dtmStichtag Then
        On Error Resume Next
        objProperty = Null
        Set objUser = GetObject("LDAP://" & strUser)  
        objProperty = objUser.Get("Description")  
        If IsNull(objProperty) Then strDesc = "no Description" Else strDesc = objProperty  
        On Error Goto 0
        Wscript.Echo Split(Split(strUser, ",")(0), "=")(1) & ";" & strDesc & ";" & objList.Item(strUser)  
    End If
Next
Grüße
bastla
Member: Chrone
Chrone Jun 30, 2008 at 10:48:32 (UTC)
Goto Top
Hallo Bastla

Vielen vielen Dank.

Ich weiss nun weshalb zwei Daten angezeigt werden. Das sind Clients mit zwei Netzwerkkarten.

Kann man noch abfragen, ob der Client aktiv oder disabled ist?

gruss
Chrone
Member: bastla
bastla Jun 30, 2008 at 12:07:26 (UTC)
Goto Top
Hallo Chrone!

Dazu brauchen wir eine weitere Variablendeklaration
Dim strStatus
und folgenden Ausgabeteil:
' Output latest lastLogon date for each user.  
For Each strUser In objList.Keys
    If objList.Item(strUser) < dtmStichtag Then
        On Error Resume Next
        objProperty = Null
        Set objUser = GetObject("LDAP://" & strUser)  
        objProperty = objUser.Get("Description")  
        If IsNull(objProperty) Then strDesc = "no Description" Else strDesc = objProperty  
        If objUser.userAccountControl AND 2 Then strStatus = "disabled" Else strStatus = "enabled"  
        On Error Goto 0
        Wscript.Echo Split(Split(strUser, ",")(0), "=")(1) & ";" & strDesc & ";" & strStatus & ";" & objList.Item(strUser)  
    End If
Next
Genauer wäre übrigens die Ausgabe von "not disabled" anstelle von "enabled", da nur dieses Attribut abgefragt wurde ...

Grüße
bastla
GermanQuestionWindows ServerMicrosoft
Hotly discussed
gleixnerdCheck of ZFW Firewallgleixnerd - 5 CommentsjstrickerWireguard VPN on UDM Pro behind Fritzbox - Handshake did not completejstricker - 3 Comments