关闭开启oracle服务

最新推荐文章于 2021-08-03 14:19:02 发布

余张的故事

最新推荐文章于 2021-08-03 14:19:02 发布

阅读量291

点赞数

分类专栏： the-little 文章标签： oracle 脚本

本文链接：https://blog.csdn.net/fututadeyoushang/article/details/50949973

版权

the-little 专栏收录该内容

12 篇文章 0 订阅

订阅专栏

大家都知道Oracle是很占用内存的,电脑稍微差点开机关机都卡半天.所以可以写一个自动检测关闭开启Oracle服务的vbs脚本
代码如下:

set ws =CreateObject(“wscript.shell”)
‘set src=getobject( “winmgmts:root/cimv2” ).execquery(“select * from ‘win32_service” )
‘for each i in src.name
‘msgbox i
‘next
‘If InStr(1,src,”oracle.exe”)=0 Then
‘ws.run “net start oracleserviceorcl”
‘ws.run “net start OracleOraDb11g_home1TNSListener”
‘else
‘ws.run “net stop oracleserviceorcl”
‘ws.run “net stop OracleOraDb11g_home1TNSListener”
‘end if

Dim WMI,Objs,Process
i = 0
Set WMI=GetObject(“WinMgmts:”)
Set Objs=WMI.InstancesOf(“Win32_Process”)
Process=”“

For Each Obj In Objs
Process = Obj.Description
if Process = “oracle.exe” then
i = i + 1
else
end if
Next

if i = 0 then
ws.run “net start oracleserviceorcl”
ws.run “net start OracleOraDb11g_home1TNSListener”
else
ws.run “net stop oracleserviceorcl”
ws.run “net stop OracleOraDb11g_home1TNSListener”
end if

最后保存为vbs文件即可