7
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
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
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 57126
Url: https://administrator.de/contentid/57126
Printed on: April 26, 2024 at 21:04 o'clock
7 Comments
Latest comment
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
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:
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
oder:
dsquery user -limit 0 -name * | dsget user -samid -loscr > blah.txt
wenn man's ein bischen einfacher mag
dsquery user -limit 0 -name * | dsget user -samid -loscr > blah.txt
wenn man's ein bischen einfacher mag
Und was soll das sein?
Was für Tools brauchste denn dafür?
Was für Tools brauchste denn dafür?
Und was soll das sein?
Was für Tools brauchste denn
dafür?
Was für Tools brauchste denn
dafür?
Du brauchst entweder eine Windows 2003 Server oder, falls Du's am Client ausführen willst, das installierte AdminPack.msi
Okay ...
Naja sollte ja nicht aufm Server laufen, sondern auf einem beliebigen Client
Aber danke für den Tipp!
Naja sollte ja nicht aufm Server laufen, sondern auf einem beliebigen Client
Aber danke für den Tipp!