Re: Variablen von VBS an MySQL übergeben
Die Spalte gibt es auch nicht.
Die Tabelle heißt "admins-lokal" und die Spalten heißen "Servername" und "Adminname".
Das Skript soll jetzt bewirken, dass die Server, die in der Vaiablen "Computer" stehen in die Spalte "Servername" und die Benutzer, die in der Variable "Benutzer.name" stehen in die Spalte "Adminname" geschrieben werden.
Ich habe es jetzt folgendermaßen umgeschrieben und es scheint zu klappen:
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
' Verbindung zur DB herstellen
Dim mConnection
Set mConnection = CreateObject("ADODB.Connection")
mConnection.Open "DSN=admins;" & _
"Uid=xxxx;" & _
"Pwd=xxxx;"
Set fso = CreateObject("Scripting.FileSystemObject")
' Admins auslesen und in DB schreiben
For Each Benutzer In GetObject("WinNT://" & Computer & "/Administratoren").Members
mConnection.Execute "INSERT INTO `admins-lokal` (`Servername`,`Adminname`) VALUES ('" & Computer & "','" & Benutzer.name & "'); "
On Error Resume Next
Next
' Admins (ENGL) auslesen
For Each Benutzer In GetObject("WinNT://" & Computer & "/Administrators").Members
mConnection.Execute "INSERT INTO `admins-lokal` (`Servername`,`Adminname`) VALUES ('" & Computer & "','" & Benutzer.name & "'); "
On Error Resume Next
Next
loop
ts.Close
ts.Close
Wscript.Echo "Fertig!"
Edited 1 time(s). Last edit at 11/25/2011 03:07AM by Klaus Peter.