Public Function ComputerName()
' Om du använder denna kod i ett 16-bitars program
' kommer funktionen inte att fungera.
Dim temp As String
Dim dummy As Long
temp = String$(32, 0)
dummy = GetComputerName(temp, Len(temp))
ComputerName = Left$(temp, InStr(temp, Chr$(0)) - 1)
End Function