WMI script

Hi
I trying to create WMI script (with VMI Code creator):
---------------------- BOF -----------------
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\DEFAULT")
' Obtain an instance of the the class
' using a key property value.
Set objShare = objWMIService.Get("VirtualSoftwarePackage")

' Obtain an InParameters object specific
' to the method.
Set objInParam = objShare.Methods_("Import"). _
    inParameters.SpawnInstance_()

' Add the input parameters.
objInParam.Properties_.Item("Filename") =  "C:\SWVAPPS\XnView2.vsa"
objInParam.Properties_.Item("Overwrite") =  True

' Execute the method and obtain the return status.
' The OutParameters object in objOutParams
' is created by the provider.
Set objOutParams = objWMIService.ExecMethod("VirtualSoftwarePackage", "Import", objInParam)

' List OutParams
Wscript.Echo "Out Parameters: "
Wscript.echo "PackageId: " & objOutParams.PackageId
Wscript.echo "ReturnValue: " & objOutParams.ReturnValue
------------------------ EOF ----------------------

Result
Out Paramets : " " (none)
PackageId:
ReturnValue: 1040

What i am doing wrong here (i newbie with WMIscript)

-Petri