Activation Partage de fichier et imprimante
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:
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 |
