Search notes:

Examples for Visual Basic for Application accessing the Windows API: GetComputerName

The Windows API function GetComputerName determines the Net Bios Name of the computer.

The following example needs the VBA declarations of the Windows API which can be found here.

option explicit

sub main()

   dim NetBiosName as string * 32
   dim result      as long

   result = GetComputerName(NetBiosName, 32)

   if result <> 0 then
      msgBox "The Net BIOS name of the computer is " & NetBiosName
   else
      msgBox "Calling GetComputerName failed"
   end if

end sub

Github repository WinAPI-4-VBA, path: /examples/GetComputerName.bas

Examples for Visual Basic for Application accessing the Windows API: GetComputerName

See also