Hinterlegte Anmeldescripte ausgeben - AD

Hallo,

noch mal eine Frage zu den Anmeldescripten....

Leider stellt sich immer wieder heraus, dass in einigen Benutzerprofilen falsche (falscher Pfad) Anmeldescripte hinterlegt sind was die Ausführung des selbigen verhindert.

Gibt es eine Möglichkeit das Anmeldescript + Benutzernamen aus dem AD auszulesen und in einer Txt zu speichern nach dem Schema:

Benutzername - Anmeldescript

Wäre für Tipps dankbar

mfg

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

Content-ID: 57126

Url: https://administrator.de/forum/hinterlegte-anmeldescripte-ausgeben-ad-57126.html

Ausgedruckt am: 13.04.2025 um 17:04 Uhr

7 Kommentare

Neuester Kommentar

Per vbs

On Error Resume Next
Const ADS_SCOPE_SUBTREE = 2

Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection

objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE

objCommand.CommandText = "SELECT Name FROM 'LDAP://dc=domain,dc=de' WHERE objectCategory='user'"
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst

Do Until objRecordSet.EOF
Wscript.Echo objRecordSet.Fields("Name").Value & " " & objRecordSet.Fields("ScriptPath").Value
objRecordSet.MoveNext
Loop

Hum .. habe das Script nach 5 Minuten mal abgebrochen ... scheint nicht so recht zu gehen^^

Ok hab was:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
on error resume next

Pfad = "c:\aduser.txt"  
'Objekte erstellen  
set fso = CreateObject("Scripting.FileSystemObject")  
set fsoFile = fso.CreateTextFile(Pfad, true)
dim oCont, oGC
Set oCont = GetObject("GC:")  
For Each oGC In oCont
    strGCPath = oGC.ADsPath
Next

Set oConnection = CreateObject("ADODB.Connection")  
Set oRecordset = CreateObject("ADODB.Recordset")  
Set oCommand = CreateObject("ADODB.Command")  
oConnection.Provider = "ADsDSOObject"  'The ADSI OLE-DB provider  
oConnection.Open "ADs Provider"  
oCommand.ActiveConnection = oConnection
oCommand.Properties("Page Size") = 100  
oCommand.CommandText = "<" & strGCPath & ">;" & _  
	"(mailnickname=*);" & _  
	"distinguishedName,ObjectClass,displayName,mail" & _  
	";subtree"  
Set oRecordset = oCommand.Execute

do until oRecordset.EOF
	Set objUser = GetObject("LDAP:// " & oRecordset.Fields("distinguishedName"))  
	fsoFile.WriteLine(oRecordset.Fields("displayName") & " - " & objUser.scriptPath)  
	oRecordset.MoveNext
loop

wscript.echo done

fsoFile.close
set fsoFile = nothing
set fso = nothing