برای دستیابی به نام کامپیوتر در برنامه ای که به زبان وی بی نوشته اید از کد های زیر استفاده کنید.

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

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

منبع:www.cesblog.ir