Option Explicit
Const ORDNER = "E:\Siv\"
Const BENUTZER = "admin"
Const PSW = "123"
Dim WshShell
 
Set WshShell = CreateObject("WScript.Shell")
 
With WshShell
  .Run("runas /user:" & BENUTZER & " " &  Chr(34) & ORDNER & "Siv.exe" & _
    "-save=[DIMMs]=" & ORDNER & "RAM.txt" & Chr(34))
  .AppActivate("%comspec%")
  .Sendkeys PSW & "~"
   Wscript.Sleep 1000
  .Run("notepad " & ORDNER & "Ram.txt")
End With