mengubah password windows dengan vbs

komputer kantor kamu dikerjain orang terus passwordnya diganti dan singkat cerita kamu enggak bisa login dan mau diremove passwordnya ga ada cd hirent jangan takut ada solusinya untuk mendapatkan lagi account mu semudah mengedipkan mata...

1.pinjem komputer teman yang satu jaringan dengan komputer kamu

2.dikomputer yang kamu pinjam harus di account administrator

3.buka notepad dan copykan script dibawah ini lalu simpan dengan nama yang dinginkan contoh gantipasword.vbs tapi sebelum disave jangan lupa ganti save as type text documents dengan all files

gantipassword()
sub gantipassword()
Dim NamaPengguna
Dim NamaKomputer
NK = InputBox("Nama computer/ip computer target:","Form Ubah Password")
NP = InputBox("Nama account yang ingin diubah:","Form Ubah Password")
Set pengguna = GetObject("WinNT://" & NK & "/"& NP &"",pengguna)
Dim PasswordBaru
PasswordBaru = InputBox("Password Baru:","Form Ubah Password")
Call pengguna.SetPassword(PasswordBaru)
If err.number = 0 Then
Msgbox "Password Sukses Diubah,kunjungi lagi http://tokoaslionline.blogspot.com/",vbInformation,"Form Ubah Password"
Else
Msgbox "Password Gagal Diubah!",vbInformation,"Form Ubah Password"
End if
End Sub

(jika anda sudah mengikuti langkah diatas dengan benar maka script sudah bisa digunakan)

cara pemakaian script
i. klik 2 kali script vbs yang sudah dibuat tersebut

ii. maka akan muncul form yang meminta anda memasukan Nama computer/ip computer yang akan diganti paswordnya

iii.anda diminta memasukan nama account anda yang paswordnya akan di ubah

iV. muncul form yang meminta anda memasukan pasword baru,jika sudah di isi klik ok

v. jika muncul form beruliskan Password Sukses Diubah,kunjungi lagi http://tokoaslionline.blogspot.com maka anda sudah berhasil mereset atau mengganti password tersebut

semua tutorial yang dibuat diblog ini sudah dilakukan pengujian dan 100% berhasil,jika ingin mengcopy artikel ini keblog anda sertakan alamat blog ini

Artikel Menarik Lainnya:

tutorial registry

• cara mengembalikan registry yang rusak
• tinggal klik menu run, Registry, Cmd, Find dan Hidden folder langsung aktif
• Menonaktifkan Fungsi AutoRun
• backup registry
• menghilangkan menu open with
• Pindah Direktori Spool

tutorial vbs script

• cara mengembalikan registry yang rusak
• tinggal klik menu run, Registry, Cmd, Find dan Hidden folder langsung aktif
• Menonaktifkan Fungsi AutoRun
• backup registry
• menghilangkan menu open with
• Pindah Direktori Spool