http://dieseyer.de • all rights reserved • © 2011 v11.4

'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

http://dieseyer.de • all rights reserved • © 2011 v11.4