devxlogo

Current Computer Name on Windows 95/NT

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 LongPublic 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 IfEnd Function

devx-admin

Share the Post: