boucle if avec condition en VBS !

boucle if avec condition en VBS ! - VB/VBA/VBS - Programmation

Marsh Posté le 28-09-2005 à 16:11:44    

hello tout le monde !
 
je cherche a effetuer un ptit script VBS avec une boucle if et quelques conditions !
le probleme est que j'ai beaucoup de mal avec la syntaxe de ce language alors si vous pouvez m'eclairer ....
 
 
dim objNet, computerlogon, var1, var2
Set objNet = CreateObject("Wscript.Network" )  
computerlogon =objNet.ComputerName
 
var1 = "ORDI1"
var2 = "ORDI2"
 
if computerlogon = var1 || computerlogon = var2 Then
 'si c vrai
 MsgBox (computerlogon)
 Else
 'sinon
 
 End if
 
 
je n'arrive pas a faire le OU avec une seule condition ca fonctionne !
 
 
merci pour votre aide !

Reply

Marsh Posté le 28-09-2005 à 16:11:44   

Reply

Marsh Posté le 28-09-2005 à 16:14:37    

Citation :

if computerlogon = var1 Or computerlogon = var2 Then


 
ça marchera mieux


---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack
Reply

Marsh Posté le 28-09-2005 à 16:26:41    

yes ca roule merci pour otn aide mareek !!

Reply

Marsh Posté le 08-07-2011 à 11:36:30    

Bonjour,
 
Spécialiste du déterrage de topic au rapport :D
 
J'ai à peu près le même soucis que mims1664 mais moi c'est un AND ^^

Code :
  1. Set Folder = fso.Getfolder(TEST)
  2. For Each File In Folder.Files
  3. If (DateDiff("d", File.DateCreated, DateSysteme) > AgeMaximalFichiers) AND Const DeleteReadOnly = True
  4.  Set objFSO = CreateObject("Scripting.FileSystemObject" )
  5.  objFSO.DeleteFile("C:\TEST\*.txt" ), DeleteReadOnly Then
  6.   File.Delete()
  7.  End If
  8. Next


Le message d'erreur donne "Erreur de syntaxe" ligne 3.
 
Je n'arrive donc pas à exécuter deux conditions dans une boucle IF, pourriez-vous m'éclairer ?
 

Reply

Marsh Posté le 11-07-2011 à 14:13:13    

Code :
  1. IF (DateDiff("d", File.DateCreated, DateSysteme) > AgeMaximalFichiers) AND Const DeleteReadOnly = True THEN


Il ne faut pas oublier THEN


Message édité par tarnx le 11-07-2011 à 14:13:39
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed