Change Name User Acount Manual And Simple VBScript

Mengganti nama user acount computer secara manual dan sederhana vbscript. Script di buat menggunakan notepad sederhana dengan ekstensi vbs.
Untuk scrip ganti nama user acount sederhana dan manual ini bisa di lihat di bawah ini

---

Option Explicit Dim objShell, Racey, intCount Set objShell = CreateObject("WScript.Shell") WScript.Sleep 500 objShell.SendKeys "^{ESC}" WScript.Sleep 500 objShell.SendKeys "R" WScript.Sleep 500 objShell.SendKeys "n" WScript.Sleep 500 objShell.SendKeys "u" WScript.Sleep 500 objShell.SendKeys "s" WScript.Sleep 500 objShell.SendKeys "r" WScript.Sleep 500 objShell.SendKeys "m" WScript.Sleep 500 objShell.SendKeys "g" WScript.Sleep 500 objShell.SendKeys "r" WScript.Sleep 500 objShell.SendKeys "." WScript.Sleep 500 objShell.SendKeys "c" WScript.Sleep 500 objShell.SendKeys "p" WScript.Sleep 500 objShell.SendKeys "l" Wscript.Sleep 500 objShell.SendKeys "{TAB}" Wscript.Sleep 500 objShell.SendKeys "{ENTER}" Wscript.Sleep 500 objShell.SendKeys "{TAB}" Wscript.Sleep 500 objShell.SendKeys "{ENTER}" Wscript.Sleep 500 objShell.SendKeys "{TAB}" Wscript.Sleep 500 objShell.SendKeys "{ENTER}" Wscript.Sleep 500 objShell.SendKeys "{TAB}" Wscript.Sleep 500 objShell.SendKeys "{ENTER}" Wscript.Sleep 500 objShell.SendKeys "B" Wscript.Sleep 500 objShell.SendKeys "E" Wscript.Sleep 500 objShell.SendKeys "B" Wscript.Sleep 500 objShell.SendKeys "E" Wscript.Sleep 500 objShell.SendKeys "C" Wscript.Sleep 500 objShell.SendKeys "K" Wscript.Sleep 500 objShell.SendKeys "H"   Wscript.Sleep 500 objShell.SendKeys "{TAB}"  Wscript.Sleep 500 objShell.SendKeys "{TAB}"  Wscript.Sleep 500 objShell.SendKeys "{TAB}" Wscript.Sleep 500 objShell.SendKeys "{ENTER}" Wscript.Sleep 500 objShell.SendKeys "%{F4}" WScript.Sleep 500 objShell.SendKeys "^{ESC}" WScript.Sleep 500 objShell.SendKeys "{ESC}" WScript.Sleep 500 objShell.SendKeys "^{ESC}" WScript.Sleep 500 objShell.SendKeys "{ESC}" WScript.Sleep 500 objShell.SendKeys "^{ESC}" WScript.Sleep 500 objShell.SendKeys "{ESC}" WScript.Sleep 500 objShell.SendKeys "^{ESC}" WScript.Sleep 1000 MsgBox "user acount nya sudah di ganti"

---

Save as dengan ekstensi VBS