'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