How to get the name of the computer.

Pelusallo Question History:
 
Questions Asked: 5
Questions Answered: 0              
Last 3 Grade(s) Given:  
B B A  
Question Grading Record:  
3 / 3  

Tips from Community Support:
--------------------------------------------

Grading Tips:

Tip One: Always give an 'A' grade unless you have a clear reason not to do so.

Tip Two: Before giving less than an 'A' grade, tell the Experts that the solution is less than excellent and what grade you are prepared to assign. Give them the chance to improve their response for a better grade.

Tip Three: Always post a comment when accepting a grade. Update the Experts and let them know that the solution worked and why it worked.

Tip Four: Give your time to the Experts. Experts Exchange is a completely free site for you. The only thing we ask of you is a small amount of your time when you are managing your questions. In exchange for your time you get some of the very best help available in the world. It really requires very little time to post a comment but the pay off is well worth it when the Experts feel appreciated - see Tip One.

Tip Five: Always post a response to every post that each Expert makes. This keeps the Experts informed of your progress and the current state of the problem. You will never regret keeping the Experts informed on the status of your problem that they are trying to fix.

That is it. If you will follow those five tips and the advice I have given you about managing your questions, you will get the most out of Experts Exchange - The Best Site On The Internet!

Public Function GetComputerName() As String
'
' This routine will obtain the Computers name from the system. The
' second time it is called it returns the static 'sName' variable
'
    Static sName As String
    Dim lBuffLen As Long
    Dim sBuffer As String
    Dim lRet As Long
   
    If Len(sName) > 0 Then
        GetComputerName = sName
        Exit Function
    Else
        lBuffLen = 128
        sBuffer = String$(lBuffLen, vbNullChar)
        lRet = GetComputerName(sBuffer, lBuffLen)
        If lRet < 0 Then
'
' Handle API error Here
'
            Exit Function
        End If
        sName = Left$(sBuffer, lBuffLen)
        GetComputerName = sName
    End If
End Function


'usage
MsgBox GetComputerName()

This work on WinNT and Win2k
Msgbox Environ("COMPUTERNAME")

Using the Windows Scriptiing Host:

   Dim objWSH As Object
   Set objWSH = CreateObject("WScript.Network")
   MsgBox objWSH.ComputerName

It works very well, thank you.