Mengubah nama komputer dengan script vb

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

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

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