Ad:

Visual Basic 4 / 5 / 6 Discussion Thread
Unsolved
Views: 1928

Oct 11th, 2008

Getting computer name or IP

Expand Post »

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

Similar Threads

How long do you use your computer each day? in Geeks' Lounge
Computer Won't Function Properly in Troubleshooting Dead Machines
can you hook a computer up to a receiver for surround sound? in Troubleshooting Dead Machines
relation of mathematics with computer science in Computer Science
computer freeze up when opening a folder in Windows NT / 2000 / XP

pardeep3dec

Reputation Points: 10

Solved Threads: 1

Junior Poster in Training

Offline

87 posts
since Jul 2008

Permalink

Oct 11th, 2008

Re: Getting computer name or IP

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

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

Reputation Points: 218

Solved Threads: 201

Veteran Poster

Offline

1,024 posts
since Aug 2008

Permalink

Oct 14th, 2008

Re: Getting computer name or IP

use this for system IP

msgbox winsock1.LocalIP

debasisdas

Featured Poster

Reputation Points: 665

Solved Threads: 427

Posting Genius

Offline

6,406 posts
since Feb 2007

Permalink

Oct 14th, 2008

Re: Getting computer name or IP

Click to Expand / Collapse Quote 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.

Phreak

Reputation Points: 10

Solved Threads: 0

Light Poster

Offline

43 posts
since Feb 2005

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in Visual Basic 4 / 5 / 6 Forum Timeline: TreeView HitTest not working

Next Thread in Visual Basic 4 / 5 / 6 Forum Timeline: Confused as to how to return duration in minutes

DaniWeb Message

Cancel Changes

User Name
Password