• Home
 · 
• Windows System Services
 · 
• gives the computer name you are working on

gives the computer name you are working on

gives the computer name you are working on

Rate gives the computer name you are working on

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Private Sub Command1_Click()
   Call Computer_Name
End Sub

Private Function Computer_Name() As String
   Dim nComputer As String 'Computer Name
   Dim nBuffer As String
   Dim nSize As Long
   nBuffer = Space$(250)
   nSize = Len(nBuffer)
   If GetComputerName(nBuffer, nSize) = 1 Then
      nComputer = Trim(nBuffer)
      MsgBox nComputer
      Exit Function
   End If
End Function