fortypoundhead.com

Retrieve local NetBIOS name with VB6

Posted On 2015-01-17 by dwirch
Keywords:
Tags: Visual Basic 6 Tip Tutorial Windows
Views: 3190


There are a two really easy ways to get the netBIOS name of the local machine. One leverages API calls to Win32, while the other simply queries an environment variable.

The first method is the simplest of the two. From within Visual Basic 6 (VB6), you can query any of the system 39 or so system environment variables. One of this variables, called ComputerName holds the netBIOS name of the local machine. To access these environment variables from VB6, you'll want to use the ENVIRON built in function, thus:

Dim strMyComputerName as string
strMyComputerName = Environ("computername")

This code simply grabs the value stored in the Computername environment variable, and stores it in a string variable for later use. Easy, right?

Now this method is all well and good. It's simple and to the point, doing what it needs to do with no muss or fuss. However, there are some place out there which restrict access to environment variables for security reasons. Yes, those places exist. In this case, you'll want to use an API call.

The API call that I'll be using for this is GetComputerNameA, from Win32. This does not return the fully qualified domain name of the local machine; that is a different API call, which functions similarly.

The first thing you'll want to do is create a new module, or you can use an existing one. Place the following line at the top of the module:

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

This is telling VB that we are going to define a function within our program called GetComputerName, and it will be referencing the Win32 API (kernel32). The actual code with the kernel32 dll that we will be using is GetComputerNameA. The code within kernel32 requires two parameters, a pointer to a buffer that receives the computer name (lpBuffer), and the size of the buffer (nSize). Now we need to define a function to grab the information from the API. This is what will be referencing from everywhere else in our program.

Public Function LocalComputerName() As String

Dim sBuffer As String
Dim lAns As Long

sBuffer = Space$(255)
lAns = GetComputerName(sBuffer, 255)
If lAns <> 0 Then
LocalComputerName = Left$(sBuffer, InStr(sBuffer, Chr(0)) - 1)
Else
Err.Raise Err.LastDllError, , "A system call returned an error code of " & Err.LastDllError
LocalComputerName = ""
End If

End Function

If you are a VB6 coder, this will look pretty straightforward to you. However, if you have not worked with building API-enabled functions before, I'll break it down a bit for you.

First, we define this function as Public, which means it can be called from anywhere else in our program, including forms and other modules or functions. The function will return a string value.

Next, the two variables that need to come back from the API call are defined, one string (sBuffer) and one long integer (lAns). sBuffer is then filled with spaces. After that is taken care of, the call is made to the API, requesting the returned value be placed in sBuffer, and telling the API how big the buffer is.

An If / Then / Else structure is included here, in the event that, for some reason, the API can't get the name. If the name is found, The return value (LocalComputerName) is set with the netBIOS name returned from the API. If the returned value is 0, then the phrase "" is set, and an error message is raised.

Finally, the function ends, and control is passed back to the caller. This function that we've just created can be called from anywhere. For example, if you have a button on a form, which you want to pop up a message box with the name of the computer, you would do this:

Private Sub Command1_Click()

MsgBox "computername = " & LocalComputerName

End Sub

And there you have it, the netBIOS name of the computer, easily retrieved by two different methods. Both of these methods should work on Windows operating systems from 9x through Windows 10 preview.


About the Author

dwirch has posted a total of 172 articles.

 


Comments On This Post

No comments on this post yet!


Do you have a thought relating to this post? You can post your comment here. If you have an unrelated question, you can use the Q&A section to ask it.

Or you can drop a note to the administrators if you're not sure where you should post.


Your IP address is:23.20.157.174

Before you can post, you need to prove you are human. If you log in, this test goes away.


Beat With A Stick List Returns: By request, BWASL has returned to the site. Free your rage by telling the world about something that really grinds your gears. Add your beating.



Recent Forum Posts

BWASL returns
dwirch posted on May 13, 2017 at about 15:24 in Site News

BWASL returns
dwirch posted on May 13, 2017 at about 8:46 in Site News

Job Spammer: Balashankar Bose Bose
dwirch posted on May 11, 2017 at about 10:05 in Spammers

Job Spammer: Bharti Jigyasi
dwirch posted on May 11, 2017 at about 7:58 in Spammers

List of Shady Characters
dwirch posted on April 25, 2017 at about 16:39 in Webmaster Stuff

Job Spammer: Bilal Uddin
dwirch posted on April 25, 2017 at about 11:00 in Spammers