Vbscript's Getobject To Retrieve System Info

I am trying to use the vbscript's getobject to retirive system info in my ASP site. But it is generating and error :

Error Type:
(0x80041003)

And I also found that microsoft does not recomand using getobject with ASP. Here is a bit from my code:

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!" & strComputer & "
ootcimv2")
Set colSettings = objWMIService.ExecQuery _
("SELECT * FROM Win32_OperatingSystem")