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

VB.NET: lokales Admin-Passwort ändern

Frage Entwicklung Visual Studio

Mitglied: sui

sui (Level 1) - Jetzt verbinden

23.06.2006, aktualisiert 02.07.2006, 10694 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 (3)

Frage von MaxBerg zum Thema Batch & Shell ...

Windows Userverwaltung
gelöst Lokalen Bentuzer Kennwort Ändern (9)

Frage von Adnan88 zum Thema Windows Userverwaltung ...

CMS
gelöst Wordpress Admin-URL ändern (13)

Frage von MegaGiga zum Thema CMS ...

Windows 10
gelöst Windows 10 deaktivierte den lokalen Admin - wie kann ich das unterbinden? (15)

Frage von seppmairhubr zum Thema Windows 10 ...

Neue Wissensbeiträge
Windows Server

Umstellung SHA 1 auf SHA 2 - Migration der CA von CSP auf KSP

Tipp von Badger zum Thema Windows Server ...

Windows 10

Quato DTP94 unter Windows 10 x64 installieren und verwenden

Anleitung von anteNope zum Thema Windows 10 ...

Windows 10

Win10 1703 und Nutzerkennwörter bei Ersteinrichtung - erstaunliche Erkenntnis

(15)

Erfahrungsbericht von DerWoWusste zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Server-Hardware
HP DL380 G7: Booten vom USB via USB 3.1-PCI-e Karte möglich? (24)

Frage von Paderman zum Thema Server-Hardware ...

Windows 7
Bluesreens unternehmensweit (18)

Frage von SYS64738 zum Thema Windows 7 ...

LAN, WAN, Wireless
IP Adressen - Modem - Switch - Accesspoint (17)

Frage von teuferl82 zum Thema LAN, WAN, Wireless ...

Windows Netzwerk
DNS ins mehreren Subnetzen (13)

Frage von joerg zum Thema Windows Netzwerk ...