| Вопрос: Как узнать имя компьютера в VB? | Добавлено: 19.03.07 12:22 |
Автор вопроса:  Djmun | ICQ: 4401990 |
|
Собственно сам вопрос так и звучит. Помогите пожалуйста разобраться!
В этом не селен так как чаще всего работаю с БД. Поэтому, объясните поподробнее. Вот нашел такой пример, Public Function GetMyName() As String GetMyNAME = GetKeyValue(HKEY_LOCAL_MACHINE, _ "System\CurrentControlSet\Control\ComputerName\ComputerName\", _ "ComputerName") End Function но он у меня не работает. Я Даже догадываюсь почему, но лудше уж подскажите что б на вирника. Заранее благодарю! |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  Pashenko ICQ: 176176951 Вопросов: 14 Ответов: 655 |
Профиль | | #1 | Добавлено: 19.03.07 12:41 |
msgbox environ("computername"
|
||
|
Номер ответа: 2 Автор ответа: ProgrammerВопросов: 71 Ответов: 246 |
Профиль | | #2 | Добавлено: 19.03.07 15:38 |
|
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As LongDeclare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub Form_Load() MsgBox GetComputerName() End Sub |
||
|
Номер ответа: 3 Автор ответа: Djmun ICQ: 4401990 Вопросов: 16 Ответов: 33 |
Профиль | | #3 | Добавлено: 21.03.07 18:47 |
| Спасибо огромное ребята! | ||
Страница: 1 |