1,451
社区成员
发帖
与我相关
我的任务
分享
'regDll.vbs
on error resume next
sFile=Wscript.arguments(0)
if sfile="" then wscript.quit
set objShell=CreateObject("WScript.Shell")
objShell.Run "regsvr32 " & chr(34) & sFile & chr(34)
set objShell=nothing
'DeleteDll.vbs
on error resume next
sFile=wscript.arguments(0)
if sFile="" then wscript.quit
ext=mid(sfile,instrrev(sfile,".")+1)
'if lcase(ext) <> "dll" then wscript.quit
sName=mid(sFile,instrRev(sfile,"\")+1)
set objShell=createObject("Wscript.Shell")
sCmd="%comspec% /k COLOR 1A "
sCmd=sCmd & "&& @echo 正在结束所有调用" & sFile & "的进程... "
sCmd=sCmd & "&& taskkill /f /fi " & chr(34) & "MODULES EQ " & sName & chr(34) & " /im * "
sCmd=sCmd & "&& @echo 正在反注册" & sFile & " "
sCmd=sCmd & "&& regsvr32 /u " & chr(34) & sFile & chr(34) & " "
sCmd=sCmd & "&& del /p " & chr(34) & sFile & chr(34) & " "
sCmd=sCmd & "&& pause "
sCmd=sCmd& "&& exit"
objshell.run sCmd
set objShell=nothing