How to get Computer Name using VB6 Code

Accessing system property is pretty easy with VB6 code. This can be useful when programmers need to refer the system name in the code.

Steps

• Declare the GetComputerNameA function which resides in the kernel32 library.
• Create a function to fetch the Computer Name.
• Use the function

The Kernel functions

Declare Function GetComputerNameA Lib "kernel32" (ByVal lpBuffer As String, nSize As Long) As Long

Get the computer name

Define a new function to do the rest of the task. So you can reuse the code.

Public Function GetComputerName() As String

Dim sResult As String * 255

GetComputerNameA sResult, 255

GetComputerName = Left$(sResult, InStr(sResult, Chr$(0)) - 1)

End Function

Calling the function

Just invoke the function and place values to a TextBox

Text1.Text = GetComputerName