Je debute sous wsh/vbs, et je bloque sur un morceau de code pas terminé, à la ligne 23 cractère 3 j'ai une erreur de type
Citation :
objet attendu:"
|
mais je ne vois pas se qui cloche.
svp aidez moi
Code :
- 'odin - 23 Novembre 2006 - TP3 Swtich
- option explicit
- class connexion
- public refmat,desig,nbPort
- end class
- class connecter
- public refmat,numPort,refMatCon
- end class
- dim tabconnexion(8)
- dim tabconnecter(8)
- dim i
- dim reference
- dim portotal
- for i = 1 to i = 6
- set tabconnexion(i) = new connexion
- next
- tabconnexion(1).refmat= "SWI3423"
- tabconnexion(1).desig= "Switch 3COM"
- tabconnexion(1).nbPort= "12"
- tabconnexion(2).refmat="SWI3423"
- tabconnexion(2).desig="Switch HP"
- tabconnexion(2).nbport="24"
- tabconnexion(3).refmat="SWI3427"
- tabconnexion(3).desig="Swtich HP"
- tabconnexion(3).nbport="24"
- tabconnexion(4).refmat="SWI3428"
- tabconnexion(4).desig="Switch 3com"
- tabconnexion(4).nbport="12"
- tabconnexion(5).refmat="ROU01"
- tabconnexion(5).desig="Routeur Cisco"
- tabconnexion(5).nbport="0"
- tabconnexion(6).refmat="zzzzz"
- tabconnexion(6).desig="zzzzz"
- tabconnexion(6).nbport="0"
- for i = 1 to i = 8
- set tabconnecter(i) = new connecter
- next
- tabconnecter(1).refmat="SWI327"
- tabconnecter(1).numPort="2"
- tabconnecter(1).refmatcon="PC01"
- tabconnecter(2).refmat="SWI3427"
- tabconnecter(2).numport="10"
- tabconnecter(2).refmatcon="PC03"
- tabconnecter(3).refmat="SWI3427"
- tabconnecter(3).numport="..."
- tabconnecter(3).refmatcon="..."
- tabconnecter(4).refmat="SWI3427"
- tabconnecter(4).numport="24"
- tabconnecter(5).refmat="SWI3432"
- tabconnecter(5).numport="1"
- tabconnecter(5).refmatcon="SWI3427"
- tabconnecter(6).refmat="zzzzz"
- tabconnecter(6).numport="0"
- tabconnecter(6).refmatcon="zzzzz"
- reference = inputbox ("Entrez la réference du matériel recherché" )
- Msgbox (" Vous avez entré: " & reference)
- while tabconnexion(i).refmat <> reference
- i= i+1
- wend
- while tabconnecter(i).refmat <> reference
- i= i+1
- wend
- if tabconnecter(i).refmat= reference then
- portotal= portotal +1
- else wscript.echo "matériel inconnu"
- end if
|
Message édité par odin-78 le 23-11-2006 à 11:57:06