Firewall windows xp sp 2 desactiver le blocage de certains ports

Commenter

Contenu du snippet

Ce code permet de desactivé le blocage de certains ports utilisés dans votre réseau interne,le petit plus c' est avant de se lancer il verifie
si le poste est sous windows xp sp2 et il se lance uniquement a cette condition parfait pour un admin qui a des postes avec différents OS
on peut par exemple dans un réseau desactiver le firewall uniquement sur les postes en xp sp2 si on a pas besoin .

Source / Exemple : 


Dim strComputer, strSubKey, ValueName, ValueVersion, ValueVersionExt 
Dim ValueFullName1, ValueFullName2
Dim strDisplayValue1,strDisplayValue2
Dim str1
Dim strRegKey1, strRegkey2
 
Const HKEY_LOCAL_MACHINE = &H80000002 
 
strComputer = "." 
 
strRegkey1 = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\CSDVersion" 
strRegkey2 = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProductName"
 
strOldName = objReg.RegRead(strRegKey1) 
 
ValueFullName1 = "Service Pack 2"
ValueFullName2 = "Microsoft Windows XP" 
 
   Set objRegistry = GetObject("winmgmts:"   & _ 
   "{impersonationLevel=Impersonate}!\\" & _ 
   strComputer & "\root\default:StdRegProv") 
 
   objRegistry.EnumKey HKEY_LOCAL_MACHINE, strRegKey1, arrSubKeys 
 
   objRegistry.GetStringValue HKEY_LOCAL_MACHINE, _ 
          strRegKey1 , ValueFullName1, strDisplayValue1, strRegkey2, ValueFullName2, strDisplayValue2

 
If (ValueFullName1 = "Service Pack 2" and ValueFullName2 = "Microsoft Windows XP") Then
Dim objFirewall
Set objFirewall = CreateObject("HNetCfg.FwMgr")
Set objPolicy = objFirewall.LocalPolicy.CurrentProfile
objPolicy.FirewallEnabled = FALSE
End If

A voir également

Du même auteur (keaoner)