Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: Enterprise
Expertise: Advanced
Aug 1, 1997

Current Computer Name on Windows 95/NT

You often want to know the name of the current computer running Windows 95 or Windows NT in your VB program. Use this simple wrapper function of a kernel32.dll API function to do the job:
 
Private Declare Function GetComputerNameA Lib "kernel32"_
        (ByVal lpBuffer As String, nSize _
        As Long) As Long

Public Function GetMachineName() As _
        String
        Dim sBuffer As String * 255
        If GetComputerNameA(sBuffer, 255&) _
                <> 0 Then
                GetMachineName = Left$(sBuffer, _
                        InStr(sBuffer, vbNullChar) _
                        - 1)
        Else
                GetMachineName = "(Not Known)"
        End If
End Function
Jeff Hong
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date