Je veux maper différentes lettres en utilisant Inputbox & CASE.
Ce qui est ridicule c'est qu'il n'y a pas d'erreures qui s'affichent mais il n'y a pas de drive qui s'affichent.
Voici des fragments de mon code.
if mode <> ("wscript.exe" ) Then
while value=false
quest=InputBox("Choix-1 Connecter des lecteurs"&Vbcrlf&_
"Choix-2 Deconnecter des lecteurs"&Vbcrlf&_
"Choix-3 Quitter le script", "Fenetre des choix" )
Select Case quest
case "1"
value=true
lettre=Inputbox("Nom de la lettre:" )
rep=Inputbox("Entrez un nom de repertoire tel que"&Vbcrlf&_
"ARCHIVE "&Vbcrlf&"CLIENT "&Vbcrlf&"LOT" ,"repertoire voulue:" )
call Dpoint()
call Mapd()
call ShortCut()
msgbox("La connection est etablie" )
call list()
'SUB ROUTINES---------------------------------------------------------------------------------------------------------------------------
Sub Mapd()
Select Case rep
Case "Archive"
wshnet.MapNetworkDrive lettre, "\\127.0.0.1\temps"
wshell.LogEvent 0, "Lettre " &lettre& " maintenant connectée par "&wshnet.username
Case "CLIENT"
wshnet.MapNetworkDrive lettre, "\\127.0.0.1\temps"
wshell.LogEvent 0, "Lettre " &lettre& " maintenant connectée par "&wshnet.username
Case "LOT"
part="LOT"
wshnet.MapNetworkDrive lettre, "\\127.0.0.1\"&part
wshell.LogEvent 0, "Lettre " &lettre& " maintenant connectée par "&wshnet.username
end select
end sub
Message édité par Sakayapo le 07-03-2009 à 18:16:00