-
[VBS]Lecture dans un csv
Bonjour,
Débutant en vbs,J'ai un petit soucis de script.
Voila le probleme:
Je dois configurer une machine automatiquement en entrant juste son numero (1,2,3 ou 4 par exemple).le script doit attaquer une fichier csv et me retourner la configuration:
Probleme:
Lors du lancement du script j'ai une erreur :
"Erreur de compilation Microsoft VBScript: Fin d'instruction attendue"
Le fichier Config.csv
======================================================
1;qualfs1;192.168.0.1;255.255.255.0;192.168.0.254;192.168.1.254
2;devfs5;192.168.0.2;255.255.255.0;192.168.0.252;192.168.1.252
3;devfs3;192.168.0.3;255.255.255.0;192.168.0.252;192.168.1.252
4;qualfs10;192.168.0.4;255.255.255.0;192.168.0.254;192.168.1.254
5;qualfs11;192.168.0.5;255.255.255.0;192.168.0.254;192.168.1.254
======================================================
Le script
======================================================
Dim objUser
varNumber = InputBox ("Numero de machine :","Configuration")
objUser.SetInfoOpen ("config.csv") For Input As #1 Next
Do While Not EOF(1)
Input #1, varLigne
varNumber = Split(varLigne,",")(0)
varName = split(varLigne,",")(1)
varIP = Split(varLigne,",")(2)
varSubnet = Split(varLigne,",")(3)
varGatew = Split(varLigne,",")(4)
vardns = Split(varLigne,",")(5)
If varNumber= varNumber Then
MsgBox varName
MsgBox varSubnet
MsgBox varIP
MsgBox varGatew
MsgBox vardns
End If
Loop
Close #1
======================================================
Pouvez vous m'aider s'il vous plait ?
Merci beaucoup.
