blogMyTrash

‘ Mit VB-Script in eine Textdatei schreiben datei =”C:\Beispiel.txt” ‘ Pfad zur Datei Const ForAppending = 8Const ForWriting = 2Set objfs = CreateObject(“Scripting.FileSystemObject”)Set objstream = objfs.OpenTextFile(datei, ForAppending, True)objstream.WriteLine Now & ” mein Inhalt…” ‘ in Textdatei schreibenobjstream.close

‘ Mit VB-Script Umgebungsvariablen ausgeben bzw. auslesen Set wshshell = CreateObject(“WScript.Shell”) For Each strVar In wshshell.Environment(“Process”) WScript.Echo strVar ‘ Umgebungsvariablen ausgeben bzw. auslesenNext

‘ Datum und Zeit ausgeben in VB-Script MsgBox Now ‘ Gibt das aktuelle Datum und die aktuelle Zeit im VB-Script aus‘ Leider wird die Zeit nicht auf Millisekunden ausgegeben

‘ Zeitgesteuerter Programmstart durchführen mit VB-Script‘ Das VB-Script zu einem bestimmten Zeitpunkt starten server = “.” prg = “C:\beispiel.exe” ‘ Programm, welches gestartet werden sollzeitzone = 120 Set objdt = CreateObject(“WbemScripting.SWbemDateTime”)objdt.SetVarDate DateAdd(“n”, 2, Time), True ‘ Aktuelle Zeit plus zwei Minutenobjdt.DaySpecified = Falseobjdt.MonthSpecified = Falseobjdt.YearSpecified = Falseobjdt.utc = zeitzonewhen = objdt.ValueWScript.Echo when Set objwmi = [...]

‘ Zeit verzögern bzw. Skript für eine gewisse Zeit blockieren mit VB-Script MsgBox “Start”WScript.Sleep 1000 ‘ eine Sekunde verzögern bzw. Skript blockierenMsgBox “WSH hat gerade das Skript 1s verzögert bzw. blockiert.”WScript.Quit

‘ Mit VB-Script Random Zufallszahl generieren ‘ Wertebereich definiereninthighnumber = 1000 ‘ obere Grenze der Zufallszahlintlownumber = 400 ‘ untere Grenze der Zufallszahl for i = 1 to 5 randomize ‘ Random Zufallszahl Generator laden intnumber = 0.01*int((inthighnumber – intlownumber + 1) * rnd + intlownumber) ‘ Zufallszahl im Wertebereich generieren (zwischen 10s und 4s) [...]

‘ zweidimensionales Array mit VB-Script definieren dim myArray(3,1) ‘ zweidimensionales Array definieren: 4 Zeilen und 2 Spalten myArray(0,1) = “Wert01″ ‘Zeile 1 und Spalte 2myArray(1,0) = “Wert10″ ‘Zeile 2 und Spalte 1myArray(1,1) = “Wert11″ ‘Zeile 2 und Spalte 2myArray(2,0) = “Wert20″ ‘Zeile 3 und Spalte 1myArray(3,1) = “Wert31″ ‘Zeile 4 und Spalte 2 for x [...]