как сделать так чтоб VBS понимал %windir% и %SystemRoot%?

vbs не понимает системные переменные, выводит ошибку "путь не найден".

Dim fo, fp
Set fo = CreateObject("Scripting.FileSystemObject")
Set fp = fo.CreateTextFile("%windir%ResourcesThemesLuna.theme", True)

как сделать так чтоб vbs понимал %windir% и %SystemRoot%?
0
vbs

1 ответов

set wsho=WScript.CreateObject("WScript.Shell")
msgbox wsho.ExpandEnvironmentStrings("%windir%")
0