Domino 9 und frühere Versionen > Entwicklung

@regqueryValue unter 4.5

(1/1)

AxelZ:
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??

eknori:
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

Zimmi:
Hallo Eknori,

Danke, danke, danke...

Hab deinen Tipp über die Suche gefunden ...

Zimmi

Navigation

[0] Themen-Index