pdieser
Goto Top

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

Content-Key: 47791

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

Ausgedruckt am: 28.03.2024 um 08:03 Uhr

Mitglied: Tundra
Tundra 03.01.2007 um 08:21:40 Uhr
Goto Top
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

Grüße
Guido
Mitglied: pdieser
pdieser 03.01.2007 um 08:33:37 Uhr
Goto Top
Vielen Dank Guido!

Das hat mir sehr geholfen!