VB程序更改管理员密码（代码）

来源：百度知道 编辑：UC知道 时间：2024/06/28 16:18:58
VB写一程序，要求在已经用管理员权限登陆系统的情况下，更改指定用户的密码。我不想调用cmd.exe再用net…命令，我要直接的，谁能完成给100分！手机不能直接给100分，如果你会，我分五次给你分，不过你得留下Q号，以便找你。

试试这个函数 不知道行不行 很久前用过得了 手头没VB 没测试
不过你说的貌似是说vb6的 估计是用不上了

''' <summary>修改密码</summary>
''' <param name="OldPassword">旧的密码</param>
''' <param name="NewPassword">新的密码</param>
Public Function ChangePassword(ByVal OldPassword As String, ByVal NewPassword As String) As Boolean
Try
Dim Dte As New DirectoryEntry("WinNT://yourdirectoryserver/TheUsername,User")
Dte.Invoke(OldPassword, NewPassword)
Dte.CommitChanges()
Return True
Catch
Return False
End Try
End Function

用得着那么复杂吗？还cmd...什么的，自己写的程序还有什么不好改的

直接执行一条sql语句就行了

dim sql as string
sql="update [用户表] set [口令字段]=****** where [用户名]=你指定的用户"

比如我有数据库表 userinfo
用户名字段 user_name 口令字段 user_pass
用户界面有文本框 text1 输入