How to get name of the computer in VBA

Question

Is there a way to get the name of the computer in VBA

User · Answer

You can do like this   Sub Get Environmental Variable    Dim sHostName As String Dim sUserName As String    Get Host Name   Get Computer Name     sHostName   Environ   computername      Get Current User Name     sUserName   Environ   username    End Sub

User · Answer

Looks like I m late to the game  but this is a common question    This is probably the code you want  Please note that this code is in the public domain  from Usenet  MSDN  and the Excellerando blog  Public Function ComputerName   As String    Returns the host name     Uses late-binding  bad for performance and stability  useful for     code portability  The correct declaration is       Dim objNetwork  As IWshRuntimeLibrary WshNetwork     Set objNetwork   New IWshRuntimeLibrary WshNetwork      Dim objNetwork As Object     Set objNetwork   CreateObject  quot WScript Network quot        ComputerName   objNetwork ComputerName          Set objNetwork   Nothing  End Function  You ll probably need this  too  Public Function UserName Optional WithDomain As Boolean   False  As String    Returns the user s network name     Uses late-binding  bad for performance and stability  useful for    code portability  The correct declaration is       Dim objNetwork  As IWshRuntimeLibrary WshNetwork     Set objNetwork   New IWshRuntimeLibrary WshNetwork       Dim objNetwork As Object     Set objNetwork   CreateObject  quot WScript Network quot        If WithDomain Then         UserName   objNetwork UserDomain  amp   quot   quot   amp  objNetwork UserName     Else         UserName   objNetwork UserName     End If          Set objNetwork   Nothing  End Function

User · Answer

A shell method to read the environmental variable for this courtesy of devhut Debug Print CreateObject  quot WScript Shell quot   ExpandEnvironmentStrings  quot  COMPUTERNAME  quot     Same source gives an API method  Option Explicit   If VBA7 And Win64 Then      x64 Declarations     Declare PtrSafe Function GetComputerName Lib  quot kernel32 quot  Alias  quot GetComputerNameA quot   ByVal lpBuffer As String  nSize As Long  As Long  Else      x32 Declaration     Declare Function GetComputerName Lib  quot kernel32 quot  Alias  quot GetComputerNameA quot   ByVal lpBuffer As String  nSize As Long  As Long  End If  Public Sub test        Debug Print ComputerName      End Sub  Public Function ComputerName   As String     Dim sBuff                 As String   255     Dim lBuffLen              As Long     Dim lResult               As Long       lBuffLen   255     lResult   GetComputerName sBuff  lBuffLen      If lBuffLen  gt  0 Then         ComputerName   Left sBuff  lBuffLen      End If End Function

User · Answer

Dim sHostName As String    Get Host Name   Get Computer Name  sHostName   Environ   computername

[vba] How to get name of the computer in VBA?

Examples related to vba

Examples related to environment-variables

Examples related to computer-name