Enable Remote Administration

Enables remote administration of Windows Firewall fro the current profile

Set objFirewall = CreateObject("HNetCfg.FwMgr")
Set objPolicy = objFirewall.LocalPolicy.CurrentProfile
Set objAdminSettings = objPolicy.RemoteAdminSettings
objAdminSettings.Enabled = TRUE

This is a VB Script, this can be used by saving the file in .vbs file