上代码

我很久以前写的一个vbs脚本，用来管理windows下的mongo开启和关闭，备忘顺便分享下来：

' 公用函数
Function Is_Runing(ProcessName)
    On Error Resume Next
        strComputer = "."
        Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
        Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process Where Name = '" & ProcessName & "'")
        If colProcessList.Count>0 Then
            Is_Runing = true
        Else
            Is_Runing = false
        End If
End Function
sub Close_Process(ProcessName)
    On Error Resume Next
    for each ps in getobject("winmgmts:\\.\root\cimv2:win32_process").instances_
        if Ucase(ps.name)=Ucase(ProcessName) then
        ps.terminate
        end if
    next
end sub
sub Run_Back(cmd)
    Set ws = CreateObject("Wscript.Shell")
    ws.run cmd,vbhide
end sub
Process = "mongod.exe"
' 判断进程
If Is_Runing(Process) Then
    Tips = "√√√【已运行】"
Else
    Tips = "×××【未运行】"
End If
' 操作判断
Dim SelectValue
SelectValue = Msgbox("mongodb状态：" & Tips & VbCrlf & "点击【是】来强制启动mongodb，点击【否】强制结束mongodb", vbyesno, "mongodb进程管理 - hisune.com")
If SelectValue=vbYes Then
    Run_Back("cmd /c " & Process & " --dbpath=D:\mongo\data")
ElseIf SelectValue=vbNo Then
    Close_Process(Process)
End If

使用方法：

  1. 将你的mongodb\bin目录加入系统环境变量path中。
  2. 将代码中的D:\mongo\data替换成你的mongo data目录。
  3. 复制修改后的代码，保存为*.vbs文件即可。
  4. 双击*.vbs，管理的的mongo进程。

如果您觉得您在我这里学到了新姿势，博主支持转载，姿势本身就是用来相互学习的。同时，本站文章如未注明均为 hisune 原创 请尊重劳动成果 转载请注明 转自: Windows下的mongo启动/关闭vbs脚本 - hisune.com