VBS convert to Au3 [Help]

[ufukreis1212]

Hi, I'm new member to this forum. I need your help. I want to convert the following VBS code to Au3 format. It's a short code, but I did not. I hope you help, thanks and good forums.

 

Set objFirewall = CreateObject("HNetCfg.FwMgr")
Set objPolicy = objFirewall.LocalPolicy.CurrentProfile
objPolicy.FirewallEnabled = TRUE

 

[Bilgus]

This is a bit more than that but should put you on the right track

 

[water]

Global $oFirewall = ObjCreate("HNetCfg.FwMgr")
Global $oPolicy = $oFirewall.LocalPolicy.CurrentProfile
$oPolicy.FirewallEnabled = TRUE

 

[ufukreis1212]

thanx