1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

strComputer = "."

set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

set colOS = objWMI.InstancesOf("Win32_OperatingSystem")

Set shell = CreateObject("WScript.Shell") 

Do

  for each objOS in colOS

    strReturn = Round(((objOS.TotalVisibleMemorySize-objOS.FreePhysicalMemory)/objOS.TotalVisibleMemorySize)*100)

    if(strReturn > 90) Then

      shell.run("shutdown.exe -r -t 0")

    end if

    wscript.sleep 1000*1  //这个地方是每隔1秒检测内存使用率，如果要每小时就改成1000*3600

  next

Loop

把这段代码保存成vbs格式的文件，并添加开机自动启动，可以用组策略,

开始→运行→输入gpedit.msc。

用户配置→管理模板→系统→登录，在右边有个“在用户登录时运行这些程序”，选中刚才保存的vbs文件