Convert VBS to AU3

[meoit]

Hello all !.

I do not know how to convert a vbscript.vbs to autoit.au3. This is my VbScript code:

Set oLocation = CreateObject("WbemScripting.SWbemLocator")
Set oServices = oLocation.ConnectServer(, "Root\CIMV2")
Set SaveClass = oServices.Get

SaveClass.Path_.Class = "test_USER_REGKEY"

SaveClass.Properties_.add "Caption", 8
SaveClass.Properties_.add "Name", 8
SaveClass.Properties_.add "Vendor", 8
SaveClass.Properties_.add "Version", 8
SaveClass.Properties_("Name").Qualifiers_.add "key", false
SaveClass.Put_

Set SaveClass = GetObject("winmgmts:Root\CIMV2:test_USER_REGKEY").SpawnInstance_

SaveClass.Caption           = "Test save key"
SaveClass.Name              = "Test for save key"
SaveClass.Vendor            = "TESTER"
SaveClass.Version           = "1.1"
SaveClass.Put_

Someone help me.

Thanks.

[water]

Shouldn't be too hard:

Local $oLocation = ObjCreate("WbemScripting.SWbemLocator")
Local $oServices = $oLocation.ConnectServer(Default, "Root\CIMV2") ; Not sure about the Default here
Local $SaveClass = $oServices.Get

$SaveClass.Path_.Class = "test_USER_REGKEY"

$SaveClass.Properties_.add("Caption", 8)
$SaveClass.Properties_.add("Name", 8)
$SaveClass.Properties_.add("Vendor", 8)
$SaveClass.Properties_.add("Version", 8)
$SaveClass.Properties_("Name").Qualifiers_.add("key", false)
$SaveClass.Put_

$SaveClass = ObjGet("winmgmts:Root\CIMV2:test_USER_REGKEY").SpawnInstance_

$SaveClass.Caption           = "Test save key"
$SaveClass.Name              = "Test for save key"
$SaveClass.Vendor            = "TESTER"
$SaveClass.Version           = "1.1"
$SaveClass.Put_

 

[meoit]

Thanks to @water !

I edit: Local $oServices = $oLocation.ConnectServer('', 'Root\CIMV2')

Your code is working fine

 

[water]

Great