Mengubah Password User di Windows

Mengubah Password User di Windows

Jika 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