Discussion :

[BntMICHEL]

Bonjour,

Je me permets de vous soliciter car je rencontre un problème

Je souhaiterai mapper un lecteur avec en paramètre login et mot de passe.
Le login doit etre mis de cette façon mondomaine.local\%username% puis une inputbox qui demand de saisir leur mot de passe.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Dim Input 
Input = InputBox("Entrer votre mot de passe AGILMAP") 
WScript.echo(Input) 
WshNetwork.MapNetworkDrive "S:","\\SRVDATA2.GRPSOBOTRAM.LOCAL\Perrier",false,"grpsobotram.local\%username%", Value ("Input")

Pouvez vous m aider?

Je vous remercie.

Cordialement
BntMICHEL

[ProgElecT]

Je tenterai

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

WshNetwork.MapNetworkDrive "S:","\\SRVDATA2.GRPSOBOTRAM.LOCAL\Perrier",false,"grpsobotram.local\" & WshNetwork.UserName,Input

[BntMICHEL]

Je te remercie cela marche tres bien

Voici le résultat

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Dim Input
Input = InputBox("Merci d'entrer votre mot de passe AGILMAP / AS400","Accès à SRVDATA2") 
WshNetwork.MapNetworkDrive "S:","\\SRVDATA2.GRPSOBOTRAM.LOCAL\Perrier",false,"grpsobotram.local\" & WshNetwork.UserName,Input

Cordialement

BntMICHEL