Pagi ini aku males mo ngapa-ngapain ya akhirnya aku putuskan buat buka blok aku dan sekedar nulis-nulis.. lom tau apa yang mo ditulis tapi yah…. muncul ide untuk masukkan trik yang pernah aku coba beberapa taun yang lalu. mungkin sudah basi ya trik seperti ini. tapi gapapalah dari pada hanya nulis asal ngalor ngidul.. ya to??

langsung saja klik start==>run==>ketik notepad(tekan enter)
muncul tampilan notepad kan?

Nah ketikkan script dibawah ini
===============================================================

gantipassword()
sub gantipassword()
Dim NamaPengguna
Dim NamaKomputer
NK = InputBox(“Nama Komputer wahyu heri kuswanto:”,”Form Ubah Password”)
NP = InputBox(“Nama Pengguna:”,”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!”,vbInformation,”Form Ubah Password”
Else
Msgbox “Password Gagal Diubah!”,vbInformation,”Form Ubah Password”
End if
End Sub
==============================================================

simpan dengan nama wahyu.vbs
jalankan file tersebut.. isi sesuai perintah

kemudian restart komputer anda dan setelah di restart maka nama komputer dah sesuai dengan apa yang anda ketik tadi 🙂 🙂

selamat mencoba

Iklan