Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: AxelZ am 10.06.02 - 14:02:01

Titel: @regqueryValue unter 4.5
Beitrag von: AxelZ am 10.06.02 - 14:02:01

Ich brauche dringent ein Feld für mein Formular in dem automatisch der Computername eingelesen wird. Villieicht auch über ein Button. Im 5er Client gibt es den Befehl @regQueryValue in der 4er Version funktioniert es aber nicht.
Wer kann mir helfen??

Titel: Re: @regqueryValue unter 4.5
Beitrag von: eknori (retired) am 10.06.02 - 14:38:05

Kannst du mir der WindowsAPI machen

'Declaration
Declare Function gethostname Lib "wsock32.dll" (Byval host_name As String, Byval namelen As Long) As Long

Function GetLocalHostName() As String
     Dim sName$
     sName = String(256, 0)
     If gethostname(sName, 256) Then
           sName = WSA_NoName
     Else
           If Instr(sName, Chr(0)) Then
                 sName = Left(sName, Instr(sName, Chr(0)) - 1)
           End If
     End If
     GetLocalHostName = sName
End Function

Sub Click(Source As Button)
   Msgbox getlocalhostname
End Sub

eknori

Titel: Re: @regqueryValue unter 4.5
Beitrag von: Zimmi am 17.09.02 - 11:46:25

Hallo Eknori,

Danke, danke, danke...

Hab deinen Tipp über die Suche gefunden ...

Zimmi