How to use ObjCreateInterface to detect firewall information

[haijie1223]

Local $oFireWall = ObjCreate("HNetCfg.FwPolicy2")
ConsoleWrite($oFireWall.CurrentProfileTypes & @CRLF)
ConsoleWrite($oFireWall.FirewallEnabled($oFireWall.CurrentProfileTypes) & @CRLF)

Regarding Windows Firewall information detection, the results of the above code are correct, but the results of the following code are wrong. What‘s the problem with the following code?

Local Const $CLSID_NetFwPolicy2 = "{E2B3C97F-6AE1-41AC-817A-F6F92166D7DD}"
Local Const $IID_INetFwPolicy2 = "{98325047-C671-4174-8D81-DEFCD3F03186}"
Local Const $TaskList = 'get_CurrentProfileTypes HRESULT(long*);' & _
        'get_FirewallEnabled HRESULT(long;short*);'
Local $pNetFwPolicy2 = ObjCreateInterface($CLSID_NetFwPolicy2, $IID_INetFwPolicy2, $TaskList, True)
Local $profileType = 0
Local $Ret = $pNetFwPolicy2.get_CurrentProfileTypes($profileType)
ConsoleWrite('$Ret=' & $Ret & @CRLF)
ConsoleWrite('$profileType=' & $profileType & @CRLF)
Local $enabled = 0
Local $Ret = $pNetFwPolicy2.get_FirewallEnabled($profileType, $enabled)
ConsoleWrite('$Ret=' & $Ret & @CRLF)
ConsoleWrite('$enabled=' & $enabled & @CRLF)

 

[Nine]

It is because INetFwPolicy2 inherits from IDispatch.  You need to add the methods of IDispatch before.

Edited Tuesday at 05:52 PM by Nine
typo

[jugador]

No tested

Local Const $CLSID_NetFwPolicy2 = "{E2B3C97F-6AE1-41AC-817A-F6F92166D7DD}"
Local Const $IID_INetFwPolicy2 = "{98325047-C671-4174-8D81-DEFCD3F03186}"
Local $pNetFwPolicy2 = ObjCreateInterface($CLSID_NetFwPolicy2, $IID_INetFwPolicy2, Default)
ConsoleWrite($pNetFwPolicy2.CurrentProfileTypes & @CRLF)
$pNetFwPolicy2 = 0

if not then you have add IDispatch and INetFwPolicy2 all the methods.

Edited Tuesday at 07:04 PM by jugador

[haijie1223]

7 hours ago, Nine said:

It is because INetFwPolicy2 inherits from IDispatch.  You need to add the methods of IDispatch before.

thanks

Edited yesterday at 01:19 AM by haijie1223

[haijie1223]

6 hours ago, jugador said:

No tested

Local Const $CLSID_NetFwPolicy2 = "{E2B3C97F-6AE1-41AC-817A-F6F92166D7DD}"
Local Const $IID_INetFwPolicy2 = "{98325047-C671-4174-8D81-DEFCD3F03186}"
Local $pNetFwPolicy2 = ObjCreateInterface($CLSID_NetFwPolicy2, $IID_INetFwPolicy2, Default)
ConsoleWrite($pNetFwPolicy2.CurrentProfileTypes & @CRLF)
$pNetFwPolicy2 = 0

if not then you have add IDispatch and INetFwPolicy2 all the methods.

This code also works fine, thank you, I didn't check the help file carefully. 

Edited yesterday at 01:19 AM by haijie1223