Gruppenbeschreibung per Script aus Gruppenname füllen?

Hallo zusammen!

Hat jemand schonmal einen Script geschrieben um Gruppenbeschreibungen automatisch aus dem Gruppennamen füllen zu lassen?

Stelle mir das ganze so vor:

Gruppenname: ABC123_F_Abteilungsname_C
Gruppenbeschreibung = Ändern Abteilungsname

Wie kann ich den Wert des Gruppennamens auslesen und Ihn später wieder im Beschreibungsfeld einfügen lassen?

Gruss und Dank im vorraus

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 47791

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

Ausgedruckt am: 23.11.2024 um 04:11 Uhr

2 Kommentare

Neuester Kommentar

Hi,

das Script liest den Gruppennamen und die Beschreibung aus und hängt danach an der Beschreibung den Gruppennamen dran.

Option Explicit

const C_Log = "c:\Log\Gruppenbeschreibung.log"  
Const C_Gruppe = "LDAP://CN=101_Benutzer,OU=Gruppen,DC=domaine,DC=de"  


DIM O_File
DIM O_Log

Set O_File = CreateObject("Scripting.FileSystemObject")  
Set O_Log = O_File.OpenTextFile(C_Log,2,true)


call S_ReadBeschreibung()

Sub S_ReadBeschreibung()
	Dim O_Gruppe
	Dim L_AlteBeschreibung
	Dim L_Gruppe
	Set O_Gruppe = GetObject(C_Gruppe)

	O_Log.writeline "Gruppenname: " & O_Gruppe.Get("samAccountName")  
	L_Gruppe = O_Gruppe.Get("samAccountName")  

	O_Log.writeline "alte Beschreibung: " & O_Gruppe.Get("Description")  
	L_AlteBeschreibung = O_Gruppe.Get("Description")  
	
	O_Gruppe.Put "description", L_AlteBeschreibung & L_Gruppe  
	O_Gruppe.SetInfo
	O_Log.writeline "neue Beschreibung " & O_Gruppe.Get("Description")  
	
end sub