2010-07-16 20:49

/* Retrieves an integer value indicating the chassis type for a computer (mini-tower, laptop, etc.) */
strcomputer = "."
objwmiservice = getobject("winmgmts:{impersonationLevel=impersonate}!\\" || strcomputer || "\root\cimv2")
colchassis = objwmiservice~execquery("Select * from Win32_SystemEnclosure")
DO objchassis OVER colchassis
	chassis. = objchassis~chassistypes
	DO i OVER chassis.
		SAY VALUE("chassis." || i)
	END
	SAY
END

2010-07-16 20:49