MySQL Forums
Forum List  »  German

Re: Variablen von VBS an MySQL übergeben
Posted by: Klaus Peter
Date: November 28, 2011 06:38AM

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.

Options: ReplyQuote


Subject
Views
Written By
Posted
2878
November 25, 2011 01:20AM
Re: Variablen von VBS an MySQL übergeben
1400
November 28, 2011 06:38AM


Sorry, you can't reply to this topic. It has been closed.

Content reproduced on this site is the property of the respective copyright holders. It is not reviewed in advance by Oracle and does not necessarily represent the opinion of Oracle or any other party.