Anaconda

Mengubah Password User di Windows
mailto:?subject=Mengubah Password User di Windows&body=http://www.jasakom.com/article.aspx?ID=683Jika anda berpikir untuk membuat modul mengganti password windows secara remote, maka ini adalah function yang anda perlukan. Di artikel ini disharing source code function yang bekerja dengan API dari windows untuk mengganati password user.

To the point, untuk para teman-teman yang ada di Jasakom saya ingin membagikan sedikit tips bagaimana mengganti password dari user-user yang ada di Windows. Adapun tools ini dibuat dari Visual Basic 6 Dimana Tools ini dapat mengganti password dari Administrator,guest,etc secara remote atau
beda komputer Dengan tools ini maka kita bisa mengakses komputer orang lain setelah password admin nya kita ganti...smoga ilmu ini tidak
disalah gunakan

Tools ini bekerja dengan memakai komponen yang telah disediakan oleh windows yaitu "Netapi32.dll",
Berikut ini saya serta kan source dari tools ini:
--------------------------------------------------------------------------------------------
'Copyright by x-vb@jhie
'http://www.vbbego.cjb.net
'Penulis: x-vb@jhie - 7/21/2004

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