幻兽帕鲁 vbs 检测服务器内存到达阈值 自动重启进程

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")

Do
    Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
    For Each objItem in colItems
        memInKB = Round(objItem.FreePhysicalMemory / 1024, 0)
        If memInKB < 2000 Then
            Set colProcesses = objWMIService.ExecQuery("Select * from Win32_Process Where Name = 'PalServer-Win64-Test-Cmd.exe'")
            For Each objProcess in colProcesses
                objProcess.Terminate()
            Next
            WScript.Sleep 10000
            Set objShell = CreateObject("WScript.Shell")
            objShell.Run "D:\SteamLibrary\steamapps\common\PalServer\PalServer.exe", 0, False
        End If
    Next
    ' 延迟5秒后再次检查内存
    WScript.Sleep 1000
Loop

memInKB < 1000 修改的阈值 比如这里 1000 就是100M
objShell.Run “D:\SteamLibrary\steamapps\common\PalServer\PalServer.exe”, 0, False 这里是路径