Set FSO = CreateObject("Scripting.FileSystemObject")
[b]
if(Set virtualServer = CreateObject("VirtualServer.Application", "remoteserver")) == false {
[/b]
Set sh = CreateObject("WScript.Shell")
sh.Run("\\remoteserver\c$\Treiber\vssrvc.exe -regserver")
WScript.Sleep 5000
Set virtualServer = CreateObject("VirtualServer.Application", "Asus2"
}
set vm = virtualServer.FindVirtualMachine("Zerberus")
set shutdownTask = vm.GuestOS.Shutdown
while not shutdownTask.isComplete
WScript.Sleep 1000
wend
on error resume next
set bla bla
fehler=err
on error goto 0
if fehler then
rem fehlerbehandlung
end if
VBS Hilfe
Meera1 12.02.2007 - 70 Hits -
eingabe erfragen -> dos automatisieren
cjoerns 16.10.2007 - 108 Hits - 3 Antworten
Programmfester auf normale Größe bringen
Bussard 02.12.2007 - 92 Hits - 7 Antworten
Funktion die ein Recordset zurückgibt in VBS?
Tigger1975 13.06.2008 - 62 Hits -