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, 4336 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
Exchange Server
Exchange postfach löschen wenn AD Konto nicht mehr exisitiert (8)

Frage von MultiStorm zum Thema Exchange Server ...

Windows Server
Exchange 2010 auf Windows Server 2016 und AD (2)

Tipp von Herbrich19 zum Thema Windows Server ...

Windows Server
Wozu werden Gruppen in der AD verwendet (5)

Frage von krodon zum Thema Windows Server ...

LAN, WAN, Wireless
gelöst Wifi Auth per PEAP-MSCHAPv2 - AD-Accounts geblockt nach PW-Änderung (11)

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

Neue Wissensbeiträge
Drucker und Scanner

Samsung SL-M4025ND, firmware update und (kompatible) Tonerkassetten

(1)

Erfahrungsbericht von markus-1969 zum Thema Drucker und Scanner ...

Router & Routing

PfSense auf Supermicro Intel Xeon D-15x8 SoC Bare Bone

Tipp von Dobby zum Thema Router & Routing ...

Windows Server

Exchange 2010 auf Windows Server 2016 und AD

(2)

Tipp von Herbrich19 zum Thema Windows Server ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
Brauche Hilfe: Mit (schnellem) WLAN Strecke überbrücken (22)

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

Windows 10
Windows für Privatanwender "nicht mehr handhabbar" (16)

Frage von FA-jka zum Thema Windows 10 ...

Basic
Programmierung von Windows Programmen (10)

Frage von Ghost108 zum Thema Basic ...