Referance Computer ID

[ashtod1]

Hi,

How do I display Computer ID (Name) in a Cell

Regards Dave

 

[Richard Schollar]

Hi Dave

You can do it using an API call:

Private Declare Function GetComputerName Lib "kernel32" _
    Alias "GetComputerNameA" (ByVal lbbuffer As String, _
    nsize As Long) As Long
    
Function ComputerName() As String
Dim strBuffer As String * 255
Dim lStringLength As Long
lStringLength = Len(strBuffer)
GetComputerName strBuffer, lStringLength
If lStringLength > 0 Then
    ComputerName = Left$(strBuffer, lStringLength)
End If
End Function

Then you can use this in a cell:

=ComputerName()

Best regards

Richard