Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Hinterlegte Anmeldescripte ausgeben - AD

Frage Microsoft Windows Server

Mitglied: Xaero1982

Xaero1982 (Level 3) - Jetzt verbinden

20.04.2007, aktualisiert 16:36 Uhr, 4341 Aufrufe, 7 Kommentare

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
Mitglied: Logan000
20.04.2007 um 10:52 Uhr
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
Bitte warten ..
Mitglied: Xaero1982
20.04.2007 um 11:24 Uhr
Hum .. habe das Script nach 5 Minuten mal abgebrochen ... scheint nicht so recht zu gehen^^
Bitte warten ..
Mitglied: Xaero1982
20.04.2007 um 11:33 Uhr
Ok hab was:

01.
on error resume next 
02.
 
03.
Pfad = "c:\aduser.txt" 
04.
'Objekte erstellen 
05.
set fso = CreateObject("Scripting.FileSystemObject") 
06.
set fsoFile = fso.CreateTextFile(Pfad, true) 
07.
dim oCont, oGC 
08.
Set oCont = GetObject("GC:") 
09.
For Each oGC In oCont 
10.
    strGCPath = oGC.ADsPath 
11.
Next 
12.
 
13.
Set oConnection = CreateObject("ADODB.Connection") 
14.
Set oRecordset = CreateObject("ADODB.Recordset") 
15.
Set oCommand = CreateObject("ADODB.Command") 
16.
oConnection.Provider = "ADsDSOObject"  'The ADSI OLE-DB provider 
17.
oConnection.Open "ADs Provider" 
18.
oCommand.ActiveConnection = oConnection 
19.
oCommand.Properties("Page Size") = 100 
20.
oCommand.CommandText = "<" & strGCPath & ">;" & _ 
21.
	"(mailnickname=*);" & _ 
22.
	"distinguishedName,ObjectClass,displayName,mail" & _ 
23.
	";subtree" 
24.
Set oRecordset = oCommand.Execute 
25.
 
26.
do until oRecordset.EOF 
27.
	Set objUser = GetObject("LDAP:// " & oRecordset.Fields("distinguishedName")) 
28.
	fsoFile.WriteLine(oRecordset.Fields("displayName") & " - " & objUser.scriptPath) 
29.
	oRecordset.MoveNext 
30.
loop 
31.
 
32.
wscript.echo done 
33.
 
34.
fsoFile.close 
35.
set fsoFile = nothing 
36.
set fso = nothing
Bitte warten ..
Mitglied: SlainteMhath
20.04.2007 um 14:07 Uhr
oder:

dsquery user -limit 0 -name * | dsget user -samid -loscr > blah.txt

wenn man's ein bischen einfacher mag
Bitte warten ..
Mitglied: Xaero1982
20.04.2007 um 14:20 Uhr
Und was soll das sein?

Was für Tools brauchste denn dafür?
Bitte warten ..
Mitglied: SlainteMhath
20.04.2007 um 14:28 Uhr
Und was soll das sein?

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
Bitte warten ..
Mitglied: Xaero1982
20.04.2007 um 16:36 Uhr
Okay ...

Naja sollte ja nicht aufm Server laufen, sondern auf einem beliebigen Client

Aber danke für den Tipp!
Bitte warten ..
Ähnliche Inhalte
Windows Server
Anmeldescript wird nicht geladen (2)

Frage von baxxter333 zum Thema Windows Server ...

Samba
gelöst Qnap als Samba4 und Fileserver, Anmeldescript, Netzlaufwerke (3)

Frage von Brunium zum Thema Samba ...

Windows Server
Anmeldescripts auf W2k12 (2)

Frage von max.kobler zum Thema Windows Server ...

Neue Wissensbeiträge
Windows Server

Umstellung SHA 1 auf SHA 2 - Migration der CA von CSP auf KSP

Tipp von Badger zum Thema Windows Server ...

Windows 10

Quato DTP94 unter Windows 10 x64 installieren und verwenden

Anleitung von anteNope zum Thema Windows 10 ...

Windows 10

Win10 1703 und Nutzerkennwörter bei Ersteinrichtung - erstaunliche Erkenntnis

(15)

Erfahrungsbericht von DerWoWusste zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Windows 10
Windows 10 im Unternehmen? (26)

Frage von zorlayan zum Thema Windows 10 ...

LAN, WAN, Wireless
Ping u. DNS geht am Rechner nicht mehr (19)

Frage von Kuemmel zum Thema LAN, WAN, Wireless ...

Festplatten, SSD, Raid
Raid 1 2 SSD mit Windows Server 2016 (17)

Frage von jaywee zum Thema Festplatten, SSD, Raid ...

Voice over IP
Über Fritzfax over IP gehen nur einige Faxe (12)

Frage von shearer9 zum Thema Voice over IP ...