;? " Configure Firewall Policy"
$Firewall='HKLM\SOFTWARE\Policies\Microsoft\WindowsFirewall'
$Profiles='\DomainProfile','\StandardProfile'
$SubnetList = '192.168.0.0/16,192.168.1.0/16'

for each $Profile in $Profiles
$rc = Writevalue($Firewall+$Profile,'EnableFirewall',1,REG_DWORD)

$rc = Writevalue($Firewall+$Profile+'\AuthorizedApplications','AllowUserPrefMerge',1,REG_DWORD)
$rc = Writevalue($Firewall+$Profile+'\AuthorizedApplications','Enabled',1,REG_DWORD)

$rc = Writevalue($Firewall+$Profile+'\AuthorizedApplications\List','Remote Control Server','%windir%\system32\r_server.exe:'+$SubnetList+':enabled:Remote Control Server',REG_SZ)
$rc = Writevalue($Firewall+$Profile+'\AuthorizedApplications\List','NetMeeting','%programfiles%\NetMeeting\Conf.exe:'+$SubnetList+':enabled:NetMeeting',REG_SZ)

$rc = Writevalue($Firewall+$Profile+'\IcmpSettings','AllowInboundEchoRequest',1,REG_DWORD)

$rc = Writevalue($Firewall+$Profile+'\RemoteAdminSettings','Enabled',1,REG_DWORD)
$rc = Writevalue($Firewall+$Profile+'\RemoteAdminSettings','RemoteAddresses',$Subnetlist,REG_SZ)

$rc = Writevalue($Firewall+$Profile+'\Services\FileAndPrint','Enabled',1,REG_DWORD)
$rc = Writevalue($Firewall+$Profile+'\Services\FileAndPrint','RemoteAddresses',$Subnetlist,REG_SZ)

$rc = Writevalue($Firewall+$Profile+'\Services\RemoteDesktop','Enabled',1,REG_DWORD)
$rc = Writevalue($Firewall+$Profile+'\Services\RemoteDesktop','RemoteAddresses',$Subnetlist,REG_SZ)
next