ce qu'il manquerai c'est de tester les conection et si elle n'existe pas on ne la liste pas
Version imprimable
ce qu'il manquerai c'est de tester les conection et si elle n'existe pas on ne la liste pas
Si tu regardes le script tu vois que "connexion au reseau local" est enregistré dans une variable.
Dans une des boucles, la variable en question va servir pour un test.
En fait c'est cette boucle qui parcoures l'enssemble des connections existantes.
Donc si tu veux faire des tests d'existances de connection, c'est à cet endroit.
Ok merci pour l'info.Citation:
Oui, pour l'imprimante par exemple.
Maintenant pour les connexions réseau, c'est sur, c'est utile.
Pour le reste, il faut vraiment être inspiré pour en voir l'utilité.
tu parle de cette boucle ?
Je ne sais pas comment faire la, je n'au aucunne idée :oops:Code:
1
2
3
4
5
6
7
8
9
10 For Each objItem in colItems Set itmx = ListView1.ListItems.Add(, ,objItem.Name) If objItem.IsLANConnection = True Then itmX.SubItems(1) = "Enabled" Else itmX.SubItems(1) = "Disabled" End If itmX.SubItems(2) = objItem.GUID itmX.SubItems(3) = objItem.PhoneBookPath Next
Heu... Non je parle de :
Si avant le if dans la boucle tu rajoutes :Code:
1
2
3
4
5
6 For Each oFldrItem in oNetConn.items If LCase(oFldrItem.Name) = LCase(sConnName) Then Set oIConnection = oFldrItem Exit For End If next
Tu auras une box qui s'affiche avec le nom de la connection pour chaque connection.Code:MsgBox oFldrItem.Name
Après j'ai pas trop compris ce que tu voulais faire que le script ne faisait pas déjà.
Ben ce que je veut c'est que le script ne me liste pas les conexion non existantent
c'est a dire ?
tu a éxécuter le code ?
il y a la liste des conexion, et aussi les connxion non existante, je voudrai quelle n'y soit pas ;)
Moi non.
Si j'exécute le code exemple pris sur le lien fourni, et que je met le nom d'une connexion non existante, il ne liste pas les connexions, il me dit juste que la connexion n'existe pas.
Lorsque j'exécute ta page web, j'ai un tableau vide 8O
c'est de la page web moi que je parle, mais l'extesion n'est pas html mais hta, en html tu a effectivement un tableau vide ;)
Le remplissage de la listview ce fait là :
Chez moi cela n'affiche que les connexion existante. Cela doit dépendre de ce que contiens HNet_Connection. Je n'ai jamais travaillé sur cet objet. J'ai regardé avec WMICodeCreator, et tu n'as que les propriétés déjà utilisé dans le script comme possibilité. Donc pas de méthode pour savoir si la connexion existe réellement.Code:
1
2
3
4
5
6
7
8
9
10
11
12
13 Set objWMIService = GetObject _ ("winmgmts:\\" & strComputer & "\root\microsoft\homenet") Set colItems = objWMIService.ExecQuery("Select * from HNet_Connection") For Each objItem in colItems Set itmx = ListView1.ListItems.Add(, ,objItem.Name) If objItem.IsLANConnection = True Then itmX.SubItems(1) = "Enabled" Else itmX.SubItems(1) = "Disabled" End If itmX.SubItems(2) = objItem.GUID itmX.SubItems(3) = objItem.PhoneBookPath Next
Je ne peux pas t'aider sur ce coup là, je ne sais pas faire.
salut,
Il ne faut pas abandonner. Je pourrais encore de filer un cadeau, mais ce ne serait pas te rendre service.
Juste pour relancer la vapeur, je te conseillerai de laisser tomber l'objet WMI HNet_Connection et de laisser tomber aussi l'histoire avec la base de registre que j'ai vu dans une autre discussion. Tout ce que tu as à faire, c'est de te concentrer sur le script que je t'ai fourni. Il peut en faire bien plus que ce que l'on pourrait croire au premier abord. Donc, à toi de creuser encore pour aboutir au résultat que tu souhaites, et pour info, c'est possible.
J'espère que ced600 sera de la partie, il a l'air très efficace quand il s'agit de faire des analyses.
Ben moi en vbs je ne suis qu'"un débutant, et la je séche :oops:
Plus haut dans les messages je t'ai parler de la boucle où tu pouvais détecter si telle ou telle conenction réseau existe.
Cette boucle parcours l'ensemble des connexions existantes.
Tu pourrais l'utiliser pour directement remplir ton tableau.
De deux façons :
- dans la boucle tu stocke dans un tableau le nom des connexions (oFldrItem.Name). Pour avoir la taille du tableau, tu peux utiliser oNetConn.count qui te renvois la taille de la collection, soit le nombre de connexions existantes. A l'aide de ton tableau tu remplis ta liste.
- Ou plutôt dans la boucle du script tu fais un :
Selon ce que tu choisiras il faudra un peu réorganiser ton code. Mais reste que le mieux serait d'utiliser la deuxième façon.Code:ListView1.ListItems.Add(, ,oFldrItem.Name)
Essayes de faire quelque chose on te corrigeras après (et puis de toute façon aujourd'hui je suis sur un pc sur linux, alors le vbs c un peu mort pour moi, je ne peu rien tester, linux ne comprendras pas ;) )