Kaspersky desactivation firewall Partage simple

**omzo002** · 02/12/2009, 12h39

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !!!!

**ProgElecT** · 02/12/2009, 12h54

Peut être,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If OSTYPE = "Microsoft Windows XP" Then End

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If OSTYPE <> "Microsoft Windows XP" Then End

en tout cas un opérateur

**omzo002** · 02/12/2009, 17h28

Merci pour la réponse. J'ai oublié de vous préciser que je ne m'y connais pas en VbScript.

.
Jai fait les modifs mais jai une autre erreur :
Ligne 10
Caract 42
Erreur Instruction attendue

**ProgElecT** · 02/12/2009, 20h53

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

**omzo002** · 03/12/2009, 17h59

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

.
J'ai essaye d'enlever la partie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

&nbsp;

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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é !!!!

**ProgElecT** · 03/12/2009, 23h47

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Kaspersky desactivation firewall Partage simple

VBScript

Vue hybride

Discussions similaires

Partager

Partager