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, 4322 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 ..
Neuester Wissensbeitrag
Ähnliche Inhalte
Windows Server
Export von Email Adressen aus dem AD (Windows 2008) (6)

Frage von uridium69 zum Thema Windows Server ...

Windows Server
gelöst DirectAccess Einstellungen im AD entfernen (3)

Frage von Neukunde zum Thema Windows Server ...

Heiß diskutierte Inhalte
Switche und Hubs
LAG zwischen Cisco SG300 und Dlink DGS1100 herstellen - wie? (18)

Frage von White-Rabbit2 zum Thema Switche und Hubs ...

Linux
gelöst Boot failed: not a bootable disk (10)

Frage von Fleckmen zum Thema Linux ...

Multimedia & Zubehör
gelöst Iphone 6 prob (8)

Frage von jensgebken zum Thema Multimedia & Zubehör ...

Windows 7
gelöst Windows 7 Umzug zum neuen PC (SATA-Problem) (7)

Frage von MaxMoritz6 zum Thema Windows 7 ...