boucle if avec condition en VBS !

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : boucle if avec condition en VBS !

mims1664

3 / vert

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 !

Publicité

mareek

Et de 3 \o/

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

mims1664

3 / vert

yes ca roule merci pour otn aide mareek !!

ZeratuuL

Bonjour,

Spécialiste du déterrage de topic au rapport

J'ai à peu près le même soucis que mims1664 mais moi c'est un AND ^^

Code :

Set Folder = fso.Getfolder(TEST)
For Each File In Folder.Files
If (DateDiff("d", File.DateCreated, DateSysteme) > AgeMaximalFichiers) AND Const DeleteReadOnly = True
Set objFSO = CreateObject("Scripting.FileSystemObject" )
objFSO.DeleteFile("C:\TEST\*.txt" ), DeleteReadOnly Then
File.Delete()
End If
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 ?

tarnx

Code :

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

FORUM HardWare.fr

Programmation

VB/VBA/VBS

boucle if avec condition en VBS !

Sujets relatifs
prb de double boucle	[C#] Boucle for sur DataSet ??
[VBS]Problème de taille d'un fichier non mis à jour...[EDIT]	peut simplifier cette boucle
avec VBS ecrire dans un fichier exel dans des champs a1 a2 ...	Script VBS Mappage Disque Réseau et printer LPT2
comment faire ma boucle ?!	[RESOLU]Boucle dans remplacement regex
Sauvegarde Classeur Excel dans un VBS	autosier mon script VBS dans mcafee
Plus de sujets relatifs à : boucle if avec condition en VBS !

Page générée en 0.061 secondes