VB Script für AutoIt umschreiben

;Set Constants
Global Const $NET_FW_IP_PROTOCOL_UDP = 17
Global Const $NET_FW_IP_PROTOCOL_TCP = 6

Global Const $NET_FW_SCOPE_ALL = 0
Global Const $NET_FW_SCOPE_LOCAL_SUBNET = 1

;Declare variables
Dim $errornum

;Create the firewall manager object.
Dim $fwMgr
$fwMgr = ObjCreate("HNetCfg.FwMgr")
if @error Then
ConsoleWrite("Objekt HNetCfg.FwMgr konnte nicht erstellt werden" & @CRLF)
Exit
endif

; Get the current profile for the local firewall policy.
Dim $profile
$profile = $fwMgr.LocalPolicy.CurrentProfile

Dim $port
$port = Objcreate("HNetCfg.FWOpenPort")
if @error Then
ConsoleWrite("Objekt HNetCfg.FWOpenPort konnte nicht erstellt werden" & @CRLF)
Exit
endif

$port.Name ='HTTP'
$port.Protocol =6
$port.Port =80

;If using Scope, don't use RemoteAddresses
$port.Scope =$NET_FW_SCOPE_ALL
;Use this line to scope the port to Local Subnet only
;port.Scope = NET_FW_SCOPE_LOCAL_SUBNET

$port.Enabled=TRUE
;Use this line instead if you want to add the port, but disabled
;port.Enabled = FALSE

;~ ' Set constants
Const $NET_FW_PROFILE_DOMAIN = 0
Const $NET_FW_PROFILE_STANDARD = 1

;~ ' Scope
Const $NET_FW_SCOPE_ALL = 0

;~ ' IP Version <entity type="ndash"/> ANY is the only allowable setting for now
Const $NET_FW_IP_VERSION_ANY = 2

;~ ' Declare variables
Dim $errornum

;~ ' Create the firewall manager object.
Dim $fwMgr
$fwMgr = ObjCreate("HNetCfg.FwMgr")

;~ ' Get the current profile for the local firewall policy.
Dim $profile
$profile = $fwMgr.LocalPolicy.CurrentProfile

Dim $app
$app = ObjCreate("HNetCfg.FwAuthorizedApplication")

$oMyError = ObjEvent("AutoIt.Error","MyErrFunc") ; Initialize a COM error handler

$app.ProcessImageFileName = "%PROGRAMFILES%\Outlook Express\msimn.exe"
$app.Name = "Outlook Express"
$app.Scope = $NET_FW_SCOPE_ALL
;~ ' Use either Scope or RemoteAddresses, but not both
;~ 'app.RemoteAddresses = "*"
$app.IpVersion = $NET_FW_IP_VERSION_ANY
$app.Enabled = TRUE

;~ ' Use this line if you want to add the app, but disabled.
;~ 'app.Enabled = FALSE

;~ $errornum = 0
$profile.AuthorizedApplications.Add($app)
;~ $errornum = Err.Number
;~ if $errornum <> 0 then MsgBox(0,"","Adding authorized application failed with: " & $errornum)

; This is my custom defined error handler
Func MyErrFunc()

Msgbox(0,"COM-Error","We intercepted a COM Error !" & @CRLF & @CRLF & _
"err.description is: " & @TAB & $oMyError.description & @CRLF & _
"err.windescription:" & @TAB & $oMyError.windescription & @CRLF & _
"err.number is: " & @TAB & hex($oMyError.number,8) & @CRLF & _
"err.lastdllerror is: " & @TAB & $oMyError.lastdllerror & @CRLF & _
"err.scriptline is: " & @TAB & $oMyError.scriptline & @CRLF & _
"err.source is: " & @TAB & $oMyError.source & @CRLF & _
"err.helpfile is: " & @TAB & $oMyError.helpfile & @CRLF & _
"err.helpcontext is: " & @TAB & $oMyError.helpcontext _
)

Local $err = $oMyError.number
If $err = 0 Then $err = -1

$g_eventerror = $err ; to check for after this function returns
Endfunc