Hallo!
Ich bin absoluter VBS-Anfänger und habe mich noch nie mit MySQL auseinandergesetzt.
Nun habe ich die Aufgabe bekommen, die Ergebnisse, die mit diesem Code:
erzeugt werden, in eine bereits bestehende MySQL Datenbank zu schreiben.
Alles was ich bereits in den Weiten des Internets gefunden habe, war mir zu komplziert
Grüße!
Ich bin absoluter VBS-Anfänger und habe mich noch nie mit MySQL auseinandergesetzt.
Nun habe ich die Aufgabe bekommen, die Ergebnisse, die mit diesem Code:
Visual Basic-Quellcode
- Const ForReading = 1, ForWriting = 2, ForAppending = 8
- Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
- Dim fso, ts, fileObj, TextLine, FileName, Computerliste, Computer, Benutzer, dateiPfad, x, fs, f
- dateiPfad = "serverliste.txt"
- x = 0
- Set fs = CreateObject("Scripting.FileSystemObject")
- Set f = fs.OpenTextFile(dateiPfad, ForReading)
- Do While f.AtEndOfStream <> True
- x = x+1
- ReDim Preserve myArray(x)
- Computer = f.Readline
- Set fso = CreateObject("Scripting.FileSystemObject")
- ' Textdatei generieren
- FileName = "admins.txt"
- fso.CreateTextFile FileName
- Set fileObj = fso.GetFile(FileName)
- ' Textstream für die Ausgabe öffnen
- Set ts = fileObj.OpenAsTextStream(ForWriting, TristateUseDefault)
- ' Admins auslesen und in Datei schreiben
- ts.WriteLine Computer
- For Each Benutzer In GetObject("WinNT://" & Computer & "/Administratoren").Members
- ts.WriteLine vbTab & Benutzer.name
- On Error Resume Next
- Next
- ' Admins (ENGL) auslesen
- For Each Benutzer In GetObject("WinNT://" & Computer & "/Administrators").Members
- ts.WriteLine vbTab & Benutzer.name
- On Error Resume Next
- Next
- ts.WriteLine ""
- loop
- ts.Close
- ts.Close
- Wscript.Echo "Fertig!"
erzeugt werden, in eine bereits bestehende MySQL Datenbank zu schreiben.
Alles was ich bereits in den Weiten des Internets gefunden habe, war mir zu komplziert
Grüße!
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „bond007007james“ ()