使用VB.NET更改WINDOWS 2000的密碼 (轉)

使用VB.NET更改WINDOWS 2000的密碼 (轉)[@more@]

首先需要新增對System.DirectoryServices名域空間的引用，定位到"專案->新增引用

->->System.DirectoryServices.dll",新增上即可.下面是程式碼部分：

Dim MyString As String = "WinNT://" + System.Security.Principal.ntity.GetCurrent().Name.Replace("", "/")
 'System.Security.Principal.WindowsIdentity.GetCurrent().Name得到的是機器當前的名，比如:MyComputerNameAdministrator
Dim MyDirectoryEntry As New DirectoryEntry(MyString)
MyDirectoryEntry.Invoke("setPass", "newpassword")
 '將當前使用者的密碼修改為"newPassword"
MyDirectoryEntry.CommitChanges()