4/5 (5 avis)
Snippet vu 19 183 fois - Téléchargée 30 fois
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
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
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.