Команда, чтобы найти Active Drive

Question

Я пытаюсь создать VBScript для автоматического запуска некоторых .exe-файлов. Проблема в том, что скрипт и файлы .exe находятся на flashdrive, поэтому он должен сам найти текущую букву диска. Я могу сделать это в пакетном файле, используя %~d0, но мне больше нравятся некоторые функции VBScript, особенно возможность отправки нажатий клавиш. В любом случае, я нашел целый список команд VBScript, но я не эксперт, и мне нужна помощь в синтаксисе. До сих пор он у меня установлен, чтобы открыть диспетчер задач и нажмите несколько клавиш, чтобы он выбрать вкладку «производительность» в диспетчере задач:

Dim Act :Set Act = CreateObject("Wscript.Shell") 
Act.Run("taskmgr.exe") 
Success = Act.AppActivate("taskmgr") 
Wscript.Sleep 250 
Act.SendKeys "{TAB 5}" :WScript.Sleep 500 
Act.SendKeys "{RIGHT 3}" :WScript.Sleep 500 

Я хотел бы знать, какую команду нужно использовать, чтобы сказать сценарий для использования буквы диска, в которой сценарий был выполнен с (USB-накопитель).

Answer 1

Используйте свойство .ScriptFullName, чтобы получить полную спецификацию файла исполняемого скрипта и примените .GetParentFolderName для пути к папке или .GetDriveName только для буквы диска.

>> Set oFS = CreateObject("Scripting.FileSystemObject") 
>> s = WScript.ScriptFullName 
>> WScript.Echo oFS.GetParentFolderName(s), oFS.GetDriveName(s) 
>> 
M:\bin M: 

cf. here