je travail présentement à faire en programme vbs via une application hta. Une des fonctionnalitées de mon programme est qu'il doit s'assurer que l'option du partage de fichier et imprimante (disponible dans les parametre de la cartes réseau) soit bel et bien activer. S'il ne l'est pas, il doit le faire. J'ai cherché beaucoup sur internet et je n'ai pas trouver beaucoup de source. Plusieurs semblaient même dire qu'il était impossible de le faire via un script.

Je me demandais si quelqu'un d'entre-vous avait déjà été confronté au même problème ou si vous n'auriez pas une petite idée comment cela pourrait se réaliser.

Je travail en passant sous Windows XP Pro SP3

Merci et bonne journée

Sébastien

P.S voici un script que j'ai essayer mais qui n'a aucun effet
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sub RunScript
 
Dim objFirewall, objPolicy, colServices, colService
 
Set objFirewall = CreateObject("HNetCfg.FwMgr")
Set objPolicy = objFirewall.LocalPolicy.CurrentProfile
Set colServices = objPolicy.Services
Set objService = colServices.Item(0)
objService.Enabled = TRUE
 
end sub