oscarpapa
Goto Top

MS-Server 2016: Active Directory - Hinzufügen User Logon Name , Last Login Time-Date, Hardware Info in Beschreibung der Benutzer-Eigenschaften

Guten Morgen Admin's,

ich habe in der bisher genutzten Domäne ein Login.vbs Skript genutzt, um mir im AD in den Eigenschaften des jeweiligen Benutzers in das Beschreibung (Description) Feld bestimmte Infos rein-pushen zu lassen.

folgendes wurde angezeigt :
CommonName (Login-Name) | IP -Adresse | logged on @ Datum/Uhrzeit | PC Seriennummer

Hier das genutzte Skript.....ich habe noch in Erinnerung, das dazu das "schema" angeändert werden musste, finde das aber leider nicht mehr, was ich da anpassen musste.

Set objSysInfo = CreateObject("ADSystemInfo")   

Set objUser = GetObject("LDAP://" & objSysInfo.UserName)   
Set objComputer = GetObject("LDAP://" & objSysInfo.ComputerName)   

strQuery = "SELECT * FROM Win32_NetworkAdapterConfiguration WHERE MACAddress > ''"   

Set objWMIService = GetObject( "winmgmts://./root/CIMV2" )   
Set colItems      = objWMIService.ExecQuery( strQuery, "WQL", 48 )   
Set colBIOS = objWMIService.ExecQuery _ 
    ("Select * from Win32_BIOS")   
For Each objItem In colItems 
    If IsArray( objItem.IPAddress ) Then 
        If UBound( objItem.IPAddress ) = 0 Then 
            strIP = objItem.IPAddress(0) 
        Else 
            strIP = Join( objItem.IPAddress, "," )   
        End If 
    End If 
Next 

For each objBIOS in colBIOS 
GetSerialNumber = objBIOS.SerialNumber 
Next 

strMessage =  objUser.CN & " | IP : " & strIP & " logged on @ " & " " & Now & " | PC S/N: " & GetSerialNumber & " "   

objComputer.Description = strMessage 
objComputer.SetInfo 

Hat jemand da was, was er mir an die Hand geben kann!?

Vielen Dank.

Auf einen weiteren Tag bei 35°C im Office. *hurra*

Content-Key: 466546

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

Ausgedruckt am: 28.03.2024 um 13:03 Uhr

Mitglied: colinardo
colinardo 27.06.2019 aktualisiert um 08:03:35 Uhr
Goto Top
Servus.
...ich habe noch in Erinnerung, das dazu das "schema" angeändert werden musste,
Nee, das Schema muss man nur ändern wenn man ein eigenes Attribut verwendet. Du musst nur die Schreibrechte für das Attribut im AD freigeben.
Das hier sollte dir helfen:
Anmeldestatus von Benutzern im Active Directory speichern
Wenn du ein neues Attribut für die Daten nutzen willst, siehe folgende Anleitung passend dazu
Erstellen eines neuen Attributes für Benutzerobjekte im Active Directory Schema
objComputer.Description = strMessage
Btw. damit setzt du die Info nicht im User sondern im Computerobjekt, da musst du schon objUser nehmen wenns das Userobjekt sein soll.

Grüße Uwe
Mitglied: oscarpapa
oscarpapa 27.06.2019 um 08:16:45 Uhr
Goto Top
Ok, das sieht schonmal SEHR hilfreich aus.
Aber wo gebe ich das Feld "Beschreibung" in den Nutzer-Eigenschaften frei, zum beschreiben.
In deinem How-To ist das Anhand des Untergeordnete "Benutzer"-Objekte aus, setzt einen Haken bei Zulassen für "Kommentar" schreiben .
beschrieben, für das Beschreibungs-Feld finde ich aber leider akut nix passendes.

Gruß
ollip
Mitglied: colinardo
colinardo 27.06.2019 aktualisiert um 08:27:40 Uhr
Goto Top
Doch, schau ganz genau hin! Das ist je nach OS-Sprache ein unsortierter Mix aus Englisch ("Description") und deutschen LDAP Namen, da hat MS sich einen besonderen Hut verdient.
Mitglied: oscarpapa
oscarpapa 27.06.2019 um 08:35:03 Uhr
Goto Top
ist das "adminDescription" schreiben der richtige Punkt?
Mitglied: oscarpapa
oscarpapa 27.06.2019 um 08:38:40 Uhr
Goto Top
nein, es ist "Beschreibung" schreiben face-wink
Mitglied: colinardo
colinardo 27.06.2019 aktualisiert um 09:03:51 Uhr
Goto Top
Na also , geht doch wenn man sich nur etwas anstrengt.

Wenns das dann war bitte noch den Haken dran.
Mitglied: oscarpapa
oscarpapa 27.06.2019 um 10:03:45 Uhr
Goto Top
Es funktioniert leider noch nicht.
Habe wie in deinem How-To unter Anmeldestatus von Benutzern im AD speichern beschrieben, auf den OU-Container in dem die Benutzer sind die Berechtigung SELBST für "Beschreibung" schreiben gesetzt.

Dann habe ich als Login Skript das von mir o.g. eingebunden.....

aber es wird leider nichts in der "Beschreibungsfeld" ausgegeben..... face-sad
Mitglied: colinardo
colinardo 27.06.2019 aktualisiert um 10:25:45 Uhr
Goto Top
Lies mein erstes Kommentar ganz oben! Da steht warum. Du versuchst nämlich in das Computerobjekt zu schreiben statt in das Userobjekt.
objComputer.Description = strMessage
objComputer.SetInfo

In meinen Anleitungen siehst du das auch ganz klar!

Also:
'...  
objUser.put "Description", strMessage   
objUser.SetInfo 

Also LESEN und Code VERSTEHEN nicht nur Copy n' Pasten wäre mal angebracht!