blogMyTrash

‘Division, Restbestimmung mittels Subtraktion in VB-Script
int a
int b
int rest
a = InputBox(”Dividend für die Division?”)
b = InputBox(”Divisor für die Division?”)
rest = a
while((rest-b) >= 0) ’solange der Divisor noch abgezogen werden kann subtrahieren
rest = rest-b
wend
msgbox rest ‘Ausgabe des Restes nach der Restbestimmung

‘kleinstes gemeinsames vielfaches zweier Zahlen mit VB-Script bestimmen
Dim dummy
Dim aktRest
Dim z1
Dim z2
Dim ggt
Dim kgv
z1 = InputBox(”Dividend für die Division?”)
z2 = InputBox(”Divisor für die Division?”)
‘ Wenn die erste Zahl größer ist, dann Zahlen tauschen
If z1 < z2 Then
dummy = z2
z2 = z1
z1 = dummy
End If
dummy = z1*z2
aktRest = z1 Mod z2
If aktRest = 0 Then
‘ Wenn [...]

‘Einer wird gewinnen, ein Abzähl Spiel programmieren mit VB-Script
Option Explicit
Dim n, m, i, x, count, flag
Dim Spieler()
n = InputBox(”Anzahl der Spieler?”)
m = InputBox(”Zähler?”)
ReDim Spieler(n)
count = 0
For x=1 To n-1
For i=1 To m
flag = 0
count = count+1
if count-n > 0 then
count = count-n
end if
if (Spieler(count)=”out”) then
do while flag=0
count = count+1
if count-n > 0 then
count = count-n
end [...]

‘ Mit VB-Script Textdatei als Datenbank verwenden bzw. ansprechen
strFile = “C:\Temp\LogAnalyse.txt” ‘ Pfad zur TextdateistrFolder = “C:\Temp\” ‘ Pfad in der die schema.ini liegt (für Struktur der Datenbank)
Set objfs = CreateObject(”Scripting.FileSystemObject”)Set objado = CreateObject(”ADODB.Connection”)Set objshell = CreateObject(”WScript.Shell”)
strFile = objshell.ExpandEnvironmentStrings(strFile)
objfs.CopyFile strFile, strFolder
objado.open “Driver={Microsoft Text Driver (*.txt; *.csv)};DefaultDir=” & strFolder
sql = “select * from LogAnalyse.txt order [...]

‘ Neue Textdatei erzeugen bzw. erstellen mit VBScript
datei = “C:\Temp\vbs-files\token.txt” ‘ Pfad und Name für die neue Textdatei
Set objfs = CreateObject(”Scripting.FileSystemObject”)Set objstream = objfs.CreateTextFile(datei) ‘ Textdatei erzeugen bzw. erstellenobjstream.WriteLine Nowobjstream.WriteLine vbcrlfobjstream.closeWScript.Echo “Datei erzeugt: ” & datei

‘ Mit VB-Script Schreibschutz einer Datei entfernen
Set fs = CreateObject(”Scripting.FileSystemObject”)datei = “C:\Beispiel.txt” ‘ Pfad zu einer existierenden Datei mit Schreibschutz
DeleteSchreibschutz datei ‘ Subroutine DeleteSchreibschutz aufrufen und Dateipfad übergebenMsgBox “Schreibschutz entfernt bei ” & datei
Sub DeleteSchreibschutz(dateiname) If Not fs.FileExists(dateiname) Then MsgBox “Datei nicht gefunden!” wscript.quit [...]

‘ eindimensionales Array definieren, befüllen und ausgeben in VB-Script
Dim ProcessArray(1) ‘Array definieren 2 Zeilen Dim i ‘Hilfsvariable
ProcessArray(0) = “Inhalt 1″ ‘Wert 0 befüllenProcessArray(1) = “Inhalt 2″ ‘Wert 1 befüllen
For i = 0 To 1 WScript.Echo ProcessArray(i) ‘Wert i des Arrays ausgebenNext

‘ zeilenweise einlesen bzw. auslesen einer Textdatei mit VB-Script
dateiPfad = “C:\Beispiel.txt”x = 0Const ForReading = 1
Set fs = CreateObject(”Scripting.FileSystemObject”)
If (fs.FileExists(dateiPfad)) Then Set f = fs.OpenTextFile(dateiPfad, ForReading) ‘öfnen des File zum Lesen
Do While f.AtEndOfStream <> True ’solange einlesen bis Ende der Datei erreicht [...]

‘ Mit VBScript Textdatei erzeugen und löschen
datei = “C:\beispiel.txt”
Set objfs = CreateObject(”Scripting.FileSystemObject”)If Not objfs.FileExists(token) Then WScript.Echo datei & ” ist nicht vorhanden”Else objfs.DeleteFile datei ‘ Mit VBScript Textdatei löschen WScript.Echo “File gelöscht: ” & dateiEnd If
Set objfs = CreateObject(”Scripting.FileSystemObject”)Set objstream = objfs.CreateTextFile(datei) ‘ Mit VBScript Textdatei erzeugenobjstream.WriteLine Nowobjstream.closeWScript.Echo “File erzeugt: ” [...]

‘ Mit VBScript Dienst beenden bzw. stoppen
strServer = “.”strName = “AudioSrv” ‘Dienst der Beendet werden soll’
Set objWMI = GetObject(”winmgmts:\\” & strServer & “\ROOT\CIMV2″)Set objDienst = objWMI.Get(”Win32_Service=’” & strName & “‘”)With objDienst If .AcceptStop Then rv = objDienst.StopService ‘ Dienst stoppen bzw. beenden WScript.Echo rv Else [...]