Runas avec une variable

Version imprimable

Bonjour,

Je voudrais faire un petit script qui demande la lettre attribué à une certaine clé USB. Je pourrais mettre le chemin en dur dans le script mais cela serait trop simple, étant donné que c'est une clé qui va servir à des interventions sur place, du coup les chemins présents dans le script peuvent être mauvais si la clé ne prend pas la même lettre sur chaque poste.

Du coup pour remédier à cela, je demande la lettre de la clé et je lance mon script via la commande RunAs pour choper les droit d'admin. La commande marche bien mais elle n'ouvre pas le script demandé... Surement à cause de ma variable...

Le code en question :
Code:

1 2 3 4 5 Dim lettre, wsh Set wsh = CreateObject("WScript.Shell") lettre = InputBox("Renseigner la lettre attribuée à la clé USB") wsh.Run "C:\Windows\System32\runas.exe /user:Administrateur ""C:\windows\system32mshta.exe"&lettre&":\Sources\scan.hta"
Merci d'avance et bonne journée à vous :)

07/08/2015, 09h31
xSten
La prochaine fois je bois mon café avant de poster une question... :mouarf:

La solution pour le problème si jamais quelqu'un est intéressé :
Code:

1 2 3 4 @echo off set /p lettre=renseigner la lettre attribuee a la cle: runas /user:[Utilisateur] "mshta.exe %lettre%:\[Chemin]"
07/08/2015, 17h42
Marc-L

Bonjour,

au lieu de demander la lettre du lecteur, l'autre voie est de scanner les lecteurs pour trouver son nom ou un fichier en particulier …

________________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse

Citation:

Envoyé par Marc-L

au lieu de demander la lettre du lecteur, l'autre voie est de scanner les lecteurs pour trouver son nom ou un fichier en particulier …
________________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
@echo off
mode 70,10 & color 0A
echo.
ECHO  ********************************************************************
echo.
echo         Recherche de la Lettre de votre cle USB est en cours .....
echo.
ECHO  ********************************************************************
if exist %Tmp%\tmp.txt del %Tmp%\tmp.txt
if exist %Tmp%\tmp2.txt del %Tmp%\tmp2.txt
wmic logicaldisk get DeviceID,DriveType /Format:CSV > %Tmp%\tmp.txt
for /f "skip=2 tokens=1-3 delims=," %%a in ('%COMSPEC% /a /c type "%Tmp%\tmp.txt"') do echo %%b %%c >> %Tmp%\tmp2.txt
for /f "tokens=1" %%i in ('%COMSPEC% /a /c type "%Tmp%\tmp2.txt" ^|Find "2"') Do (set MyUSBDrive=%%i)
Del %Tmp%\tmp.txt & Del %Tmp%\tmp2.txt
echo La lettre de votre cle USB est %MyUSBDrive%
cls
echo.
ECHO  *******************************************************************
echo.
echo                La Lettre de votre cle USB est %MyUSBDrive%
echo.
ECHO  *******************************************************************
pause
echo runas /user:%username% "mshta.exe %MyUSBDrive%\Application.hta"
pause
runas /user:%username% "mshta.exe %MyUSBDrive%\Application.hta"
pause

25/08/2015, 19h13
Marc-L

Bonjour et bravo ! :plusser:

Je pensais en plus simple en vbs au Drives de FSO puis via DriveType ou VolumeName par exemple …