Option Explicit

Dim strComputer

Dim objSWbemLocator
Dim objSWbemServicesEx
Dim objSWbemObjectEx


strComputer = "."

Set objSWbemLocator    = WScript.CreateObject("WbemScripting.SWbemLocator")
Set objSWbemServicesEx = objSWbemLocator.ConnectServer(strComputer, "root\cimv2")

objSWbemServicesEx.Security_.Privileges.AddAsString "SeCreatePagefilePrivilege", True

For Each objSWbemObjectEx In objSWbemServicesEx.InstancesOf("Win32_ComputerSystem")
    With objSWbemObjectEx
        .AutomaticManagedPagefile = False
        .Put_
    End With
Next


For Each objSWbemObjectEx In objSWbemServicesEx.InstancesOf("Win32_PageFileSetting")
    objSWbemObjectEx.Delete_
Next

With objSWbemServicesEx.Get("Win32_PageFileSetting").SpawnInstance_
    .Name = "C:\\pagefile.sys"
    .InitialSize = 4096
    .MaximumSize = 4096
    
    .Put_
End With

Set objSWbemObjectEx   = Nothing
Set objSWbemServicesEx = Nothing
Set objSWbemLocator    = Nothing

WScript.Quit 0