Функция GetComputerName

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

Платформа

Win 95/98, Win NT

GetComputerName возвращает имя компьютера пользователя.Имя помещено в строковую переменную , как lpBuffer. Функция возвращает 0, если произошла ошибка, и 1 в случае успеха.

Параметры

lpBuffer
Строка, достаточно большая для хранения имени компьютера и закончивающая нулевым(пустым) символом.
nSize
Длина строки lpBuffer в символах.

Пример

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

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

В начало.

Категория прав на трактор
В продаже - трактор, цены ниже! Неликвидные остатки
pravanaspectehnikurf.com