merubah password windows

memakai komponen yang telah disediakan oleh windows yaitu "Netapi32.dll",
source :
//

'Copyright by hendrik
Option Explicit
Private Declare Function NetUserChangePassword Lib "Netapi32.dll" _
(Domain As Any, User As Any, OldPass As Byte, NewPass As Byte) As Long

Private Sub Command1_Click()
Dim H As Long
Dim bServer() As Byte, bUsername() As Byte
Dim bold() As Byte, bNew() As Byte

' Masukan nama computer yg akan diganti passwordnya
bServer = "\\192.168.0.1" & vbNullChar

'Nama user yg akan diganti passwornya
bUsername = "Administrator" & vbNullChar 'Password lama bold = "123" & _
vbNullChar 'Password Baru bNew = "root" & _
vbNullChar H = NetUserChangePassword(bServer(0), bUsername(0), bold(0), bNew(0))
If H = 0 Then
MsgBox "Password telah diganti dengan yang baru",64
Else
MsgBox "penggantian password gagal",16
End If

End Sub
//
ini cuman buat pengetahuan jadi jangan disalahgunakan