TopPicLogo TopPicText

Определение имени компьютера в сети

Взято из программы Rules98 - Автор: Грибанов Сергей Юрьевич

Private Declare Function GetComputerNameA Lib "kernel32" (ByVal lpBuffer As String, ByRef nSize As Long) As Long
' Возвращает имя компьютера

Private Function GetComputerName() As String
Const MAX_COMUTERNAME = 99
Dim lpBuffer As String * MAX_COMUTERNAME
Dim lenString As Long

lenString = MAX_COMUTERNAME
Call GetComputerNameA(lpBuffer, lenString)
GetComputerName = Left$(lpBuffer, lenString)
End Function

Назад ToTop
L.E. 15.11.2012
Рейтинг@Mail.ru