Функция GetComputerName

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

GetComputerName возвращает имя компьютера пользователя. Имя помещено в строковую переменную lpBuffer.

lpBuffer

Строка для хранения имени компьютера и заканчивающаяся нулевым символом

nSize

Длина строки lpBuffer в символах

Пример

' Показываем имя компьютера
Dim compname As String, retval As Long  

compname = Space(255) ' выделяем достаточно большое место для имени
retval = GetComputerName(compname, 255)  ' получаем имя компьютера
' удаляем нулевой символ
compname = Trim(compname)
Debug.Print compname ' показываем имя компьютера

Категория

Системная информация