Get computer name in VB6

[Rulle]

What's the function to get the local computer name in VB6? Have a good one!

[Anonymous]

There is none, but you can import GetComputerName from the windows API

[Nick Parker]

You will need this in a module:

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

Then in your code:

Dim compname As String, retval As Long
compname = Space(255)
retval = GetComputerName(compname, 255)
compname = Left(compname, InStr(compname, vbNullChar) - 1)

HTH Nick Parker

---

[Gautam Panemangalore]

I have a code which is less complex you will have to import import system.net.dns Sample code is as follows: Imports System.Net.Dns Dim shostname As String shostname = system.Net.DNS.GetHostName() console.writeline("Your Machine Name = " & shostname) hope that helps

[Lasse]

This is not possible i VB6.. Hmm...

[Gautam Panemangalore]

ohh you are right thats possible in VB.NET

[Rulle]

Nick parker's code works perfectly! Thank you all! /Rulle

[Nick Parker]

No Problem, you should consider becoming a member. :) Nick Parker

---