Datornamn

Identifiera datornamnet

I detta tips visas hur vi på ett relativt enkelt sätt kan identifiera datorns fullständiga namn. Denna uppgift kan komma väl till användning om vi t e x vill att en applikation endast ska köras på vissas datorer.

Det sker mha av ett s k Windows API-anrop.

Option Explicit

Declare Function GetComputerName& Lib "kernel32" _

      Alias "GetComputerNameA" (ByVal lbbuffer As String, nsize As Long)

Sub Fullstandigt_Datornamn()

   Dim wbBok As Workbook

   Dim wsBlad As Worksheet

   Dim rnNamn As Range

   Dim stDatorNamn As String

   Set wbBok = ThisWorkbook

   Set wsBlad = wbBok.Worksheets("Blad1")

   With wsBlad

      Set rnNamn = .Range("A2")

   End With

   With Application

      .DisplayAlerts = False

      'Här identifieras datornamnet mha av funktionen Datornamn.

      stDatorNamn = Left(DatorNamn(), 11)

      rnNamn.Value = stDatorNamn

      .DisplayAlerts = True

   End With

End Sub

Function DatorNamn()

   Dim z As String * 64

   Call GetComputerName(z, 64)

   DatorNamn = z

End Function