Try this way

loLocator 	= CREATEOBJECT('WBEMScripting.SWBEMLocator')
loWMI		= loLocator.ConnectServer() 
...

>All of a sudden I am getting an error:
>"Moniker cannot open file" at this line
>oServer = GetObject("winmgmts:\\" + "." + "\root\cimv2")
>
>I am running XP sp3.
>
>Thanks for help.