per lotus script systeminformationen auslesen

[eknori]

Es wäre wirklich hilfreich, mal zu wissen, ob der WMI Kram denn in CDROM überhaupt irgendwelche Werte zurückliefert. Erst dann kann man einen Schritt weitergehen. Axel Janssen ( kennwort ) würde so etwas wahrscheinlich als Unit Test ( im weitesten Sinne ) bezeichnen.

Das ist übrigens auch meine Vorgehensweise. Solange ich nicht weiss, ob das Codefragment nicht das macht, was ich erwarte, denke ich nicht an den weiteren Verlauf des Scripts ... Bisher bin ich da immer gut mit gefahren.

Du verdirbst mir nicht den Feierabend, keine Sorge. Aber wir eiern hier seit gut 2 Stunden rum ..
Als ich dein Einstiegsposting gelesen habe, hatte ich echt mehr erwartet, was die Anwendung der einfachsten Mittel bei der Programmierung angeht ) z.B. EInsatz des Debuggers )

[animate]

Hab das mal in ne vbs-Datei gepackt und ausgeführt.
' VB Script Document
option explicit


Dim WMIService, item, WMISettings, Computer


Computer = "."
Set WMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & Computer & "\root\cimv2")

Set WMISettings = WMIService.ExecQuery_
("SELECT * FROM Win32_CDROMDrive")
For Each item in WMISettings
   WScript.Echo  item.Manufacturer
Next

Das gibt bei mir eine Collection mit 1 Element zurück (Standard CD_ROM Laufwerke)

[eknori]

du hast aber 2 Laufwerke ? ( Popel bröckchenweise aus der Nase zieh ... )

[eknori]

wie gesagt, habe mir die Klasse nicht angeschaut, aber allein vom Aufruf her gesehen werden die Eigenschaften eines einzelnen Laufwerks zurückgegeben ( manufacturer ist vom Typ String ! )
Ist also irgendwie der völlig falsche Ansatz ...

Das kommt davon, wenn man einfach Code einsetzt, den man nicht versteht ...

Sorry, habe heute meinen FlameDay 

[animate]

nein, hab ein Laufwerk.
Jedes Element der Collection repräsentiert ein Laufwerk, denke ich.


Ich glaube, ich habe gerade den Fehler im ursprünglichen Script gesehen. Da steht:
Forall objItem In colItems
sCDROM = "" & objItem.Manufacturer

End Forall

Das ist ja ein Schmarrn. Da ist klar, dass du nur einen Wert am Schluss in sCDROM drinstehen hast.
Frag dich am besten, was du da in der Schleife tust und was du eigentlich tun willst, dann solltest du das selbst lösen können.

[eknori]

hatten wir das nicht schon bereits vor gut 3 Stunden herausgefunden  http://www.atnotes.de/index.php?topic=26038.msg166308#msg166308? @Thomas : schaue dir den Fred mal von oben bis unten an

[Corty]

@All
so nun klappt es.
@Thomas
du hast recht, so kann die Schleife gar nicht funktionieren.

//New
DIM temp as Variant
Forall objltem In colltems
      sCDROM = "" & objltem.manufacture
      temp = sCDROM & ", "
     Call w.CurrentDocument.FieldAppendText("cdrom", temp)
End Forall
     
Also ich habe einen kleinen Zwischenspeicher eingebaut.
Anschließend habe ich das Feld als multivalue dekl., und siehe da es läuft.
Nochmals Danke @ALL.

Gruß
Christian