| Вопрос: Узнать имя компьютера | Добавлено: 11.11.08 02:30 |
Автор вопроса:  Aston | ICQ: 214-179-991 |
|
Возникла нужда при загрузки или установке программы узнать имя компьютера, для того чтобы не пришлось устанавливать его вручную. А имя нужно для передачи данных по сети.
Подскажите плизз как можно узнать имя компьютера программно? |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  Obfuscate Вопросов: 3 Ответов: 10 |
Профиль | | #1 | Добавлено: 11.11.08 05:30 |
|
Private Declare Function GetComputerNameA Lib "kernel32" (ByVal lpBuffer As String, nSize As Long) As Long
Private Declare Function WNetGetUserA Lib "mpr.dll" (ByVal lpName As String, ByVal lpUserName As String, lpnLength As Long) As Long Function GetComputerName() As String Dim sBuffer As String * 255 If GetComputerNameA(sBuffer, 255&  <> 0 Then
GetComputerName = Left$(sBuffer, InStr(sBuffer, vbNullChar) - 1) End If End Function Function GetUserName() As String Dim sUserNameBuff As String * 255 sUserNameBuff = Space(255) Call WNetGetUserA(vbNullString, sUserNameBuff, 255&
GetUserName = Left$(sUserNameBuff, InStr(sUserNameBuff, vbNullChar) - 1) End Function Private Sub Command1_Click() MsgBox "ComputerName: " & GetComputerName() MsgBox "UserName: " & GetUserName() End Sub |
||
|
Номер ответа: 2 Автор ответа: Aston ICQ: 214-179-991 Вопросов: 42 Ответов: 272 |
Профиль | | #2 | Добавлено: 11.11.08 11:35 |
Большое спасибо работает
|
||
Страница: 1 |