Deployment Solution

 View Only

VBScript to Create Windows Firewall Exclusions for Mcafee ePO 

Jun 10, 2009 12:39 PM

You may be able to deploy the Mcafee ePO client to PC's but it may not be able to communicate with the server. The following script adds the needed exception to the Windows firewall so that it may establish communication. This script can also be easily modified to allow the import of any registry value with a little effort.



' Windows firewall fix for EPO Agent
' v 1.0
' Aspen Skiens
' 4/24/09
' ----------------------------------------'

Option Explicit
Dim objShell
Dim strValue, strData, strWinKey, strKeyType

' Set the string values
' Set Data Value
strValue = "8081:TCP:*:enabled:ePOUpdate"
' Set Data 
strData = "8081:TCP:*:enabled:ePOUpdate"
' Set Key
strWinKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\WindowsFirewall\DomainProfile\GloballyOpenPorts\List\"
' Set Key type
strKeyType = "REG_SZ"
' Create the Shell object
Set objShell = CreateObject("WScript.Shell")

' Add the registry entry to add the exception
objShell.RegWrite strWinKey & strValue, strData, strKeyType

' Close script
WScript.Quit

Statistics
0 Favorited
0 Views
1 Files
0 Shares
0 Downloads
Attachment(s)
zip file
eporeg.zip   509 B   1 version
Uploaded - Feb 25, 2020

Tags and Keywords

Related Entries and Links

No Related Resource entered.