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 = [...]

‘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 [...]

‘ 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 = [...]

‘ 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 End If Set file = fs.GetFile(dateiname) file.Attributes = [...]

‘ 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 x = x+1 ReDim Preserve myArray(x) ‘Array vergrößern, damit [...]

‘ 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 WScript.Echo “Dienst lässt sich nicht stoppen.” WScript.Echo “Der [...]