Das Notes Forum

Domino 9 und frühere Versionen => Administration & Userprobleme => Thema gestartet von: meleg am 30.12.02 - 13:46:43

Titel: Einbinden von wsh in LS
Beitrag von: meleg am 30.12.02 - 13:46:43

Hallo,

ich bin ziemlicher Anfänger im Scripten.

Ich möchte über LS gewisse Registry-Werte (z.B. BIOS-Version, Rechnername, angemeldeter Benutzer, Version des Internet Explorers, ....) auslesen. Diese sollen dem Anwender, der per Mail eine Schaltfläche bekommt, dann angezeigt werden. Ich arbeite im Support, da ist es hilfreich, diese Informationen auf einen Klick zur hand zu haben.
Ich habe irgendwo gelesen, dass man dazu den Windows Scripting host (wsh) benutzen muss.
Ich weiss allerdings nicht, wie ich diesen in Lotus Script einbinden soll. In der Designer-Hilfe habe ich dazu nichts gefunden.
Es wäre schön, wenn hier mal jemand einen kurzen Beispielcode posten könnte, den ich hinter eine Schaltfläche legen könnte.

Danke

meleg

Titel: Re:Einbinden von wsh in LS
Beitrag von: Axel am 30.12.02 - 16:08:38

Hi,

zum Thema Einbindung von wsh in Script kann ich dir leider nicht weiter helfen. Mir ist nicht bekannt ob und wie sich das in Script einbinden läßt.

Allerdings brauchst du zum Auslesen der Registry nicht unbedingt wsh.

Schau mal hier:

http://www.keysolutions.com/NotesFAQ/canaccess.html (http://www.keysolutions.com/NotesFAQ/canaccess.html)


Axel

Titel: Gaaanz schön kompliziert, ...
Beitrag von: meleg am 30.12.02 - 16:34:08

... vor allem stehen da viele viele Sachen drin, die ich wahrscheinlich mein Lebtag nicht verstehen werde.

Ich probiers aus und melde mich hier wieder, ob's geklappt hat.

Danke und guten Rutsch

meleg

Titel: Re:Einbinden von wsh in LS
Beitrag von: Notestime am 30.12.02 - 16:59:31

Pack das mal in ein File (*.vbs):

set wshshell = createobject("Wscript.shell")
key = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Hostname"
msgbox "Hostname des Rechners: " & wshshell.regread(key)

Titel: Danke, funktioniert
Beitrag von: meleg am 30.12.02 - 17:33:08

So kurz, so gut.

Ich habe Deinen Code in das Click-Ereignis reingepackt:

Sub Click(Source As Button)
Set wshshell = createobject("Wscript.shell")
key  "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Hostname"
   Msgbox "Hostname des Rechners: " & wshshell.regread(key)   
End Sub

.. und es funktioniert, wenn ich auf die Schaltfläche klicke.
So einfach ...

Danke und 'nen guten Rutsch

meleg

Titel: Re:Einbinden von wsh in LS
Beitrag von: Notestime am 30.12.02 - 19:10:25

Ebenso, ebenso :-)