Note
Access to this page requires authorization. You can try signing in or changing directories.
Access to this page requires authorization. You can try changing directories.
The following sample shows the process for enabling RemoteAdmin for a specific subnet and some other options.
Option Explicit
' Set constants
Const NET_FW_SCOPE_ALL = 0
Const NET_FW_SCOPE_LOCAL_SUBNET = 1
'Declare variables
Dim RASettings
' Create the firewall manager object.
Dim fwMgr
Set fwMgr = CreateObject("HNetCfg.FwMgr")
' Get the current profile for the local firewall policy.
Dim profile
Set profile = fwMgr.LocalPolicy.CurrentProfile
set RASettings = profile.RemoteAdminSettings
' Enable RemoteAdmin traffic from the 12.1.1.64 subnet
RASettings.Enabled = TRUE
RASettings.RemoteAddresses = "12.1.1.64/255.255.255.240"
'Use this line if you want to disable RemoteAdmin
'RASettings.Enabled = FALSE
'Use this line if you want to scope RemoteAdmin to ANY
'Use RemoteAddresses or Scope, but not both
'RASettings.RemoteAddesses = "*"
'RASettings.Scope = NET_FW_SCOPE_ALL