meoit

Convert VBS to AU3

4 posts in this topic

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.

Share this post


Link to post
Share on other sites



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_

 

1 person likes this

My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2017-04-18 - Version 1.4.8.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2017-02-27 - Version 1.3.1.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2015-04-01 - Version 0.4.0.0) - Download - General Help & Support - Example Scripts
Excel - Example Scripts - Wiki
Word - Wiki
PowerPoint (2015-06-06 - Version 0.0.5.0) - Download - General Help & Support

Tutorials:
ADO - Wiki

 

Share this post


Link to post
Share on other sites

Thanks to @water !

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

Your code is working fine :)

 

Share this post


Link to post
Share on other sites

Great :)

1 person likes this

My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2017-04-18 - Version 1.4.8.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2017-02-27 - Version 1.3.1.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2015-04-01 - Version 0.4.0.0) - Download - General Help & Support - Example Scripts
Excel - Example Scripts - Wiki
Word - Wiki
PowerPoint (2015-06-06 - Version 0.0.5.0) - Download - General Help & Support

Tutorials:
ADO - Wiki

 

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now