windows-server-2003/admin/wmi/wbem/scripting/test/vbscript/cimomid.vbs

on error resume next 
set s = GetObject("winmgmts:root\default")
set cimomid = s.Get("__cimomidentification=@")

if err <> 0 then
	WScript.Echo ErrNumber, Err.Source, Err.Description
else
	WScript.Echo cimomid.path_.displayname
	WScript.Echo cimomid.versionusedtocreatedb
end if