Re: Variablen von VBS an MySQL übergeben
Also mit u.a. Code klappt es erstmal.
Allerdings möchte ich jetzt die Server nicht mehr aus einer Textdatei auslesen, sondern aus einer weitern Tabelle der Datenbank, und zwar sollen folgende Server berücksichtigt werden:
SELECT servername FROM `nagios-parameter` WHERE LocalAdmin=1
Hier der Code der umgeschrieben werden sollte:
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/28/2011 06:39AM by Klaus Peter.