FIREWALL WINDOWS XP SP 2 DESACTIVER LE BLOCAGE DE CERTAINS PORTS
medelidrissi
Messages postés
180
Date d'inscription
jeudi 21 août 2003
Statut
Membre
Dernière intervention
26 novembre 2007
-
21 juil. 2005 à 20:23
jmbourreau Messages postés 17 Date d'inscription lundi 19 avril 2004 Statut Membre Dernière intervention 4 avril 2007 - 20 oct. 2005 à 13:49
jmbourreau Messages postés 17 Date d'inscription lundi 19 avril 2004 Statut Membre Dernière intervention 4 avril 2007 - 20 oct. 2005 à 13:49
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/32823-firewall-windows-xp-sp-2-desactiver-le-blocage-de-certains-ports
https://codes-sources.commentcamarche.net/source/32823-firewall-windows-xp-sp-2-desactiver-le-blocage-de-certains-ports
20 oct. 2005 à 13:49
22 juil. 2005 à 10:55
On Error Resume Next
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
Set colServices = objPolicy.Services
Set objService = colServices.Item(0)
objService.Enabled = TRUE
Set objFirewall = CreateObject("HNetCfg.FwMgr")
Set objPolicy = objFirewall.LocalPolicy.CurrentProfile
Set colPorts = objPolicy.GloballyOpenPorts
Set objPort = colPorts.Item(139,6)
objPort.Enabled = TRUE
End If
22 juil. 2005 à 10:42
si
# ValueFullName1 = "Service Pack 2"
# ValueFullName2 = "Microsoft Windows XP"
alors
on desactive le firewall
ce script est a enregistrer dans un fichier VBS
22 juil. 2005 à 09:48
Où l'insère t'on ce srcipt ???
Si je le mets dans Private Sub Form_Load() j'ai une erreur ici:
strOldName = objReg.RegRead(strRegKey1)
Merci d votre aide
bye
21 juil. 2005 à 20:23
Bon travail, juste une petite question pourquoi tu as utilisé :
Set objRegistry = GetObject("winmgmts:" & _
"{impersonationLevel=Impersonate}!\" & _
strComputer & "\root\default:StdRegProv")
Pour accéder au registre de Windows.
Si tu veux plus de détail sur la manipulation du firewall de xp (sp2) jette un coup d'oeil sur cette merveilleuse source :
http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=56515&lngWId=1
Bonne programmation
medelidrissi