Home > Coretan Pribadi Gw, TIPS & TRICK > Cara Mereset Password Administrator

Cara Mereset Password Administrator

copy tulisan ini ke notepad, trus save as dengan extensi .vbs
(gantipswd.vbs) untuk menjalankannya tinggal klik 2kali hasil save nya…

ganti()
sub ganti()
dim namapengguna
dim namakom
namakom=InputBox(”Masukkan Nama Komputer: klik ‘my Computer’ propertis,
tab ‘computer name’, copy ‘full computer name’ :”,”Aplikasi ganti (1/3)”)
namapengguna=InputBox(”Masukkan Nama Pengguna: biasanya
‘administrator’”,”Aplikasi ganti (2/3)”)
Set
pengguna=GetObject(”WinNT://”&namakom&”/”&namapengguna&””,pengguna
)
Dim passwordbaru
passwordbaru=InputBox(”Masukkan Password Baru:”,”Aplikasi ganti (3/3)”)
Call pengguna.SetPassword(passwordbaru)
If err.number=0 then
MsgBox “Password SUKSES Di ubah !!!”,VbInformation,”Aplikasi ganti
(selesai)”
else
MsgBox “Password GAGAL Di ubah”,VbInformation,”Aplikasi ganti (gagal) ”
end if
end sub

  1. No comments yet.
  1. No trackbacks yet.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: