DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

Visual Basic 4 / 5 / 6 RSS

Getting computer name or IP

•

Join Date: Jul 2008

Posts: 53

Reputation: pardeep3dec is an unknown quantity at this point

Solved Threads: 1

pardeep3dec pardeep3dec is offline

Offline

Junior Poster in Training

Getting computer name or IP

Oct 11th, 2008

Hi friends,
I need a programme or procedure which is capable in generating IP or computer name of the system( on which programme is running).

Thank you

•

Join Date: Aug 2008

Posts: 710

Reputation: Teme64 will become famous soon enough

Solved Threads: 114

Teme64

Offline

Master Poster

Re: Getting computer name or IP

Oct 11th, 2008

Here's a snippet from some old prog of mine:

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
Private Declare Function GetComputerName Lib "kernel32" Alias _
  "GetComputerNameA" (ByVal lpBuffer As String, ByRef nSize As Long) As Long
 
Public Function GetThisComputerName(ByRef ComputerName As String) As Boolean
' Returns Computer name
Dim lpBuffer As String
Dim i As Long
 
  Const BUFMAXLENGTH = 256
  ComputerName = ""
  GetThisComputerName = False
  lpBuffer = Space$(BUFMAXLENGTH)
  i = BUFMAXLENGTH
  i = GetComputerName(lpBuffer, i)
  If i > 0 Then
    i = InStr(lpBuffer, Chr(0))
    ComputerName = Left$(lpBuffer, i - 1)
    GetThisComputerName = True
  End If
 
End Function
Private Declare Function GetComputerName Lib "kernel32" Alias _
  "GetComputerNameA" (ByVal lpBuffer As String, ByRef nSize As Long) As Long

Public Function GetThisComputerName(ByRef ComputerName As String) As Boolean
' Returns Computer name
Dim lpBuffer As String
Dim i As Long

  Const BUFMAXLENGTH = 256
  ComputerName = ""
  GetThisComputerName = False
  lpBuffer = Space$(BUFMAXLENGTH)
  i = BUFMAXLENGTH
  i = GetComputerName(lpBuffer, i)
  If i > 0 Then
    i = InStr(lpBuffer, Chr(0))
    ComputerName = Left$(lpBuffer, i - 1)
    GetThisComputerName = True
  End If

End Function

Teme64 @ Windows Developer Blog

•

Join Date: Feb 2007

Posts: 2,094

Reputation: debasisdas will become famous soon enough

Solved Threads: 128

debasisdas debasisdas is offline

Offline

Postaholic

Re: Getting computer name or IP

Oct 14th, 2008

use this for system IP

msgbox winsock1.LocalIP

Share your Knowledge.

•

Join Date: Feb 2005

Posts: 43

Reputation: Phreak is an unknown quantity at this point

Solved Threads: 0

Phreak

Offline

Light Poster

Re: Getting computer name or IP

Oct 14th, 2008

•

Originally Posted by pardeep3dec

Hi friends,
I need a programme or procedure which is capable in generating IP or computer name of the system( on which programme is running).

Thank you

Hi,

Has this been resolved or are you still looking? I have a very quick and easy 3 line tiny piece of code i used ages ago that will give you exactly what you need (PC name)... Then you can edit it to your hearts content to give you usernames etc as well...

if you still require it let me know and ill pop it in here for ya... :-)

Edit***
I've just re-read that... do you mean you want a program to create a PC name on the PC in which the app is ran ... or to greturn the pc name of the pc your running the app on?

Your post can be read both ways... :-)
My little line of code will give you the name of a pc you run it on, and/or the username of the users logged in etc... i found it very hand when i uneeded it a few years ago for back up purposes.

Phreak

Last edited by Phreak; Oct 14th, 2008 at 5:16 pm.