Get Computer Name in VB v1.0

Current area: HOME -> Download page

Get Computer Name in VB v1.0

Rate and comment this resource

No Screenshot provided

Download file

View Zip File Contents

(report broken link)

NOTE: Some downloads must be obtained through the publisher's site.

Author: HariOm (View all listings)

Get Computer Name in VB v1.0
Used one API call GetComputerName This is simple project i
declared a public function in a module and it calls in a
command button click procedure it will show your computer name
in a message box try this programme and let me know if there is
any other easy way to get computer name & server name

File name:	25562.zip
Product homepage:	Unknown
Order page:	Unknown
Languages:	Visual Basic 6
Platforms:	Windows 95-98-ME-NT-XP
Release Date:	30 January, 2003
Licence Type:	Freeware
Size:	4881 bytes
Price/fee (US$):	0.00 $
Number of downloads:	5387

User Comments

very good
by Unknown, on Monday Jul 14, 2003

very good
Reply To this Post Report as abusive.

Sweeet
by Andries, South Africa, on Friday Jul 18, 2003

This is just the link I was looking for. A small, powerfull program...
Reply To this Post Report as abusive.

Very good code (short and usefull)
by Unknown, on Wednesday Aug 20, 2003

The code was usefull to develop an application, i was able to doit by ASP, but this application needs to run on a pc. Thank's for the code
Reply To this Post Report as abusive.

Example was nice, but needs improvement
by Brian, Santa Clara, CA, on Wednesday Sep 24, 2003

Even with the Trim statment, the computer name will have a trailing NullChar. This how I implemented the api call: Public Declare Function GetComputerName Lib "kernel32" Alias _ "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long ' ------------------------------ ' GetCompName ' Gets the computer network name. ' ------------------------------ Private Function GetCompName() As String Dim sBuffer As String Dim sComputerName As String Dim lReturn As Long sBuffer = Space(255) lReturn = GetComputerName(sBuffer, Len(sBuffer)) sComputerName = Left$(sBuffer, InStr(sBuffer, vbNullChar) - 1) GetCompName = Trim$(sComputerName) End Function
Reply To this Post Report as abusive.

CO
by Henry Aviles , NY, on Wednesday Oct 15, 2003

Short and to the point, And i found it with the first hit on google.
Reply To this Post Report as abusive.

View all comments Rate and comment this resource

Do you want to get your software listed on this site? If so, click here to find out more.

Sponsored links

Build IT Knowledge with Current & Trusted Content
Helps Employees Develop & Hone New Technical Programming Skills. Sign Up & Get Full Access.

Check Out IT Certification Preparation Materials
Sign Up With SkillSoft & Get Access to Training Materials for Over 50 Professional Certifications.

Villanova University Six Sigma & IT Certificate Programs
100% Online programs in Six Sigma, IS Security, CISSP Prep, Business Analysis, Proj. Mgmt. and more!

PureCM Software Configuration Management
Version control and integrated issue tracking - powerful and easy to use. Get your FREE trial now!

Software Localization Tool Sisulizer
Localize DotNet, C++ Builder, Delphi, C/C++, Visual Basic & Java apps & html help. Try Sisulizer now

Buy a link now

Free Magazine

eWeek The essential technology information source for builders of e-business.... subscribe now