Computer Name

[Flamer]

Does anyone know how to get the computer name from a windows box using Vb?

Thanks for the help in advance.

-Jason

[petrus]

You can use the Winsock. RemoteHost I think

[Pasvorto]

Public Function GetMachineName() As String
Dim sBuffer As String * 255
If GetComputerNameA(sBuffer, 255&) <> 0 Then
GetMachineName = Left$(sBuffer, InStr(sBuffer, vbNullChar) - 1)
Else
GetMachineName = "(Not Known)"
End If
End Function


in your code:

dim glbmachine as string
glbMachineName = GetMachineName
If glbMachineName = blah, blah, blah

[Flamer]

The Winsock Worked LocalHostName not remote host. Thanks alot.

-Jason