9zhmke

我简化一下弄到D盘的：

Function SetPageFile()'设置页面文件
  Set colDrives = objFSO.Drives
  drvnum=0
  For Each objDrive in colDrives
   if objDrive.DriveType=2 then drvnum=drvnum+1:if objDrive.DriveLetter="D" then t3=objDrive.FreeSpace
  Next
  if int(t3/1024/1024) < 4096 then SetPageFile="D盘空间太小":返回
  Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate, (CreatePagefile, Shutdown)}!\\.\root\cimv2")
  Set colPageFiles = objWMIService.ExecQuery("Select * from Win32_PageFileSetting")
  For Each objPageFile in colPageFiles
    objPageFile.Delete_()
  Next
  Set objPageFile = objWMIService.Get("Win32_PageFileSetting").SpawnInstance_()
  objPageFile.Name = "d:\pagefile.sys"
  if int(t3/1024/1024) < 8000 then 
      SetPageFile="D盘小于8G"
      objPageFile.InitialSize = 1024 'MinSize
      objPageFile.MaximumSize = 1024 'MaxSize
      'SetPageFile="1024"
  else
      objPageFile.InitialSize = 2048 'MinSize
      objPageFile.MaximumSize = 2048 'MaxSize
      'SetPageFile="2048"
  end if
  objPageFile.Put_()
  SetPageFile="ok"
End Function
复制代码