使用VB.NET更改WINDOWS 2000的密码 (转)[@more@]
首先需要添加对System.DirectoryServices名域空间的引用，定位到"项目->添加引用
->.NET->System.DirectoryServices.dll",添加上即可.下面是代码部分：
Dim MyString As String = "WinNT://" + System.Security.Principal.windowsidentity.GetCurrent().Name.Replace("", "/")
'System.Security.Principal.WindowsIdentity.GetCurrent().Name得到的是机器当前的用户名，比如:MyComputerNameAdministrator
Dim MyDirectoryEntry As New DirectoryEntry(MyString)
MyDirectoryEntry.Invoke("setPassword", "newpassword")
'将当前用户的密码修改为"newPassword"
MyDirectoryEntry.CommitChanges()
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/10752019/viewspace-982779/ ，如需转载，请注明出处，否则将追究法律责任。
请登录后发表评论
登录
全部评论
