Cool! "Monitor Page File Use" script

[TweakHound]

Found it HERE.
copy and paste whats in the gray box to notepad and save as pf.vbs.. Double click on the file you saved and check it out.
Lots of cool stuff like this at the TechNet Script Center

This page contains a list of sample scripts used to add, modify, enumerate, identify, and monitor disks and file systems in Windows 2000, Windows XP, and Windows Server 2003 (unless specified otherwise).

• Add a Disk Quota Entry

• Add a Volume Mount Point

• Add an Indexing Service Catalog

• Add an Indexing Service Scope

• Analyze Volume Defragmentation

• Associating Disk Partitions with Physical Disk Drives

• Bind to a Specific Disk Drive

• Change the Drive Letter of a Volume

• Change Volume Names

• Configure Disk Quota Settings

• Configure Page File Properties

• Configure the Indexing Service to Autostart

• Create a Dfs Node

• Defragment a Volume

• Delete a Disk Quota Entry

• Dismount a Volume

• Enable Disk Quotas

• Enabling Disk Quotas on the Local Computer

• Ensure that All Drives are Ready

• Enumerate Available Disk Space

• Enumerate Dfs Nodes

• Enumerate Dfs Targets

• Enumerate Disk Drive Properties Using FSO

• Enumerate Disk Partition Properties

• Enumerate Disk Quota Settings

• Enumerate Disk Quotas

• Enumerate Disk Space by User Using Disk Quotas

• Enumerate Floppy Drives

• Enumerate Indexing Service Catalogs

• Enumerate Indexing Service Scopes

• Enumerate Logical Disk Drive Properties

• Enumerate NTFS Properties

• Enumerate Page File Properties

• Enumerate Physical Disk Properties

• Enumerate Volume Mount Points

• Enumerate Volume Properties

• Enumerating CD-ROM Properties

• Enumerating Disk Quota Settings on the Local Computer

• Enumerating Disk Quotas on the Local Computer

• Enumerating Disk Space by User on the Local Computer

• Enumerating Floppy Disk Drive Properties

• Format a Volume

• Identify Drive Types

• Identify the File System Type

• Identify the Indexing Service State

• Modify a Disk Quota Entry

• Modify File System Properties

• Modify the AutoChk Timeout Value

• Monitor Logical Disk Drive Performance

• Monitor NTFS File Cache Performance

• Monitor Page File Use

• Monitor Physical Disk Drive Performance

• Monitor Volume Change Events

• Mount a Volume

• Pause the Indexing Service

• Prevent AutoChk From Running

• Query the Indexing Service for File Names

• Remove an Indexing Service Catalog

• Remove an Indexing Service Scope

• Resume the Indexing Service

• Retrieve Floppy Controller Information

• Retrieve IDE Controller Information

• Retrieve Information About Mapped Network Drives

• Retrieve IP4 Route Table Information

• Retrieve SCSI Controller Information

• Retrieve USB Controller Information

• Retrieve USB Hub Information

• Return a Disk Drive Collection

• Run ChkDsk

• Schedule AutoChk

• Search the Indexing Service

• Start the Indexing Service

• Stop the Indexing Service

• Use a Free Text Search with the Indexing Service

• Use a Predefined Indexing Service Query

• Verify ChkDsk Volume Status

[CrowdAds]

[keitaro-]

nice link

thanks

[KingTermite]

Coolio...neat!

I modified the script to put all info in one screen instead of a bunch consecutively.

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colPageFiles = objWMIService.ExecQuery _
    ("Select * from Win32_PageFileUsage")
For each objPageFile in colPageFiles
    Wscript.Echo "AllocatedBaseSize: "& vbTab &  objPageFile.AllocatedBaseSize &Chr(13)&Chr(10) _ 
    & "CurrentUsage: "& vbTab &  objPageFile.CurrentUsage &Chr(13)&Chr(10) _ 
    & "Description: "& vbTab &  objPageFile.Description	&Chr(13)&Chr(10) _ 
    & "InstallDate: "& vbTab &  objPageFile.InstallDate	&Chr(13)&Chr(10) _ 
    & "Name: "& vbTab &  objPageFile.Name	&Chr(13)&Chr(10) _ 
    & "PeakUsage: "& vbTab &  objPageFile.PeakUsage	 
Next

Do same as instructions above, but with this tweaked version.

[TweakHound]

KT, YOU DA MAN!!!

[KingTermite]

Originally posted by TweakHound
KT, YOU DA MAN!!!

Don't make me prove that...it's not pretty!

[TweakHound]

Originally posted by KingTermite
Don't make me prove that...it's not pretty!

Mods - I'd like to nominate KT's script as a sticky.

[KingTermite]

Originally posted by TweakHound


Mods - I'd like to nominate KT's script as a sticky.

First, it's not MY script...I just destupified its presentation.

Second...instead of another sticky....things like this should go over in "articles" or "downloads" which NEVER get used and SHOULD! IMO anyway...

[TweakHound]

You can submit it to the downloads section at http://www.abxzone.com/download.php?op=AddDownload .
Let me know if you need a server to put it on.

[KingTermite]

Why don't we just post it in the (already sticky) Coolest Utilities thead?

[TweakHound]

p.s. - I have 3 page files, what should I change to display all 3 at once?

[KingTermite]

Originally posted by TweakHound
p.s. - I have 3 page files, what should I change to display all 3 at once?

No idea...I don't know the object (or even vbscript for that matter)


But.....My educated guess is this:

For each objPageFile in colPageFiles
appears to be "trying" to display all page files...my guess is you would probably need to figure out some way of changing how "colPageFiles" was initialized.

It kind of looks like it *should* be doing this already....or else I don't know why he was doing a foreach loop in the first place.

[TweakHound]

KT's Cool Page File Monitor

I'll play around with the code. Programming genius that I am.

[KingTermite]

Originally posted by TweakHound
KT's Cool Page File Monitor

I'll play around with the code. Programming genius that I am.

The key would be to try to find documentation on those objects being used....it may have info in there.

If you find the doucmentation...PM it along, and maybe I'll play with it some time when I have a free few hours to tinker.

[KingTermite]

Hehe....this was fun....

Here is another script to list all your network shares...I found it here:
http://www.activexperts.com/activmon...les/wmiremote/

Had to modify this one too.....

Option Explicit

ListShares()

Sub ListShares()
    Dim strObject
    Dim colShares
    Dim objWMIService, objShare
    Dim ShareNames

    Set objWMIService = GetObject( "winmgmts:" )
    Set colShares = objWMIService.ExecQuery( "Select * from Win32_Share" )
    
    For Each objShare In colShares
        ShareNames = ShareNames & objShare.Name & " [" & objShare.Path & "]" & Chr(13) & Chr(10)
    Next
    
    Wscript.Echo ShareNames
End Sub

[KingTermite]

Here was a page with more fun vbs (and perl) stuff:

http://www.tc.cornell.edu/services/e...ore.asp#Sec1.1

Taken from that page (as is, no modifications needed):


A sysinfo script.

'***************************************************************************
' 
' 10-07-01
' Simple VB Script to illustrate use of WMI to gather system information
' and display it in the same format at the Windows Management Console
'
'***************************************************************************
Set SystemSet = GetObject("winmgmts:").InstancesOf ("Win32_ComputerSystem")
for each System in SystemSet
	system_name = System.Caption 
        system_type = System.SystemType
	system_mftr = System.Manufacturer
	system_model = System.Model
next

Set ProcSet = GetObject("winmgmts:").InstancesOf ("Win32_Processor")
for each System in ProcSet
	proc_desc = System.Caption 
	proc_mftr = System.Manufacturer
	proc_mhz = System.CurrentClockSpeed
next

Set BiosSet = GetObject("winmgmts:").InstancesOf ("Win32_BIOS")
for each System in BiosSet
	bios_info = System.Version
next

Set ZoneSet = GetObject("winmgmts:").InstancesOf ("Win32_TimeZone")
for each System in ZoneSet
	loc_timezone = System.StandardName
next

Set OS_Set = GetObject("winmgmts:").InstancesOf ("Win32_OperatingSystem")
for each System in OS_Set
	os_name = System.Caption
        os_version = System.Version
	os_mftr = System.Manufacturer
	os_build = System.BuildNumber
	os_dir = System.WindowsDirectory
        os_locale = System.Locale
	os_totalmem = System.TotalVisibleMemorySize
	os_freemem = System.FreePhysicalMemory
        os_totalvirmem = System.TotalVirtualMemorySize
	os_freevirmem = System.FreeVirtualMemory
	os_pagefilesize = System.SizeStoredInPagingFiles
next

strResponseText = ("OS Name:  " & os_name & Chr(10))
strResponseText = strResponseText & ("Version:  " & os_version & " Build " & os_build & Chr(10))
strResponseText = strResponseText & ("OS Manufacturer:  " & os_mftr & Chr(10))
strResponseText = strResponseText & ("System Name:  " & system_name & Chr(10))
strResponseText = strResponseText & ("System Manufacturer:  " & system_mftr & Chr(10))
strResponseText = strResponseText & ("System Model:  " & system_model & Chr(10))
strResponseText = strResponseText & ("System Type:  " & system_type & Chr(10))
strResponseText = strResponseText & ("Processor:  " & proc_desc & " " & proc_mftr & " ~" & proc_mhz & "Mhz" & Chr(10))
strResponseText = strResponseText & ("BIOS Version:  " & bios_info & Chr(10))
strResponseText = strResponseText & ("Windows Directory:  " & os_dir & Chr(10))
strResponseText = strResponseText & ("Locale:  " & os_locale & Chr(10))  
strResponseText = strResponseText & ("Time Zone:  " & loc_timezone & Chr(10))
strResponseText = strResponseText & ("Total Physical Memory:  " & os_totalmem & "KB" & Chr(10))
strResponseText = strResponseText & ("Available Physical Memory:  " & os_freemem & "KB" & Chr(10))
strResponseText = strResponseText & ("Total Virtual Memory:  " & os_totalvirmem & "KB" & Chr(10))
strResponseText = strResponseText & ("Available Virtual Memory:  " & os_freevirmem & "KB" & Chr(10))
strResponseText = strResponseText & ("Page File Space : " & os_pagefilesize & "KB" & Chr(10))

MsgBox strResponseText, 0,"System Summary Information"