[VBS] appliquer selon nom du pc

Résolu
micka418 -  
Bonjour,
j'essai d'appliquer une fonction de mon logon script (vbs) à seulement 3 machines, comme ci dessous, mais j'obtient une erreur sur NOMPC115 ligne 5 (Type incompatible: '[string: "NOMPC115"]'
Quelqu'un a t il une idée de comment ecrire cette ligne correctement.
Merci 

Dim Sh
Set WshNetwork = WScript.CreateObject("WScript.Network")
NomMachine = WshNetwork.ComputerName
Set Sh = CreateObject("WScript.Shell")
If NomMachine = "NOMPC73" or "NOMPC115" or "NOMPC67" Then
Sh.Run "\\SERVEUR1\Netlogon\test.bat"
Set Sh = Nothing
End If

3 réponses

  1.  lermite222 Contributeur
    Bonjour, 
    If NomMachine = "NOMPC73" or NomMachine ="NOMPC115" or NomMachine ="NOMPC67" Then

    A+
    1
    1. Nyctaclope
      Bonjour

      Je pense que la chaîne "NOMPC115" est interprétée comme une valeur LOGIQUE ( attendue logiquement après la valeur logique NomMachine = "NOMPC73" ), et cela plante nécessairement ..
      Je ne connais pas la syntaxe du IF pour ton logiciel, mais il me semble qu'il faut répéter "NomMachine = .." devant la deuxième et troisième valeur
      Tu auras alors la combinaison OR entre trois conditions :

      If (NomMachine = "NOMPC73") or (NomMachine = "NOMPC115") or (NomMachine = "NOMPC67") Then ...
      Et je mettrais des parenthèses pour plus de sécurité ..

      Cela devrait marcher ...

      A+
      Nyctaclope
      1
      1. micka418
        Merci à vous 2 pour votre réponse rapide, effectivement il fallait que j' ajoute "NomMachine" pour chaques conditions.
        A+
        0