'	Datei:	S_VBS\RUNVM.VBS
'	Stand:	28.08.2002
'    erstellt:	12.04.2002
'    Funktion:	Wechseln zu demaris VideoManager u.a. Nützlichkeiten
'		Copyright by demaris 2002
'----------------------------------------------------------------------------------------------
Option explicit
'----------------------------------------------------------------------------------------------
Dim object
Dim WSHShell
'----------------------------------------------------------------------------------------------
'		Call Anzeige ("Start "  & "                     ", 10)
'----------------------------------------------------------------------------------------------
Function ActionLog(Text, View, Buttons)

'on error resume next

	set object = CreateObject("VM.Service")
		ActionLog = object.ActionLog(Text, View, Buttons)
	set object = nothing

End Function
'----------------------------------------------------------------------------------------------
Sub Anzeige(Text, Laenge)

on error resume next

	Set WSHShell = CreateObject("WScript.Shell")
		WSHShell.Popup Text, Laenge
	Set WSHShell = nothing

end Sub
'----------------------------------------------------------------------------------------------
Function getBackUpData(Typ)

on error resume next

	set object = CreateObject("VM.Service")
		getBackUpData = object.getBackUpData(Typ)
	set object = nothing

End Function
'----------------------------------------------------------------------------------------------
Function VMstart(HWND, Command)

on error resume next

	if HWND = "" then
		HWND = 0
	end if
	if Command = "" then
		Command = 0
	end if
	set object = CreateObject("VM.Service")
		object.StartVM HWND, Command
	set object = nothing

End Function
'----------------------------------------------------------------------------------------------
Function VMBackUp()

on error resume next

	set object = CreateObject("VM.Service")
		VMBackUp = object.VMBackUp()
	set object = nothing

End Function
'----------------------------------------------------------------------------------------------
Function VMexists()

on error resume next

	set object = CreateObject("VM.Service")
		VMexists = object.installed
	set object = nothing

End Function
'----------------------------------------------------------------------------------------------
Function VMReorg()

on error resume next

	set object = CreateObject("VM.Service")
		VMReorg = object.VMReorg()
	set object = nothing

End Function
'----------------------------------------------------------------------------------------------
Function VMTest(Text)

on error resume next

	set object = CreateObject("VM.Service")
		VMTest = object.VMTest(Text)
	set object = nothing

End Function
'----------------------------------------------------------------------------------------------