Domino 9 und frühere Versionen > Entwicklung

per lotus script systeminformationen auslesen

(1/6) > >>

Corty:
hallo liebe notesgemeinde,

ich habe folgendes problem. ich versuche scriptseitig systeminformationen eines rechner auszulesen.
das klappt auch soweit, doch leider wird immer nur ein wert gespeichert. folgendes script zeigt das am beispiel cd-laufwerk:
---------------
'lese manufacturer der cd-laufwerke

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_CDROMDrive", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly)

Forall objItem In colItems
sCDROM = "" & objItem.Manufacturer

End Forall

If w.CurrentDocument.EditMode = False Then w.CurrentDocument.EditMode = True

Call w.CurrentDocument.FieldSetText("cd_rom", sCDROM)
----------------------------
es wird immer nur ein wert gespeichert (der letzte in der liste). nun habe ich zwei cd-laufwerke.

frage: wie schaffe ich, dass alle cd-laufwerke per script erfaßt werden.

vielen dank im voraus.
gruß christian

m3:
Multivalue Field
Und dann wie eine LIste behandeln.

P.S.:
Wäre schön, wenn Du Dich an die Forumsregeln halten könntest.

Die Frage wurde auch hier gestellt: http://www.dominoforum.de/modules/newbb/viewtopic.php?topic_id=9924&start=0#forumpost52509&

eknori:
Ohne jetzt die WMI Function genau zu kennen; colItems enthält nach dem Aufruf bei dir vermutlich 2 Werte. Der Knackpunkt ist dei ForAll Konstrukt.


versuche einmal folgendes:

Dim i as integer

Forall objItem In colItems
Redim Preserve CDROM ( i ) As String
  CDROM ( i -1 ) = objItem.Manufacturer
   i = i +1
end forall

CDROM(0) liefert dann dein erstes und CDROM(1) dein zweites Laufwerk

Corty:
hallo m3, ja du hast recht. ich habe in 2 foren geschrieben. wußte nicht das das net richtig ist. kommt aber nicht wieder vor. danke für deinen hinweis.
leider hat das nicht hingehauen. auch wenn ich "Call w.CurrrentDocument.FieldAppendText("...") eingebe.

hallo ulrich,

vielen dank für deine antwort. leider aktzeptiert notes das so leider nicht.
notes zeigt es als script fehler an.  vielleicht hast du ja noch eine idee.

ps: war in den vergangenen tagen auf deiner webseite: eknori.
      1.) wirklich tolle seite
      2.) ich habe mir mal erlaubt deine helpdeskdatenbank herunterzuladen, da ich damals eine ähnliche geschrieben habe. ich muss sagen "dickes lob" die datenbank ist super.

eknori:

--- Zitat ---vielen dank für deine antwort. leider aktzeptiert notes das so leider nicht.
notes zeigt es als script fehler an.  vielleicht hast du ja noch eine idee.


--- Ende Zitat ---

hmm, wo zeigt Notes denn den Fehler ? Schon im Designer oder erst bei der Ausführung. Lass mal hören ...

ach ja, i muss natuerlich einen Startwert haben

 i = 1

Navigation

[0] Themen-Index

[#] Nächste Seite