computer name

[itbuggy]

hi, i am new to this forum !!

in VB6.0, is there any object i can retrieve the computer name when a user is executing a exe.

THX
KEith

[Cimperiali]

Hi, welcome to this forum!

You can use GetComputerName Api

from Api-guide, a free tool you can download at www.allapi.net

'example by Donavon Kuhn (Donavon.Kuhn@Nextel.com)
Private Const MAX_COMPUTERNAME_LENGTH As Long = 31
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub Form_Load()
 Dim dwLen As Long
 Dim strString As String
 'Create a buffer
 dwLen = MAX_COMPUTERNAME_LENGTH + 1
 strString = String(dwLen, "X")
 'Get the computer name
 GetComputerName strString, dwLen
 'get only the actual data
 strString = Left(strString, dwLen)
 'Show the computer name
 MsgBox strString
End Sub

Cesare Imperiali

[JeffB]

No need for API, here is a simpler method:

MsgBox Environ$("computername")

JeffB

[lindawqu]

How can I get a unique id of a computer which is definitely different from other computers? Is there any? thanks

[WizBang]

There are different ways to do this, depending on what you want to get. You can use the CoCreateGuid API call, or you can use the hard drive serial number to generate a code, or the installation date and time, or...

Actually, there are many ways. To use the hard drive serial number, use the GetVolumeInformation API call. You can also mix in a name entered by the user, along with the date and time to create the unique number.

If you distribute the app on CD (or floppy), you can use the serial number of the disc.

[lindawqu]

thanks for your help.

i am very interested in what u said "you can use the serial number of the disc". Please tell me how I can code to get serial number of the disc (cd or floppy).

[JeffB]

You must use the GetVolumeInformation API:

http://www.codeguru.com/forum/showth...hreadid=220420

JeffB

[lindawqu]

thanks.

But what i want to know now is how to code to get the id of cd or floppy disk.

[WizBang]

The GetVolumeInformation API works for CD and floppy also.

[dennisds]

The following code is not giving any output

MsgBox Environ$("computername")

where as the api works but i find its a lengthy code,

pls help.

Dennis.

[JeffB]

Here is some documentation on Environ:

http://www.developerfusion.com/show/1640/show.aspx

(Use the Next >> to read the others pages)

If it is not working, that is probably because you do not have the environnenement variable "computername", someone might have play with windows settings or you just need a reboot. If you still have problem, GetComputerName should be used instead of Environ$

JeffB

[socrates4c]

First let's start by simplifing the code. I'm a strong believer in the less code the better.

Why not use the Environ function.
==========================================================

Private Sub cmdGetInfo_Click()

    Dim strPath                  As String
    Dim strUserName         As String
    Dim strCompName       As String
    Dim strOpSystem         As String
    
   strPath = Environ("Path")
   strUserName = Environ("UserName")
   strCompName = Environ("ComputerName")
   strOpSystem = Environ("OS")
   
   lblPath = strPath
   lblUserName = strUserName & " ---- " & strCompName
   lblOpSystem = strOpSystem
End Sub

happy coding


NetWiz

[euan]

Easiest way of getting the Computer Name (without API's)
1.Check Active DS Type Library is choosen (activeds.tlb)
2.code:
Dim objActiveDs As New ActiveDs.WinNTSystemInfo
MsgBox objActiveDs.ComputerName

[WizBang]

Why not use the Environ function...

Note that Environ$() won't work for every case, so API would be more reliable.

[aamir786pk]

How can i get the computer names in my network. getting a computer name is easy. Please assist. I will be waiting. Thnx