chpass.bas

修改 Network 网的密码

Attribute VB_Name = "modChPass"
Declare Function NWDSCreateContext Lib "netwin32" () As Long
Declare Function NWDSChangeObjectPassword Lib "netwin32" (ByVal context As Long, ByVal optionsFlag As Long, ByVal objectName As String, ByVal oldPassword As String, ByVal newPassword As String) As Long
Declare Function NWDSFreeContext Lib "netwin32" (ByVal context As Long) As Long

Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Public Const conSwNormal = 1
 
Declare Function NetUserChangePassword Lib "netapi32" (ByVal ComputerName As String, ByVal UserName As String, ByVal OldPass As String, ByVal NewPass As String) As Long
Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long