On Error Resume Next
'Ask for non-existent class to force error from CIMOM
Set t_Service = GetObject("winmgmts://./root/default")
Set t_Object = t_Service.Get("Nosuchclass000")
