@regqueryValue unter 4.5

[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