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.
Hat jemand da was, was er mir an die Hand geben kann!?
Vielen Dank.
Auf einen weiteren Tag bei 35°C im Office. *hurra*
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*
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-Key: 466546
Url: https://administrator.de/contentid/466546
Ausgedruckt am: 28.03.2024 um 13:03 Uhr
8 Kommentare
Neuester Kommentar
Servus.
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
Grüße Uwe
...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
Lies mein erstes Kommentar ganz oben! Da steht warum. Du versuchst nämlich in das Computerobjekt zu schreiben statt in das Userobjekt.
In meinen Anleitungen siehst du das auch ganz klar!
Also:
Also LESEN und Code VERSTEHEN nicht nur Copy n' Pasten wäre mal angebracht!
objComputer.Description = strMessage
objComputer.SetInfo
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!