ExpandEnvironmenStrings.vbs

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