[Déplacé .Net -- VBS] Joker en VBS Résolu

Question

Bonjour à tous,

Je voudrais savoir comme le dit le titre si il y a un carcatère spéciaux en VBS car je voudrais récupérer des adresses ip puis faire mon schmilblick après 

Voici le script sa sera plus parlant :

' List IP Addresses for a Computer


strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")

Set IPConfigSet = objWMIService.ExecQuery _
    ("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")
 
For Each IPConfig in IPConfigSet
    If Not IsNull(IPConfig.IPAddress) Then 
        For i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)
            If (IPConfig.IPAddress(i) = "172.22.17.41") Then
            	WScript.Echo "vous faites parti de bidule"
            	Else 
            	WScript.Echo "vous faites parti de bidule2"
            End if
        Next
    End If
Next

A la place du "41" je voudrais mettre un caractère pour qu'il prenne en compte juste les chiffres avant.

Merci beaucoup

ucfoutu · Accepted Answer

Bonjour,
Il me semble (mais je peux me tromper) que tu devrais t'intéresser à la fonction InstrRev (pour extraire la position du dernier . (point). Puis prendre tout ce qui se trouve à gauche de cette position - 1.

Fais par ailleurs cette petite expérience avec l'utilisation du caractère NULL
 toto = "blablablibli"
 MsgBox toto
 toto = Left(toto, 6) & Chr(-0) & Right(toto, 6)
 MsgBox "   bien que toto ait une longueur de " & Len(toto) & ", on n'y lit que " & toto

Et si j'ai deviné de que tu cherches à faire (bien que je n'en sois pas certain) : conjugue  les deux méthodes 
____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer
Cliquer sur "Réponse acceptée"  en bas d'une solution adéquate est

cs_Jack · Answer

Salut

Pas clair : 

"Juste avant 41" :
- de 1 à 40
- ou les chiffres placés devant (et pas avant), 172.22.17 ?

"prenne en compte" : Définition ?

Caractères génériques avec opérateur Like :
* remplace 1 ou plusieurs caractèes
? remplace 1 seul caractère
Exemple : 
If (IPConfig.IPAddress(i) Like "*.*.*.41") Then

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

xios666 · Answer

Merci c'est exactement ce qu'il me fallait, je vais essayer.

Enfaite je voulais un joker pour le 41 comme ceci :

"If (IPConfig.IPAddress(i) = "172.22.17.*") Then

Donc avec ce que tu me dit je peut faire :

If (IPConfig.IPAddress(i) like "172.22.17.*") Then

Merci encore

xios666 · Answer

Euh sa ne fonctionne pas...

Il m'affiche une erreur "sub ou fonction non définie" sur la ligne "If (IPConfig.IPAddress(i) like "172.22.17.*") Then"

ucfoutu · Answer

Ah oui...
Ajoute maintenant cette ligne au test précédent :
MsgBox "mais si je veux toto complet " & Left(toto, InStr(toto, Chr(0)) - 1) & Mid(toto, InStr(toto, Chr(0)) + 1)

Tu devrais vite comprendre !
____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer
Cliquer sur "Réponse acceptée"  en bas d'une solution adéquate est

xios666 · Answer

Niquel je peut bien récupérer la valeur que je veut pour la comparer.

Merci

[Déplacé .Net --> VBS] Joker en VBS

6 réponses

Votre réponse

Discussions similaires