Top-Themen

Aktuelle Themen (A bis Z)

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

Script zum auslesen des Stanard PW im AD funktioniert nicht.

Mitglied: llaprosper

llaprosper (Level 1) - Jetzt verbinden

18.09.2007, aktualisiert 11.10.2007, 3487 Aufrufe, 5 Kommentare

Hi, ich habe hier ein Script gefunden, welches ich echt super gebrauchen könnte.
Es prüft, welche User noch nicht ihr Standard PW im AD geändert haben, in dem es probiert mit dem im Script definierten PW auf einen anderen Rechner ein Netzlaufwerk zu mappen! Wenn das mappen klappt, hat der User noch das Standard PW.
Eigentlich echt genial. Nur bei mir wird in der Textdatei nichts angezeigt, obwohl etliche Ihr PW noch nicht geändert haben.
Die Datei wird IMHO auch viel zu schnell erzeugt (1 Sek.) Bei ca. 500 Usern finde ich das wohl viel zu schnell.
Vielleicht könnt Ihr ja mal ein Blick auf das Script werfen, ob da irgend ein Fehler drin ist.
Ich habe einen Ordner auf meinen PC frei gegeben für alle, und der soll dann gemappt werden.
01.
'Hier die einzelnen Variablen definieren  
02.
'DN der OU, die durchsucht werden soll  
03.
strDN = "OU=xxx,DC=xxx,DC=xxx,DC=xxx" 
04.
'Pfad zum Logfile, in dem die User mit Standardkennwort eingetragen werden  
05.
strLogPath = "c:\logfile.txt"  
06.
'UNC-Pfad, der zum Test gemappt werden soll  
07.
strTestUNC = "\\meinpc\testshare"  
08.
'Wie sieht das Standardkennwort aus?  
09.
strPass =  "xxxx"  
10.
'AB HIER NICHTS MEHR VERÄNDERN!  
11.
'===========================================================================  
12.
   
13.
Set objOU = GetObject ("LDAP://" & strDN)  
14.
objOU.Filter = Array("User")  
15.
Set objNet = CreateObject ("WScript.Network")  
16.
Set objFso = CreateObject("Scripting.FileSystemObject")  
17.
Set objTs = objFso.OpenTextFile(strLogPath, 2, True)  
18.
objTs.WriteLine Now  
19.
objTs.writeline("Folgende Benutzer verwenden noch " _  
20.
& "das initiale Kennwort:")  
21.
Set WshShell = WScript.CreateObject("WScript.Shell")  
22.
On Error Resume Next  
23.
For Each user In objOU  
24.
' Usernamen ausgeben  
25.
WScript.Echo user.Name  
26.
' Test: Laufwerk verbinden  
27.
objNet.MapNetworkDrive "X:", strTestUNC, _  
28.
, user.SamAccountName, strPass  
29.
' Fehler aufgetreten?  
30.
If Err.Number = 0 Then  
31.
' Nein, User protokollieren  
32.
objTs.writeline(user.Samaccountname)  
33.
Else  
34.
' Ja, Fehler anzeigen  
35.
WScript.Echo "Fehler " & Err.number _  
36.
& " (" & Err.Description & ") " _  
37.
& "bei User: " & user.Name  
38.
Err.Clear  
39.
End If  
40.
objNet.RemoveNetworkDrive "X:"
41.
Next
Mitglied: ISpawn
18.09.2007 um 15:22 Uhr
Hi,

ich glaub da fehlt nur ein Parameter

objNet.MapNetworkDrive "X:", strTestUNC, 0, "DOMAIN\USERNAME", "PASSWORT"

(die Ziffer 0)

Gruß
Micha
Bitte warten ..
Mitglied: llaprosper
18.09.2007 um 16:17 Uhr
Du meinst hier?
objNet.MapNetworkDrive "X:", strTestUNC, _
, user.SamAccountName, strPass

Frag nur, weil Du es leicht abgewandelt schreibst!
objNet.MapNetworkDrive "X:", strTestUNC, 0, "DOMAIN\USERNAME", "PASSWORT"

Hab es jetzt also so probiert und hat auch nichts in die txt rein geschrieben.

objNet.MapNetworkDrive "X:", strTestUNC, 0 _
, user.SamAccountName, strPass
Bitte warten ..
Mitglied: ISpawn
19.09.2007 um 07:27 Uhr
Hi,

laut msdn ( http://msdn2.microsoft.com/en-us/library/8kst88h6.aspx ) sieht die Syntax für MapNetworkDrive so aus:
object.MapNetworkDrive(strLocalName, strRemoteName, [bUpdateProfile], [strUser], [strPassword])

da du vbs verwendest musst du wenn du die [Optionalen] Parameter verwendest (AFAIK) alle verwenden.

was bringt dir denn eine MsgBox User.SamAccountName für eine Meldung ? eventuell stimmt der Parameter nicht.

Gruß
Micha
Bitte warten ..
Mitglied: llaprosper
19.09.2007 um 08:29 Uhr
Eine Fehlermeldung kommt gar nicht.
Ich muß dazu sagen, ich kenne mich gar nicht mit Scripten aus. Ich habe es nur im Netz gefunden.
http://faq-o-matic.net/blogs/faq-o-matic/archive/2007/01/23/standardken ...
Bitte warten ..
Mitglied: llaprosper
11.10.2007 um 12:10 Uhr
Hat noch jemand eine Idee, wie ich rausbekomme, wer das Standard Passwort benutzt?
Bitte warten ..
Ähnliche Inhalte
Windows Server
Domänenadmin PW
Frage von SYS64738Windows Server22 Kommentare

Hallo zusammen, ich habe heute mal test weise in meiner Testumgebung das Domänen Administrator PW meines MS 2016 Servers ...

CPU, RAM, Mainboards
Neuer PC mit 2x PCI-Stanard
gelöst Frage von KuemmelCPU, RAM, Mainboards4 Kommentare

Guten Morgen Kollegen, ist von euch jemand ein aktuelles PC-Modell bekannt, dessen Motherboard zwei PCI-Standard-Steckplätze hat? Ein Board mit ...

Windows Tools
LAPS Pw Anzeige
Frage von Adnan88Windows Tools2 Kommentare

Hallo, ich habe bei mir soeben LAPS auf dem DC installiert, nun habe ich aber folgendes Problem wenn ich ...

Windows 7
Bitlocker PW Hinterlegen
Frage von HanutaWindows 718 Kommentare

Hallo Zusammen, gibt es eine Möglichkeit wie bei Win10 das Bitlocker PW zu hinterlegen, das der User es nicht ...

Neue Wissensbeiträge
Windows 10

Windows 10 - Programme laufen schneller, wenn Sie mit Administratorrechten ausgeführt werden !

Erfahrungsbericht von 1Werner1 vor 5 StundenWindows 106 Kommentare

Moin, das wollte ich erst nicht glauben, aber es ist so. Wenn Ihr ein Programm mit Administratorrechten unter Windows ...

Sicherheits-Tools
Putty hat heftige Bugs korrigiert!
Information von Lochkartenstanzer vor 1 TagSicherheits-Tools5 Kommentare

Moin, Wie man aus herauslesen kann, sind in den Versionen vor 0.71 gravierende Bugs, die es angeraten erscheinen lassen, ...

Off Topic
Sachen die die Welt nicht braucht - Platz 1
Tipp von brammer vor 4 TagenOff Topic21 Kommentare

Hallo, ich habs als Tipp angelegt als Erfahrungsbericht nein Danke brammer

Humor (lol)
Spirit of Health-Kongress in Berlin
Information von AnkhMorpork vor 4 TagenHumor (lol)6 Kommentare

tgif! Beim dritten Spirit of Health-Kongress trafen sich am Wochenende Alternativmediziner und Naturheilkundler im Maritim Hotel Berlin, um sich ...

Heiß diskutierte Inhalte
Windows Server
Eingeschränkte Gruppen - Spezielle Benutzergruppe hinzufügen
Frage von killtecWindows Server17 Kommentare

Hallo, ich möchte gerne folgendes Realisieren: Ich habe bei mir Eingeschränkte Gruppen via GPO aktiv und möchte nun der ...

Microsoft Office
Videodateien auf Windows Server 2008 R2 öffnen schlägt fehl
Frage von SchroediMicrosoft Office13 Kommentare

Hallo zusammen, wir haben das Problem das embedded Videos in PowerPoint (O365) auf unserer Citrix Farm (6.5) nicht abgespielt ...

DNS
Größere DNS Probleme nach zweitem DC. Eigentlich sollte es auch dadurch besser werden
Frage von TeWutzDNS13 Kommentare

Hallo zusammen, nachdem ich letzte Woche erfolgreich einen zweiten DC ) an den Start gebracht habe melden sich weiterhin ...

LAN, WAN, Wireless
Switch als Verbindung von 2 Netzwerken
gelöst Frage von Lutz-ReLAN, WAN, Wireless12 Kommentare

Guten Tag Ich hab folgendes Problem 2 Rechner und 2 IP Kameras sind ohne dhcp in einen IP4 Netzwerk ...