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, 4317 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
Windows 10

Powershell 5 BSOD

(8)

Tipp von agowa338 zum Thema Windows 10 ...

Ähnliche Inhalte
Windows Server
Windows Server 2012 R2 Benutzerkonto für Zugriff auf AD Benutzer (1)

Frage von JulianOhm zum Thema Windows Server ...

Windows Userverwaltung
Ausgeschiedene Mitarbeiter im Unternehmen - was tun mit den AD Konten? (34)

Frage von patz223 zum Thema Windows Userverwaltung ...

Windows Server
AD-Berechtigungen von zwei Servern miteinander vergleichen (3)

Frage von s0m3ting zum Thema Windows Server ...

Windows Server
AD Replikation zwischen untergeordneten Domäne zwingend? (4)

Frage von Gien-app zum Thema Windows Server ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
gelöst Server erkennt Client nicht wenn er ausserhalb des DHCP Pools liegt (28)

Frage von Mar-west zum Thema LAN, WAN, Wireless ...

Microsoft
Ordner mit LW-Buchstaben versehen und benennen (19)

Frage von Xaero1982 zum Thema Microsoft ...

Outlook & Mail
gelöst Outlook 2010 findet ost datei nicht (19)

Frage von Floh21 zum Thema Outlook & Mail ...

Windows Server
Server 2008R2 startet nicht mehr (Bad Patch 0xa) (18)

Frage von Haures zum Thema Windows Server ...