Domino 9 und frühere Versionen > Entwicklung

per lotus script systeminformationen auslesen

<< < (5/6) > >>

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.

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete