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

VB.NET: lokales Admin-Passwort ändern

Mitglied: sui

sui (Level 1) - Jetzt verbinden

23.06.2006, aktualisiert 02.07.2006, 10737 Aufrufe, 1 Kommentar

Programm zur Änderung des lokalen Administratorpasswortes auf Windows 2003 Server-Systemen per Scheduled Task

Hallo zusammen,

Ich habe mich im I-Net schon totgesucht.
Ich möchte ein Programm in Visual Studio 2003 selbst schreiben, womit ich per Scheduled Task auf Windows 2003 Server-Systemen das lokale Administratorpasswort anhand einer Übersicht, die im Programm mit eingefügt wird, ändern kann.
Mein Netzwerk besteht aus meherern Lokationen (z.B. Köln und Berlin), wo Server stehen. Jede Lokation hat ein anderes lokales Administratorpasswort. Das Programm soll das der Lokation zugehörige Passwort dem Administrator-Account zuweisen.

Für VBScript gibt es dafür folgenden Beispielcode:
Option Explicit
On Error Resume Next

Const strUsername = "Administrator"
Const strPassword = "111111"
Dim strLocalComputer
Dim objLocalUser

strLocalComputer = GetComputername()
If strLocalComputer <> "" Then
Set objLocalUser = GetObject("WinNT://" & strLocalComputer & "/" & strUsername & ",user")
If Not IsEmpty(objLocalUser) Then
objLocalUser.SetPassword strPassword
objLocalUser.SetInfo
End If
Set objLocalUser = Nothing
End If
WScript.Quit(0)

Function GetComputername()
On Error Resume Next
Dim objNetwork
Set objNetwork = CreateObject("WScript.Network")
If Not IsEmpty(objNetwork) Then
GetComputername = objNetwork.ComputerName
End If
Set objNetwork = Nothing
End Function
Das Problem, was ich nicht gelöst kriege, habe ich mit folgendem Absatz:
Set objLocalUser = GetObject("WinNT://" & strLocalComputer & "/" & strUsername & ",user")
If Not IsEmpty(objLocalUser) Then
objLocalUser.SetPassword strPassword
objLocalUser.SetInfo
Ich weiß nicht, welche Klasse und welche Methode ich benutzen muss um den VBScript-Code in VB.Net umzusetzen.
Ich hoffe ich konnte mein Problem einigermaßen verständlich schildern - falls nicht - löchert mich.

Wäre auf jeden Fall superklasse, wenn mir jemand von Euch helfen könnte.
Über Rückmeldungen würde ich mich sehr freuen.
Danke.

Grüße
Sui
Mitglied: jarod1701
02.07.2006 um 18:01 Uhr
Das geht über "System.DirectoryServices" (Verweis hinzufügen, per "Imports" den Namespace einbinden und dann mal googeln).
Sorry, das mit dem Googeln ist nicht böse gemeint, habe nur leider gerade kein Visual Studio in der Nähe, das Ganze sollte anfangen mit

Dim deUser As New DirectoryEntry("WinNT://MEINRECHNER/DerAdmin,user")

danach kannst du
per deUser.Invoke(...) das Passwort neu setzen.

Wenn's nicht auf Anhieb klappt, morgen sitz' ich wieder an 'nem VS
Bitte warten ..
Ähnliche Inhalte
Batch & Shell

Script Lokales Admin Passwort ändern

Frage von MaxBergBatch & Shell3 Kommentare

Hallo, ich möchte auf vielen Servern das lokale Admin Passwort per script ändern. Jeder Server muss ein anderes Passwort ...

Windows Server

Ändern des Passwortes eines Lokalen Admins über GPO

gelöst Frage von Yell-ingWindows Server15 Kommentare

Hallo Leute, ich bin neu in der Firma und werde die Administration bald übernehmen. Auf allen Clientrechnern wurde ein ...

Windows 10

Admin Passwort lässt sich nicht ändern

gelöst Frage von Caraboo75Windows 1017 Kommentare

Guten Tag . Habe Windows 10 heruntergeladen und ein Benutzerkonto mit Passwort festgelegt.Sobald ich ein Update mache, verlangt er ...

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 ...

Neue Wissensbeiträge
Windows 10

Mikrofon von Headset geht nach Update auf Windows 10 1803 nicht mehr

Tipp von Deepsys vor 5 StundenWindows 10

Ich verwende ein Plantronics Headset das per USB mit dem Windows 10 PC verbunden ist. Damit kann ich auch ...

Video & Streaming

Ruckelfreies Fernsehen auf Smartphone oder Tablet - in SD oder gar HD - Eine Alternative zum Fritz DVB-C Receiver

Anleitung von power-user vor 19 StundenVideo & Streaming5 Kommentare

Wer kennt das nicht: Man möchte gemütlich auf dem Balkon sitzen und vielleicht grillen und dabei das WM-Spiel gucken ...

Erkennung und -Abwehr
Trendmicro WFBS 10 ist in deutsch verfügbar!
Tipp von VGem-e vor 1 TagErkennung und -Abwehr3 Kommentare

Servus Kollegen, downloadbar unter

Windows Update

Microsoft Patchday Juni 2018 - BSOD, obwohl noch kein Patch freigegeben

Erfahrungsbericht von diemilz vor 1 TagWindows Update4 Kommentare

Hallo zusammen, wir hatten hier letzte Woche ein massives Problem. Alles begann damit, dass ein Mitarbeiter kurz vor Feierabend ...

Heiß diskutierte Inhalte
Windows Userverwaltung
User Überwachung
Frage von YellowcakeWindows Userverwaltung22 Kommentare

Hey ich habe von unserem neuem Datenschutzbeauftragten ein kleines Horror Paket bekommen. Ich soll wenn es möglich ist, das ...

Batch & Shell
Powershell Netzwerkdrucker auflisten
gelöst Frage von schiggi85Batch & Shell18 Kommentare

Hallo zusammen, ich möchte mit dem invoke-command bei einem remoteclient die installierten Netzwerkdrucker des Users abfragen. Nur klappt das ...

Outlook & Mail
Nachweis des Löschens einer Email nach DSGVO in Outlook
Frage von linuxadmOutlook & Mail18 Kommentare

Hallo Forum, wie wahrscheinlich viele von Euch kämpfe ich mit der Umsetzung der DSGVO bei meinen Kunden. Konkret geht ...

Video & Streaming
PVR-Projekt - RTSP - Streams auf NAS aufnehmen - welche Tools sind am leichtesten einzurichten ?
Frage von power-userVideo & Streaming15 Kommentare

Hallo zusammen, hier die Details zur obigen Frage: AAusgangspunkt / Grundvoraussetzungen Wir betreiben hier ein kleines Heimnetzwerk. 2 Smartphones, ...