我简化一下弄到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
复制代码
|