VBA hente computerens navn

Function GetComputerName()
  ' Get Host Name / Get Computer Name
  GetComputerName = Environ$("computername")
End Function

Private Declare Function GetComputerName Lib "kernel32" _
    Alias "GetComputerNameA" _
    (ByVal lpBuffer As String, nSize As Long) As Long


Function ReturnComputerName() As String
  Dim rString As String * 255, sLen As Long, tString As String
  tString = ""
  On Error Resume Next
  sLen = GetComputerName(rString, 255)
  sLen = InStr(1, rString, Chr(0))
  If sLen > 0 Then
      tString = Left(rString, sLen - 1)
  Else
      tString = rString
  End If
  On Error GoTo 0
  ReturnComputerName = UCase(Trim(tString))
End Function

super, tak, det virker... jeg har tilfoejet en msgbox i nedenstaaende saafremt andre skulle vaere interesseret... sender du et svar?



Private Declare Function GetComputerName Lib "kernel32" _
    Alias "GetComputerNameA" _
    (ByVal lpBuffer As String, nSize As Long) As Long


Function ReturnComputerName() As String
  Dim rString As String * 255, sLen As Long, tString As String
  tString = ""
  On Error Resume Next
  sLen = GetComputerName(rString, 255)
  sLen = InStr(1, rString, Chr(0))
  If sLen > 0 Then
      tString = Left(rString, sLen - 1)
  Else
      tString = rString
  End If
  On Error GoTo 0
  ReturnComputerName = UCase(Trim(tString))
MsgBox "The Computername is: " & rString
End Function

Here U R.. :-)