Option Explicit
Dim WshShell : Set WshShell = CreateObject("WScript.Shell")
WshShell.RegWrite "HKCR\*\Shell\MenuText\command\",  "wscript.exe " & _
  """c:\Fileinfo.vbs""" & " " & """%1"""
WshShell.Regwrite "HKCR\*\Shell\MenuText\", "Dateiinfo"

Option Explicit
Dim IE, Arguments, arg
 
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate "about:blank"
Do Until IE.ReadyState = 4
  WScript.Sleep 50
Loop
For Each arg In WScript.Arguments
  IE.Document.Parentwindow.ClipboardData.SetData "Text", arg
Next
Wscript.Echo IE.Document.Parentwindow.ClipboardData.GetData("Text")