2010-07-16 20:49

/* Displays the current system restore configuration settings on a computer */
strcomputer = "."
objwmiservice = getobject("winmgmts:{impersonationLevel=impersonate}!\\" || strcomputer || "\root\default")
colitems = objwmiservice~execquery("Select * from SystemRestoreConfig")
DO objitem OVER colitems
	SAY "Disk Percent:" objitem~diskpercent
	SAY "Global Interval (in seconds):" objitem~rpglobalinterval 
	SAY "Life Interval (in seconds):" objitem~rplifeinterval
	IF objitem~rpsessioninterval = 0 THEN SAY "Session Interval: Feature not enabled." 
	ELSE SAY "Session Interval (in seconds):" objitem~rpsessioninterval
END

2010-07-16 20:49