Change ANY users / user PASSWORD on the network / lan you are connected to

'PASTE THE FOLLOWING INTO ANY FORM...
'YOU MUST HAVE A COMMAND BUTTON
'NAMED 'COMMAND1'
Option Explicit
  
Private Declare Function NetUserChangePassword Lib "netapi32.dll" ( _
    ByVal domainname As String, ByVal Username As String, _
    ByVal OldPassword As String, ByVal NewPassword As String) As Long

Private Sub Command1_Click()
  On Error GoTo error
  Dim r As Long
  Dim sServer As String
  Dim sUser As String
  Dim sOldPass As String
  Dim sNewPass As String
  sServer = StrConv("\\jon", vbUnicode)
  sUser = StrConv("the_cleaner", vbUnicode)
  sOldPass = StrConv("password", vbUnicode)
  sNewPass = StrConv("password2", vbUnicode)
  r = NetUserChangePassword(sServer, sUser, sOldPass, sNewPass)
  If r <> 0 Then
    MsgBox "Error! Could not change password. Ensure that: " & vbCrLf & vbCrLf & _
        "o Old password was correct (Error 86)" & vbCrLf & _
        "o The server name started with '\\' (Error 1351)", vbCritical, "Error: " & r
  Else
    MsgBox "Password changed successfully!", vbExclamation, "Changed Password"
  End If
  Exit Sub
  
error:
  MsgBox "External error changing password: " & vbCrLf & vbCrLf & Err.Description, vbCritical, "Error: " & Err.Number
End Sub