tutorials.de Buch-Aktion 05/2012
ERLEDIGT
NEIN
ANTWORTEN
0
ZUGRIFFE
1272
EMPFEHLEN
  • An Twitter übertragen
  • An Facebook übertragen
AUF DIESES THEMA
ANTWORTEN
  1. #1
    unterberg unterberg ist offline Grünschnabel
    Registriert seit
    Jul 2008
    Beiträge
    1
    Guten Tag

    ich habe ein VBS Skript geschrieben (software.vbs), das mir die Software, die auf dem Rechner installiert ist ausgibt.

    Wenn ich das jetzt über die Konsole aufrufe mit
    cscript software.vbs name

    wird mir die Software auch promt aufgelistet, das funktioniert auch bei Rechnern aus dem Netzwerk.
    (Es werden auch verdammt viele Sicherheitsupdates für Windos aufgelistet (KB...))

    Wenn ich jetzt ein php-Skript schreibe:

    $host = $_GET[host];
    echo"<pre>";
    $recieve=system("cscript software.vbs $host ");
    echo"<pre>";


    und das über den Browser aufrufe. Funktioniert das nur lokal mit host=. oder mit host=(Name des Webservers) und nicht übers Netzwerk. Komische ist außerdem, dass eine völlig andere Ausgabe erscheint als über die Konsole.
    Bei Rechnern im Netzwerk kommt keine Ausgabe mehr.


    ich denke mal das liegt daran, dass jeweils unterschiedliche Benutzer das Skript aufrufen, aber ich check nicht wieso. Lese ja HKLM aus. hier noch das Skript:



    Const HKLM = &H80000002
    Const KeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
    Const ValueName = "DisplayName"
    Const ValuePublisher = "Publisher"

    dim strPC
    strPC = wscript.arguments(0)
    Set objReg = GetObject("WinMgmts:\\" & strPC & "\root\default:StdRegProv")

    objReg.EnumKey HKLM, KeyPath, ValueArray
    For Each Value In ValueArray
    objReg.GetStringValue HKLM, KeyPath & "\" & Value, ValueName, strDisplayName
    If Not IsNull(strDisplayName) Then
    Str = strDisplayName & " ; "
    'WScript.Echo strDisplayName
    objReg.GetStringValue HKLM, KeyPath & "\" & Value, ValuePublisher, strDisplayPub
    If Not IsNull(strDisplayPub) Then
    Str = Str & strDisplayPub
    ' WScript.Echo strDisplayPub
    Else

    'WScript.Echo " "
    END If
    'WScript.Echo "-----------------------------------------"
    WScript.Echo Str
    End If
    Next



    Ich brauch das Skript, weil ich die Software, die auf Rechnern im Netzwerk installiert ist in eine Datenbank (mit Web-front-end) schreiben will. Weiß da jemand eine bessere Lösung?
    Geändert von unterberg (11.07.08 um 16:01 Uhr)
     

Ähnliche Themen

  1. Eclipse macht keine Ausgaben in der Konsole
    Von Karl007 im Forum C/C++
    Antworten: 4
    Letzter Beitrag: 23.12.10, 16:14
  2. Bildschirmschoner über Registry
    Von Blake im Forum Microsoft Windows
    Antworten: 1
    Letzter Beitrag: 15.06.07, 07:55
  3. Antworten: 3
    Letzter Beitrag: 23.04.07, 16:07
  4. Hilfe beim Auslesen der Registry
    Von olek im Forum Visual Basic 6.0
    Antworten: 4
    Letzter Beitrag: 14.02.05, 17:58
  5. Ausgaben von SELECT in Datei statt auf Konsole
    Von MichiM im Forum Relationale Datenbanksysteme
    Antworten: 3
    Letzter Beitrag: 18.08.04, 18:07