Hallo,
ich habe eine Aufgabe bekommen, füllen von Daten in eine DB. Da ich mich in Perl ein wenig auskenne, habe ich mich für diese Sprache entschieden.
Nun nochmal zum Theme…
Ich soll aus einer SQL DB Servernamen auslesen, von diesem dann, mit Hilfe eines VBS Scriptes, dass aktuelle Microsoft Patchdatum herausfiltern und die DB damit füllen.
Das Auslesen der Servernamen ist erledigt auch die Übergabe an das VBS Script. Nun stellt sich bei mir die Frage, wie bekomme ich die Werte, welche mir das VBS Script ausliest in das Perl Script zurück?
Gegoogelt habe ich schon, finde jedoch nichts einleuchtenes
Hier einmal der Q-Text:
Perlausschnitt:
#########################################################
$sql = qq[Select Servername FROM $servername];
$rc = $dbh->Sql($sql);
while ($dbh->FetchRow())
{
@ar = $dbh->Data();
$server[$i][0] = $ar[0];
$i++;
}
$anzahl = $i;
$i = 0;
#######################################################
########################################################
VBS Datei öffnen
#######################################################
while ($i ne $anzahl)
{
my $prog = „Patchdatum.vbs $server[$i][0]“;
system($prog);
Was nun? …
}
VBSausschnitt:
Dim strHostname, Updatedaten
set strHostname = WScript.Arguments
On Error Resume Next
Set objSession = CreateObject(„Microsoft.Update.Session“, strHostname(0))
Set objSearcher = objSession.CreateUpdateSearcher
Set myFSO = CreateObject(„Scripting.FileSystemObject“)
Set Datenschreiben = myFSO.OpenTextFile(„Patchauswertung.txt“, 8, True)
Set colHistory = objSearcher.QueryHistory(1, 1)
For Each objEntry in colHistory
Updatedaten = strHostname(0) & „;“ & objEntry.Date
request.querystring(Updatedaten)
Datenschreiben.WriteLine(Updatedaten)
’ Keine Ahnung ob hier noch iwas hin muss
Next
Vielen Dank schonmal fürs anschauen…