Discussion :

[cha69os]

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

[cha69os]

Est-ce que quelqu'un à la moindre petite idée?

Merci

[spantemonium]

je n'ai pour le moment pas travaillé sur cette option, mais je suis curieux d'avoir une réponse à ton sujet.

[omen999]

salut,
une discussion sur le sujet: http://groups.google.fr/group/micros...89c527945d0656

pour tester la présence du service, l'utilitaire snetcfg_wxp devrait faire l'affaire (le lien figure dans la discussion) avec la syntaxe:

Code :

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

snetcfg_wxp -q ms_server