РЕДАКТИРОВАТЬ: Если вы собираетесь понизить мой ответ, пожалуйста, укажите причину в комментариях, чтобы я мог улучшить в будущем.
Чистая программа VBScript, чтобы делать то, что выпросят, будет очень долго и громоздко.Вместо этого я бы использовал встроенную команду Windows cd
.Вы можете сделать это следующим образом:
cd %AppData%\Mozilla\Firefox\Profiles\*.default
В контексте приложения VBScript это будет выглядеть примерно так:
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run "cmd /c cd %AppData%\Mozilla\Firefox\Profiles\*.default"
Надеюсь, это поможет!
С уважением,
Гейб