Discussion :

[xSten]

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 :

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

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

[xSten]

La prochaine fois je bois mon café avant de poster une question...

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

Code :

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

1
2
3
4
 
@echo off
set /p lettre=renseigner la lettre attribuee a la cle:
runas /user:[Utilisateur] "mshta.exe %lettre%:\[Chemin]"

[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

[hackoofr]

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 Bat :

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

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

[Marc-L]

Bonjour et bravo !

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