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
GELÖST

Administrator Passwort mit SID ändern

Frage Entwicklung Batch & Shell

Mitglied: Luke61

Luke61 (Level 1) - Jetzt verbinden

10.02.2009, aktualisiert 11.02.2009, 6441 Aufrufe, 5 Kommentare

Hallo Zusammen,

erstmal ich bin neu hier. Ich hoffe das ich alle Regeln eingehalten habe. Und zwar ich suche ein Script welches das lokale Administrator Passwort ändert. Hört sich simple an aber da der lokale Administrator in jedem Land anders heißt muss man die SID zur Hilfe zu nehmen. Nach stundenlangen Googlen und durchlesen unzähliger Forenbeiträge habe ich ein Großteil des Scripts zusammenschustern können. Aber ich scheitere immer an einem Punkt - ich hoffe ihr könnt mir helfen.

Hier der Code:

...
Set WshNetwork = WScript.CreateObject("WScript.Network")
strComputer = WshNetwork.ComputerName

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colAccounts = objWMIService.ExecQuery _
("Select * From Win32_UserAccount Where LocalAccount = TRUE")

For Each objAccount in colAccounts
If Left (objAccount.SID, 6) = "S-1-5-" and Right(objAccount.SID, 4) = "-500" Then
Wscript.Echo objAccount1.Name

End If
Next



Set objUser = GetObject("WinNT://" & strComputer & ???)

objUser.SetPassword "newpasswort" ' <--- this will be the new admin password.
objUser.SetInfo

Mein Problem habe ich rot makiert, und zwar müsste statt "Wscript.Echo objAccount.Name" das Objekt in eine Variable "umgewandelt" werden damit ich es bei den ??? einsetzen und damit weiterarbeiten kann. Oder gibt es da noch eine andere Möglichkeit? Ich hoffe irgendjemand kann mir helfen!!!

Gruß Lukas
Mitglied: Biber
10.02.2009 um 18:06 Uhr
Moin Luke61,

willkommen im Forum.

Dein Schnipsel um die restlichen Puzzleteile ergänzt könnte so ungefähr aussehen.
01.
Set WshNetwork = CreateObject("WScript.Network")  
02.
strComputer = WshNetwork.ComputerName 
03.
 
04.
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") 
05.
 
06.
Set colAccounts = objWMIService.ExecQuery _ 
07.
("Select * From Win32_UserAccount Where LocalAccount = TRUE") 
08.
 
09.
For Each objAccount in colAccounts 
10.
If Left (objAccount.SID, 6) = "S-1-5-" and Right(objAccount.SID, 4) = "-500" Then 
11.
   strLocalAdminsName = objAccount.Name 
12.
   Wscript.Echo "Der lokale Administrator mit SID S-1-5-..-500 heiss t" & strLocalAdminsName 
13.
   Set objUser = GetObject("WinNT://" & strComputer & "/" & strLocalAdminsName, user") 
14.
 
15.
   ' #uncomment objUser.SetPassword "newpasswort" ' <--- this will be the new admin password.  
16.
   ' #uncomment objUser.SetInfo  
17.
End If 
18.
Next
Die beiden Setze-neues-Passwort-Zeilen habe ich erstmal auskommentiert ... brauchst Du ja zum Testen nicht.

Grüße
Biber
Bitte warten ..
Mitglied: Luke61
11.02.2009 um 09:52 Uhr
Guten Morgen Biber,

danke erstmal für deine schnelle Anwort.

Leider funktioniert das Script noch nicht richtig. Ich bekomme immer den Fehler "Nicht abgeschlossene Zeichenfolgekonstate" in Zeile 17 | Zeichen 87. Schließe ich diese Zeile allerdings aus bekomme ich den lokalen Administrator ausgegeben. Kann der Fehler dadurch entstehen das die Zeilen 15 | 16 auskommentiert sind? Und noch eine Frage, macht es eigentlich einen unterschied ob die Zeilen 13,15, 16 in bzw außerhalb der Schleife sind?

Viele Grüße
Lukas
Bitte warten ..
Mitglied: Biber
11.02.2009 um 17:27 Uhr
Moin Luke61,

sorry, so konnte és auch nicht funktionieren...

STREICHE: .
Set objUser = GetObject("WinNT://" & strComputer & "/" & strLocalAdminsName, user")
SETZE:
Set objUser = GetObject("WinNT://" & strComputer & "/" & strLocalAdminsName & ", user")

Ob die beiden mach-mir-dat-Passwort-Anweisungen innerhalb/außerhalb der FOR-EACH-Anweisung sind oder gar in eine kleine Funktion gekapselt werden ist rein philosophisch/ästhetisch zu entscheiden.

Es gibt ja genau eine Wellknown-SID mit dieser Endziffer -500, die den lokalen Adnim auszeichnet.
Ob der nun "Administrator" oder "Hugo" gerufen wird dagegen ist sprach- und computerabhängig.

Grüße
Biber
Bitte warten ..
Mitglied: Luke61
06.03.2009 um 10:26 Uhr
Hallo Biber,

vielen Dank für deine Hilfe. Mein Problem ist gelöst. =)

Sollte jemand das vollständige Script brauchen dann PM an mich

Gruß

Lukas
Bitte warten ..
Mitglied: Luke61
06.08.2009 um 09:23 Uhr
Zitat von Luke61:
Hallo Biber,

vielen Dank für deine Hilfe. Mein Problem ist gelöst. =)

Sollte jemand das vollständige Script brauchen dann PM an mich


Gruß

Lukas


Auf Grund einiger Nachfragen hier das komplette Script:

01.
'==========================================================================  
02.
'  
03.
'// NAME: Change local administator password with SID 
04.
 
05.
' ** Setup the variables and working environment for the script **  
06.
 
07.
Set WshNetwork = CreateObject("WScript.Network")  
08.
strComputer = "."  							'//Computer auf dem das Script ausgeführt wird  
09.
strComputer = WshNetwork.ComputerName 
10.
 
11.
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") 		 
12.
 
13.
Set colAccounts = objWMIService.ExecQuery _ 
14.
("Select * From Win32_UserAccount Where LocalAccount = TRUE") 		'//alle localen Accounts 
15.
 
16.
For Each objAccount in colAccounts 
17.
If Left (objAccount.SID, 6) = "S-1-5-" and Right(objAccount.SID, 4) = "-500" Then '		'//Schleife verlassen sobald ein Account mit "S-1..." anfängt und mit "-500" aufhört  
18.
												'//um den lokalen Administrator herauszufinden 
19.
   strLocalAdminsName = objAccount.Name '//Der lokale Adminname wird in geschrieben 
20.
 
21.
										 
22.
    
23.
form = Chr(7) & Chr(7) & Chr(9) & Chr(1) & Chr5) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & 	'//Passwort in Zahlen umkodiert um eine einfach Decodierung zu vermeiden ACHTUNG: Macht das Passwort nur für Lain unlesbar! Kann zurück kodiert werden 
24.
    
25.
   Set objUser = GetObject("WinNT://" & strComputer & "/" & strLocalAdminsName & ", user") 		 
26.
   objUser.SetPassword form 
27.
   objUser.SetInfo  
28.
End If 
29.
Next 
30.
 
Bei Bedarf kann man die vbs Datei noch in vbe "verschlüsseln", das Tool hierzu findet sich auf ms.com...
Bitte warten ..
Ähnliche Inhalte
Windows Userverwaltung
Domänen-Administrator Passwort ändern ohne Wirkung
gelöst Frage von conquestadorWindows Userverwaltung4 Kommentare

Hallo liebe Kollegen, ich betreue unter anderem einen Kunden, wo es mal wieder Zeit ist, aus Sicherheitsgründen die Passwörter ...

Windows Userverwaltung
Lokales Administrator-Passwort für alle PCs im LAN ändern
gelöst Frage von lasterWindows Userverwaltung9 Kommentare

Hallo, wir haben ca 100 PCs im LAN, die User haben keine lokalen Adminrechte. Nun sollen auf allen PCs ...

Windows 7
Administrator-Rechte bzw. Passwort
gelöst Frage von hanni123Windows 72 Kommentare

Hallo zusammen, wäre nett, wenn mir jemand helfen könnte. Folgende Frage: Wie kann ich ein Administrator-Kennwort (in Windows 7) ...

Windows Userverwaltung
Benutzer Passwort ändern und Exchange Passwort ändern
Frage von Abraham85Windows Userverwaltung2 Kommentare

Servus, ich habe mal eine blöde Frage, da ich zurzeit vor einem Problem stehe: Wir haben folgende Server im ...

Neue Wissensbeiträge
Microsoft Office

Office 2010 Starter wieder installieren auf einer frischen Windows-Installation

Tipp von Lochkartenstanzer vor 12 StundenMicrosoft Office

Moin, vor ein paar Tagen schlug bei mir ein Kunde auf, der sein Widnows 7 geschrottet und es inklusive ...

Datenbanken

Upgrade MongoDB 3.4 auf 3.6

Erfahrungsbericht von Frank vor 14 StundenDatenbanken

Seit kurzem gibt es das 3.6 Update für die MongoDB: Sicherheit, das Sortieren, Aggregation und auch die Performance wurde ...

SAN, NAS, DAS

Backdoor Zugang und Upload-Bug in vielen Western Digital MyCloud Geräten

Information von Frank vor 15 StundenSAN, NAS, DAS2 Kommentare

James Bercegay von der Firma Gulftech hat die Fehler an Western Digital gemeldet und das Unternehmen stellt bereits ein ...

Microsoft Office

Outlook 2016 - Beim Weiterleiten keine PDF Anhänge mehr - KB4011626 entfernen

Erfahrungsbericht von Deepsys vor 18 StundenMicrosoft Office1 Kommentar

Wenn ihr feststellt das ihr beim Weiterleiten von E-Mails keine PDF Anhänge mehr versendent, dann dankt Microsoft. Diese tolle ...

Heiß diskutierte Inhalte
Windows Netzwerk
Drucker isolieren in Windows Domäne
gelöst Frage von lcer00Windows Netzwerk14 Kommentare

Hallo zusammen, habe eine Windows-AD (2012R2) in der es einen Druckerserver gibt. Mittlerweile verliere ich das Vertrauen in die ...

Server-Hardware
Veeam Backup Server stürzt alle paar Tage ab
Frage von Leo-leServer-Hardware11 Kommentare

Hallo Forum, ich habe momentan folgendes Problem. Veeam Backup and Replication 9.5 u2 auf voll gepatchten DL 380 G7 ...

Windows 10
Win10 Laptop findet keine Netzwerkgeräte und Freigaben mehr
Frage von CoolzeroWindows 1010 Kommentare

Hi, seit ein paar Tagen habe ich das Problem das mein Windows 10 Laptop keine Geräte mehr in der ...

Batch & Shell
Dateien verschieben mit batch
gelöst Frage von michi-ffmBatch & Shell10 Kommentare

Hallo Zusammen hat jemand evtl eine Idee? Zunächst hier das Skript: Leider werden keine UNC-Pfade unterstüzt, kann mir jemand ...