Page File Windows 7

[serverguy78]

Hello I have a page file script that works fine in Windows XP. However it doesn't work at all in Windows 7. Can someone help me?

strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colPageFiles = objWMIService.ExecQuery("Select * from Win32_PageFileSetting")
For Each objPageFile in colPageFiles
objPageFile.InitialSize = 2046
objPageFile.MaximumSize = 4092
objPageFile.Put_
Next

 

[MasterRacker]

Are you running the script as an administrator? (Simply being logged in under and administrator ID is not the same.)

Jeff
[small][purple]It's never too early to begin preparing for [/purple]International Talk Like a Pirate Day
"The software I buy sucks, The software I write sucks. It's time to give up and have a beer..." - Me[/small]