[Code] WMI - Computername als Variable einsetzen

Dieses Thema im Forum "Programmierung & Entwicklung" wurde erstellt von N30N, 6. November 2009 .

  1. Diese Seite verwendet Cookies. Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies. Weitere Informationen
  1. #1 6. November 2009
    WMI - Computername als Variable einsetzen

    Hi,

    ich benutze folgendes WMI Script, um an die installierte Software auf Netzwerkcomputern zu kommen. Das Script wird beim Systemstart ausgeführt und schreibt eine Textdatei auf ein Netzlaufwerk. Jetzt wollte ich nur den Dateinamen durch den jeweiligen Computernamen ersetzen, allerdings komm ich nicht wirklich weiter. Hab schon mit Systemvariablen wie %Computername% rumexperimentiert, bringt aber irgendwie nix.


    Code:
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objTextFile = objFSO.CreateTextFile("X:\Inventarisierung\[COLOR="Red"]COMPUTERNAME[/COLOR].tsv", True)
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
     & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set colSoftware = objWMIService.ExecQuery _
     ("SELECT * FROM Win32_Product")
    objTextFile.WriteLine "Caption" & vbtab & _
    "Description" & vbtab & "Identifying Number" & vbtab & _
    "Install Date" & vbtab & "Install Location" & vbtab & _
    "Install State" & vbtab & "Name" & vbtab & _
    "Package Cache" & vbtab & "SKU Number" & vbtab & "Vendor" & vbtab _
     & "Version"
    For Each objSoftware in colSoftware
     objTextFile.WriteLine objSoftware.Caption & vbtab & _
     objSoftware.Description & vbtab & _
     objSoftware.IdentifyingNumber & vbtab & _
     objSoftware.InstallLocation & vbtab & _
     objSoftware.InstallState & vbtab & _
     objSoftware.Name & vbtab & _
     objSoftware.PackageCache & vbtab & _
     objSoftware.SKUNumber & vbtab & _
     objSoftware.Vendor & vbtab & _
     objSoftware.Version
    Next
    objTextFile.Close
    

    Und dann gleich noch ne Frage: Wie kann ich viele TSV Dateien zu einer großen Excel Tabelle zusammenfügen? Also praktisch alle Datensätze direkt hintereinander schreiben? (Aber erst im Nachhinein, ich will trotzdem für jeden PC zusätzlich ne eigene Datei haben)

    Danke schonmal! :)
     

  2. Anzeige
    Heute: Deals & Sale mit stark reduzierten Angeboten finden.

  3. Videos zum Thema
Die Seite wird geladen...
Similar Threads - Code WMI Computername
  1. Antworten:
    5
    Aufrufe:
    1.948
  2. Antworten:
    0
    Aufrufe:
    4.405
  3. Antworten:
    6
    Aufrufe:
    8.333
  4. Antworten:
    1
    Aufrufe:
    1.558
  5. Antworten:
    2
    Aufrufe:
    5.338