Source Code VB 6.0 Ubah Password Windows XP


img1 Aplikasi VB untuk ubah password windows XP. Aplikasi ini di hanya bisa digunakan pada wondows XP dan Account usernya Administrator.

Pada form ketik code di bawah ini:
‘–Command Button1 —
Private Sub Command1_Click()
‘hapus textbox1
Text1.Text = “”
‘hapus textbox2
Text2.Text = “”
‘hapus textbox3
Text3.Text = “”
End Sub
‘–CommandButton2–
Private Sub Command2_Click()
On Error Resume Next
Dim NK, NP, Pengguna, PasswordBaru
‘NK(Computer Name)=Textbox1
NK = Text1.Text
‘NP(User Name)=Textbox2
NP = Text2.Text
‘PasswordBaru(New Password)=Textbox3
PasswordBaru = Text3.Text
Set Pengguna = GetObject(“WinNT://” & NK & “/” & NP & “”)
Call Pengguna.SetPassword(PasswordBaru)
If Err.Number = 0 Then
MsgBox “Password Sukses Diubah!”, vbInformation, “Ubah Password”
Else MsgBox “Password Gagal Diubah!”, vbInformation, “Ubah Password”
End If
End Sub

Catatan: Anda dapat memodifikasi sendiri codingnya atau tampilan form1 sesuai dengan kreatif masing-masing.
(—Selamat Mencoba—)

Iklan

Satu pemikiran pada “Source Code VB 6.0 Ubah Password Windows XP

Tinggalkan Balasan

Please log in using one of these methods to post your comment:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s