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

Comments

Popular posts from this blog

OLEDB Database connection string in C#.Net

SqlAlchemy[SQLite] database connection in Python-Flask