|
Jum`at, 11 April 2025
H U S N I Sulawesi Selatan
30 April 2006
Mengubah Pass 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 ==============================================================
========================================================================================================== |
