ExpandEnvironmenStrings.vbs

   1 Dim fso: Set fso = CreateObject("Scripting.FileSystemObject")\r
   2 Dim sh: Set sh = CreateObject("WScript.Shell")\r
   3 Dim otf: Set otf = fso.OpenTextFile(WScript.Arguments.Unnamed(0), 1)\r
   4 \r
   5 Do Until otf.AtEndOfStream = True\r
   6         WScript.Echo sh.ExpandEnvironmentStrings(otf.ReadLine)\r
   7 Loop\r
   8 \r
   9 otf.Close\r
  10 \r