Freigeben über

Enabling RemoteAdmin

  • Artikel

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