Kaspersky desactivation firewall Partage simple

Version imprimable

Bonjour tout le monde!!
Je suis entrain de déployer a distance des antivirus Kaspersky vers des postes Clients grâce a l'administration kit. Mais pour ce faire il faut desactiver le firewall, le partage de fichier simple, etc sous windows XP. Jai Telecharger un script pour le faire automatiquement mais jai une erreur lors de l'execution :
Ligne 10
Caract 10
Erreur 'Then' attendu
Code 800A03F9

Es-ce-que quelqu'un pourrait m'aider svp ?
Et le code est le suivant:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Const HKEY_CURRENT_USER = &H80000001 
Const HKEY_LOCAL_MACHINE = &H80000002
On Error Resume Next
Dim objFirewall
Set objFirewall = CreateObject("HNetCfg.FwMgr")
strComputer = "."
Set Reg = GetObject("winmgmts:{impersonationL evel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
OSTYPE = Reg.GetStringValue(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows NT\CurrentVersion", "ProductName")
' Si pas XP=>FIN
If OSTYPE"Microsoft Windows XP" Then End
'Restriction anonymous
'Windows XP/2000 présentent une faille dans la confiance qu'il accorde aux protocoles CIFS/ SMB
'et netbios, Ceci permettant un hack par connexion nulle !
'Ces protocoles comprennent des API qui donnent des informations
'sur le poste via le port 139 netbios, et ce même à des utilisateurs non identifiés.
'La première étape de l'accès à distance de ces API consiste justement à créer
'une connexion non authentifiée sur un système XP ou 2000 en utilisant
'une commande de "connexion nulle " dans l'hypothèse ou le port TCP 139
's'est révélé actif lors d'un scan de port.
'En cas de succès, l'attaquant peut alors disposer d'un canal ouvert par le biais duquel il peut exploiter pour piller un maximum d'informations
'(réseau, ressources partagées, registres etc...)
'Un mécanisme permet d'empêcher tout action de prises d'informations
'sensibles par les connexions nulles en désactivant SMB.
'Ce mécanisme s'appelle "RestrictAnonymous"
'1 pour XP et 2 pour Windows 2000
RestrictAnonymous = Reg.GetDWORDValue(HKEY_LOCAL_MACHINE, "SYSTEM\CurrentControlSet\Control\L sa", "RestrictAnonymous")
If RestrictAnonymous = 0 Then
    intReturn = Reg.SetDWORDValue(HKEY_LOCAL_MACHINE, "SYSTEM\CurrentControlSet\Control\L sa", "RestrictAnonymous", 1)
End If
 
'Activation du partage avancé
ForceGuest = Reg.GetDWORDValue(HKEY_LOCAL_MACHINE, "SYSTEM\CurrentControlSet\Control\L sa", "ForceGuest")
If ForceGuest = 1 Then
    intReturn = Reg.SetDWORDValue(HKEY_LOCAL_MACHINE, "SYSTEM\CurrentControlSet\Control\L sa", "ForceGuest", 0)
End If
'Vérification du service pack2 et désactivation du Firewall
ServicePackType = Reg.GetStringValue(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows NT\CurrentVersion", "CSDVersion")
 
If (ServicePackType = "Service Pack 2" And OSTYPE = "Microsoft Windows XP") Then
    Set objPolicy = objFirewall.LocalPolicy.CurrentProfile
    objPolicy.FirewallEnabled = False
End If
AutoShareWks = Reg.GetDWORDValue(HKEY_LOCAL_MACHINE, "SYSTEM\CurrentControlSet\Services\ lanmanserver\parameters", "AutoShareWks")
If AutoShareWks = 0 Then
    intReturn = Reg.SetDWORDValue(HKEY_LOCAL_MACHINE, "SYSTEM\CurrentControlSet\Services\ lanmanserver\parameters", "AutoShareWks", 1)
    Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true")
    For Each OpSys In OpSysSet
      &nbs p; Call OpSys.Win32Shutdown(6) ' 6 force reboot, 7 reboot simple.
    Next
End If
Err.Clear

MERCI !!!!

02/12/2009, 12h54
ProgElecT

Peut être,

Code:

If OSTYPE = "Microsoft Windows XP" Then End

ou

Code:

If OSTYPE <> "Microsoft Windows XP" Then End

en tout cas un opérateur ;)
02/12/2009, 17h28
omzo002

Merci pour la réponse. J'ai oublié de vous préciser que je ne m'y connais pas en VbScript.:pleure:.
Jai fait les modifs mais jai une autre erreur :
Ligne 10
Caract 42
Erreur Instruction attendue

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Const HKEY_CURRENT_USER = &H80000001
Const HKEY_LOCAL_MACHINE = &H80000002
On Error Resume Next
'Dim objFirewall
'Set objFirewall = CreateObject("HNetCfg.FwMgr")
strComputer = "."
Set Reg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
Reg.GetStringValue HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows NT\CurrentVersion", "ProductName", OSTYPE
' Si pas XP=>FIN
If OSTYPE <> "Microsoft Windows XP" Then
 'msgbox OSTYPE
 End
else
 msgbox OSTYPE
End if

Code:

Set Reg = GetObject("winmgmts:{impersonationL evel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")

Attention il ne faut pas d'espace entre: impersonationL et evel=impersonate

Bonjour,
J'ai bien corriger le code mais j'ai encore un soucis a la ligne 52

Code:

  Call OpSys.Win32Shutdown(6) ' 6 force reboot, 7 reboot simple.

.
J'ai essaye d'enlever la partie

Code:

 

et je j'arrive a exécuter le fichier sans erreur mais la machine ne redémarre pas et le partage de fichier simple et toujours activé, par contre le pare-feu est désactivé.
Apres modif le code devient:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
Const HKEY_CURRENT_USER = &H80000001
Const HKEY_LOCAL_MACHINE = &H80000002
On Error Resume Next
'Dim objFirewall
'Set objFirewall = CreateObject("HNetCfg.FwMgr")
strComputer = "."
Set Reg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
Reg.GetStringValue HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows NT\CurrentVersion", "ProductName", OSTYPE
' Si pas XP=>FIN
If OSTYPE <> "Microsoft Windows XP" Then
 msgbox OSTYPE
End if  
'Restriction anonymous 
'Windows XP/2000 présentent une faille dans la confiance qu'il accorde aux protocoles CIFS/ SMB 
'et netbios, Ceci permettant un hack par connexion nulle ! 
'Ces protocoles comprennent des API qui donnent des informations 
'sur le poste via le port 139 netbios, et ce même à des utilisateurs non identifiés. 
'La première étape de l'accès à distance de ces API consiste justement à créer 
'une connexion non authentifiée sur un système XP ou 2000 en utilisant 
'une commande de "connexion nulle " dans l'hypothèse ou le port TCP 139 
's'est révélé actif lors d'un scan de port. 
'En cas de succès, l'attaquant peut alors disposer d'un canal ouvert par le biais duquel il peut exploiter pour piller un maximum d'informations 
'( réseau, ressources partagées, registres etc...) 
'Un mécanisme permet d'empêcher tout action de prises d'informations 
'sensibles par les connexions nulles en désactivant SMB. 
'Ce mécanisme s'appelle "RestrictAnonymous" 
'1 pour XP et 2 pour Windows 2000 
 
RestrictAnonymous = Reg.GetDWORDValue(HKEY_LOCAL_MACHINE, "SYSTEM\CurrentControlSet\Control\L sa", "RestrictAnonymous" ) 
 
If RestrictAnonymous = 0 Then 
intReturn = Reg.SetDWORDValue(HKEY_LOCAL_MACHINE, "SYSTEM\CurrentControlSet\Control\L sa", "RestrictAnonymous", 1) 
End If 
 
 
'Activation du partage avancé 
 
ForceGuest = Reg.GetDWORDValue(HKEY_LOCAL_MACHINE, "SYSTEM\CurrentControlSet\Control\L sa", "ForceGuest" ) 
If ForceGuest = 1 Then 
intReturn = Reg.SetDWORDValue(HKEY_LOCAL_MACHINE, "SYSTEM\CurrentControlSet\Control\L sa", "ForceGuest", 0) 
End If 
 
'Vérification du service pack2 et désactivation du Firewall 
 
ServicePackType = Reg.GetStringValue(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows NT\CurrentVersion", "CSDVersion" ) 
 
If (ServicePackType = "Service Pack 2" And OSTYPE = "Microsoft Windows XP" ) Then 
Set objPolicy = objFirewall.LocalPolicy.CurrentProfile 
objPolicy.FirewallEnabled = False 
End If 
 
AutoShareWks = Reg.GetDWORDValue(HKEY_LOCAL_MACHINE, "SYSTEM\CurrentControlSet\Services\ lanmanserver\parameters", "AutoShareWks" ) 
 
If AutoShareWks = 0 Then 
intReturn = Reg.SetDWORDValue(HKEY_LOCAL_MACHINE, "SYSTEM\CurrentControlSet\Services\ lanmanserver\parameters", "AutoShareWks", 1) 
Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2" ).ExecQuery("select * from Win32_OperatingSystem where Primary=true" ) 
For Each OpSys In OpSysSet 
Call OpSys.Win32Shutdown(6) ' 6 force reboot, 7 reboot simple. 
Next 
End If 
 
Err.Clear

Es-ce vous avez une idée du problème ?

Encore Merci pour votre réactivité !!!!

Sans plus rechercher que çà, deja, au debut du code j'avais remer

Code:

1
2
3
4
5
Const HKEY_CURRENT_USER = &H80000001
Const HKEY_LOCAL_MACHINE = &H80000002
On Error Resume Next
'Dim objFirewall '<========================================
'Set objFirewall = CreateObject("HNetCfg.FwMgr")'<===============

Car le premier probléme ne demandait pas à utliser cette reference objet.

Alors que plus loin tu l'utilises

Code:

1
2
3
4
If (ServicePackType = "Service Pack 2" And OSTYPE = "Microsoft Windows XP" ) Then 
Set objPolicy = objFirewall.LocalPolicy.CurrentProfile 
objPolicy.FirewallEnabled = False 
End If

04/12/2009, 15h46
omzo002

Bonjour,
Je n'ai pas bien compris ce que vous vouliez dire.C'est un problème au niveau du code en temps que tel ou c'est un problème de syntaxe ?:roll::arf:

un problème au niveau du code ;)
Enleves les apostrophes ici (au tout debut)
Code:

1 2 3 4 5 Const HKEY_CURRENT_USER = &H80000001 Const HKEY_LOCAL_MACHINE = &H80000002 On Error Resume Next 'Dim objFirewall '<===============ICI===================== 'Set objFirewall = CreateObject("HNetCfg.FwMgr")'<========ICI=======
J'ai expliqué pourquoi j'avais dût les mettres au message precedant.

Ok je n'avais pas fait attention.Apres correction j'ai le code suivant

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
Const HKEY_CURRENT_USER = &H80000001
Const HKEY_LOCAL_MACHINE = &H80000002
On Error Resume Next
Dim objFirewall
Set objFirewall = CreateObject("HNetCfg.FwMgr")
strComputer = "."
Set Reg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
Reg.GetStringValue HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows NT\CurrentVersion", "ProductName", OSTYPE
' Si pas XP=>FIN
If OSTYPE <> "Microsoft Windows XP" Then
 msgbox OSTYPE
End if  
'Restriction anonymous 
'Windows XP/2000 présentent une faille dans la confiance qu'il accorde aux protocoles CIFS/ SMB 
'et netbios, Ceci permettant un hack par connexion nulle ! 
'Ces protocoles comprennent des API qui donnent des informations 
'sur le poste via le port 139 netbios, et ce même à des utilisateurs non identifiés. 
'La première étape de l'accès à distance de ces API consiste justement à créer 
'une connexion non authentifiée sur un système XP ou 2000 en utilisant 
'une commande de "connexion nulle " dans l'hypothèse ou le port TCP 139 
's'est révélé actif lors d'un scan de port. 
'En cas de succès, l'attaquant peut alors disposer d'un canal ouvert par le biais duquel il peut exploiter pour piller un maximum d'informations 
'( réseau, ressources partagées, registres etc...) 
'Un mécanisme permet d'empêcher tout action de prises d'informations 
'sensibles par les connexions nulles en désactivant SMB. 
'Ce mécanisme s'appelle "RestrictAnonymous" 
'1 pour XP et 2 pour Windows 2000 
 
RestrictAnonymous = Reg.GetDWORDValue(HKEY_LOCAL_MACHINE, "SYSTEM\CurrentControlSet\Control\L sa", "RestrictAnonymous" ) 
 
If RestrictAnonymous = 0 Then 
intReturn = Reg.SetDWORDValue(HKEY_LOCAL_MACHINE, "SYSTEM\CurrentControlSet\Control\L sa", "RestrictAnonymous", 1) 
End If 
 
 
'Activation du partage avancé 
 
ForceGuest = Reg.GetDWORDValue(HKEY_LOCAL_MACHINE, "SYSTEM\CurrentControlSet\Control\L sa", "ForceGuest" ) 
If ForceGuest = 1 Then 
intReturn = Reg.SetDWORDValue(HKEY_LOCAL_MACHINE, "SYSTEM\CurrentControlSet\Control\L sa", "ForceGuest", 0) 
End If 
 
'Vérification du service pack2 et désactivation du Firewall 
 
ServicePackType = Reg.GetStringValue(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows NT\CurrentVersion", "CSDVersion" ) 
 
If (ServicePackType = "Service Pack 2" And OSTYPE = "Microsoft Windows XP" ) Then 
Set objPolicy = objFirewall.LocalPolicy.CurrentProfile 
objPolicy.FirewallEnabled = False 
End If 
 
AutoShareWks = Reg.GetDWORDValue(HKEY_LOCAL_MACHINE, "SYSTEM\CurrentControlSet\Services\ lanmanserver\parameters", "AutoShareWks" ) 
 
If AutoShareWks = 0 Then 
intReturn = Reg.SetDWORDValue(HKEY_LOCAL_MACHINE, "SYSTEM\CurrentControlSet\Services\ lanmanserver\parameters", "AutoShareWks", 1) 
Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2" ).ExecQuery("select * from Win32_OperatingSystem where Primary=true" ) 
For Each OpSys In OpSysSet 
Call OpSys.Win32Shutdown(6) ' 6 force reboot, 7 reboot simple. 
Next 
End If 
 
Err.Clear

Apres exécution rien ne se passe le firewall ne se désactive même pas.
J'ai honte d'être aussi nul en VbScript.:oops::oops::oops::oops::oops::oops:

04/12/2009, 22h40
ProgElecT

Je ne sais ou tu as péché ce code, il y a plusieurs erreurs de nom de clefs registre, ou bien tu as un mauvais copier/coller.
Il faut être rigoureux et très précis quand on touche aux paramètres de la base de registre, toutes tes instruction Set.... la modifie avec des conséquences qui peuvent être dommageable.

"SYSTEM\CurrentControlSet\Control\L sa" <== Faux
"SYSTEM\CurrentControlSet\Control\Lsa" <== Ok
"SYSTEM\CurrentControlSet\Services\ lanmanserver\parameters" <== Faux
"SYSTEM\CurrentControlSet\Services\lanmanserver\parameters" <== Ok
"AutoShareWks" pour ma base de registre (OS Vista) n'existe pas
..........