您的位置:首页 > 编程语言 > VB

使用VB.NET更改WINDOWS 2000的密码

2003-07-11 17:31 495 查看
首先需要添加对System.DirectoryServices名域空间的引用,定位到"项目->添加引用

->.NET->System.DirectoryServices.dll",添加上即可.下面是代码部分:

Dim MyString As String = "WinNT://" + System.Security.Principal.WindowsIdentity.GetCurrent().Name.Replace("/", "/")
'System.Security.Principal.WindowsIdentity.GetCurrent().Name得到的是机器当前的用户名,比如:MyComputerName/Administrator
Dim MyDirectoryEntry As New DirectoryEntry(MyString)
MyDirectoryEntry.Invoke("setPassword", "newpassword")
'将当前用户的密码修改为"newPassword"
MyDirectoryEntry.CommitChanges()
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: