'v6.6***********************************************************
' File:   popup-meldung.vbs
' Autor:  dieseyer@gmx.de 
'         http://dieseyer.de
'
'
'
'***************************************************************

Option Explicit ' Siehe http://dieseyer.de/dse-wsh-lernen.html#OptionExpl

Dim fso         : Set fso       = WScript.CreateObject("Scripting.FileSystemObject")
Dim WSHShell    : Set WSHShell  = WScript.CreateObject("WScript.Shell")
Dim WSHNet      : Set WSHNet    = WScript.CreateObject("WScript.Network")
Dim WshSysEnv   : Set WshSysEnv = WSHShell.Environment("SYSTEM")
Dim oArgs       : Set oArgs     = Wscript.Arguments 

Dim Pfad        :     Pfad      = fso.GetParentFolderName( WScript.ScriptFullName ) 

Dim Pos, Txt, Tst, i, n, PC, DateiName	
Dim FileOut, FileIn

'hole alle Argumente 
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
For  i = 0 to oArgs.Count - 1     ' hole alle Argumente 

  Txt = Txt & i & vbTab & oArgs.item(i) & vbCRLF

Next 
  
  Txt = Txt & WSHNet.ComputerName & " - " & WSHNet.ComputerName

WSHShell.Popup Txt, 10, WScript.ScriptName

WSCript.Quit