1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
| Function StrInArr(strIn, arrIn) 'Teste si la chaine strIn est présente dans arrIn
Dim strTmp, boolOut
boolOut = False
For Each strTmp In arrIn
If StrComp(strTmp, strIn, vbTextCompare) = 0 Then boolOut = True
Next
StrInArr = boolOut
End Function
Dim WshNetwork, WshShell
Dim strComputer
Dim postesExclus
Set WshShell = CreateObject("WScript.Shell")
Set WshNetwork = CreateObject("WScript.Network")
strComputer = WshNetwork.ComputerName
'-------------------------------------------------------------------------------
'lancement de l'appli 1
'-------------------------------------------------------------------------------
postesExclus = Array("poste-f", "poste-g", "poste-e") ' liste des postes pour lesquels l'appli n'est pas lancée
If NOT StrInArr(strComputer, postesExclus) Then WshShell.Run "\\monserveur\application1.exe", , false ' si le nom du pc n'est pas dans le tableau, lancement de l'appli
'-------------------------------------------------------------------------------
'lancement de l'appli 2 --> même procédé
'-------------------------------------------------------------------------------
postesExclus = Array("poste-z", "poste-t", "poste-u", "poste-r", "poste-a", "poste-c")
If NOT StrInArr(strComputer, postesExclus) Then WshShell.Run "\\monserveur\application2.exe", , false |
Partager