2010-07-16 20:49

/* DIsplays country, locale, language and code set */
strcomputer = "."
objwmiservice = getobject("winmgmts:\\" || strcomputer || "\root\CIMV2")
colitems = objwmiservice~execquery("SELECT * FROM Win32_OperatingSystem")
DO objitem OVER colitems
	SAY "Country Code:" objitem~countrycode
	SAY "Locale:" objitem~locale
	SAY "OS Language:" objitem~oslanguage
	SAY "Code Set:" objitem~codeset
END

2010-07-16 20:49