VB kann im Quelltext von Webseiten verwendet werden und wird dann wohl nur vom IE richtig interprtiert !
Also sollte man es lassen !
In erster Linie ist VBS bzw. VBA die Scriptsprache für Windows bzw. die Makrosprache in Officeanwendungen und wesentlich mächtiger als Batch !
VBS bzw.VBA ist in weiten Teilen kompatibel zur Visual Basic Entwicklungsumgebung !
Hier z.B ein Quelltext zum kopieren von bestimmten Verzeichnissen :
'***********************************************************************
'* D2Copy.vbs Visual Basic Script für Windows Hostscripting
'***********************************************************************
'* Kopiert diverse Unterverzeichnisse von tgt_dc1 auf tgt_dc2
'***********************************************************************
'* V 1.0 (RP) 22.10.1999 Ersterstellung
'* V 1.1 (RP) 03.11.1999 Einbau DeleteFolder,
'* wegen schreibgeschützten Dateien
'* V 1.2 (RP) 08.11.1999 Sendmail an operator_s umgeleitet
'* V 1.3 (JB) 08.02.2000 Programme auf c:\scripts umgestellt
'* V 1.4 (RP) 06.11.2001 kopieren von tgt_dc1\c\operator
'* rausgenommen
'***********************************************************************
'Dim der Variablen
dim Source,Target
dim MSGString,Text
dim ret
'Error-Routine einschalten
on error resume next
'Create des Objektes als FileSystemObject und ShellObject
SET fs = CreateObject("Scripting.FileSystemObject")
Set ws = WScript.CreateObject("WScript.Shell")
'Initialisieren der Variablen
Source = "\\tgt_dc1\d\dii"
Target = "\\tgt_dc2\d\dii"
' Kopierroutine für Subvol D:\DII
' *******************************
'Löschen der Dateien im Verzeichnis D:\dii auf tgt_dc2...
ret=fs.DeleteFolder (Target,true)
'Kopieren der Dateien im Verzeichnis D:\dii mit Überschreibung, wenn bereits da...
ret=fs.CopyFolder (Source,Target,true)
if CStr(Err.Number) = 0 then
'Info an Eventlog über erfolgreichen Abschluß
ret = "\\tgt_dc1\c\scripts\logevent.exe -m \\tgt_dc1 -s S -c 1000 " & Chr(34)
ret = ret & "Dispos II von tgt_dc1 auf tgt_dc2 erfolgreich kopiert"
ret = ws.run (ret,0)
Err.Clear
Text = "Dispos II Kopie auf tgt_dc2 war erfolgreich !!"
MSGString = "\\tgt_dc1\c\scripts\sendmail.exe -u %COMPUTERNAME% -p " & Chr(34) & Chr(34) & " -s D2Copy.vbs.O.K. -r operator_s -m " & Chr(34)
MSGString = MSGString & Text & Chr(34)
ret = ws.run (MSGString,0)
else
'Info an Eventlog über fehlerhaften Abschluß
MSGString = "WHS D2Copy.vbs mit Fehler # " &CStr(Err.Number) & " ," & Err.Description
ret = "\\tgt_dc1\c\scripts\logevent.exe -m \\tgt_dc1 -s E -c 1000 " & Chr(34)
ret = ret & MSGString
ret = ws.run (ret,0)
Err.Clear
Text = "Dispos II Kopie auf tgt_dc2 war nicht erfolgreich, bitte kontrollieren !!"
MSGString = "\\tgt_dc1\c\scripts\sendmail.exe -u %COMPUTERNAME% -p " & Chr(34) & Chr(34) & " -s D2Copy.vbs.Fehler -r operator_s -m " & Chr(34)
MSGString = MSGString & Text & Chr(34)
ret = ws.run (MSGString,0)
end if
' Kopierroutine für Subvol d:\stdsoft\easy6530.723
' ************************************************
Source = "\\tgt_dc1\d\stdsoft\easy6530.723"
Target = "\\tgt_dc2\d\stdsoft\easy6530.723"
ret=fs.CopyFolder (Source,Target,true)
if CStr(Err.Number) = 0 then
'Info an Eventlog über erfolgreichen Abschluß
ret = "\\tgt_dc1\c\scripts\logevent.exe -m \\tgt_dc1 -s S -c 1000 " & Chr(34)
ret = ret & "Verzeichniss easy6530.723 auf tgt_dc2 erfolgreich kopiert"
ret = ws.run (ret,0)
Err.Clear
Text = "Verzeichnis easy6530.723 auf tgt_dc2 war erfolgreich !!"
MSGString = "\\tgt_dc1\c\scripts\sendmail.exe -u %COMPUTERNAME% -p " & Chr(34) & Chr(34) & " -s D2Copy.vbs.O.K. -r operator_s -m " & Chr(34)
MSGString = MSGString & Text & Chr(34)
ret = ws.run (MSGString,0)
else
'Info an Eventlog über fehlerhaften Abschluß
MSGString = "WHS D2Copy.vbs mit Fehler # " &CStr(Err.Number) & " ," & Err.Description
ret = "\\tgt_dc1\c\scripts\logevent.exe -m \\tgt_dc1 -s E -c 1000 " & Chr(34)
ret = ret & MSGString
ret = ws.run (ret,0)
Err.Clear
Text = "Kopie Verzeichniss easy6530.723 auf tgt_dc2 war nicht erfolgreich, bitte kontrollieren !!"
MSGString = "\\tgt_dc1\c\scripts\sendmail.exe -u %COMPUTERNAME% -p " & Chr(34) & Chr(34) & " -s D2Copy.vbs.Fehler -r operator_s -m " & Chr(34)
MSGString = MSGString & Text & Chr(34)
ret = ws.run (MSGString,0)
end if
WScript.Quit()
'************************************* Ende der Routine ***************************************
repi
REPI
gitarrero1
