Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.10.23;
Скачать: CL | DM;

Вниз

как узнать имя компа?   Найти похожие ветки 

 
йцукен   (2005-09-29 20:37) [0]

как


 
YurikGL ©   (2005-09-29 20:46) [1]

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

Platforms: Win 95/98, Win NT

GetComputerName reads the name of the user"s computer. The name is put into the string variable passed as lpBuffer. The function returns 0 if an error occured or 1 if successful.

lpBuffer
A string large enough to hold the returned computer name terminated by a null character.
nSize
The length in characters of lpBuffer.
Example:

" Display the computer"s name
Dim compname As String, retval As Long  " string to use as buffer & return value

compname = Space(255)  " set a large enough buffer for the computer name
retval = GetComputerName(compname, 255)  " get the computer"s name
" Remove the trailing null character from the strong
compname = Left(compname, InStr(compname, vbNullChar) - 1)
Debug.Print compname  " display name



Страницы: 1 вся ветка

Текущий архив: 2005.10.23;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.048 c
2-1127044584
-Virus-
2005-09-18 15:56
2005.10.23
Случайное число Real.


14-1127894061
Digitman
2005-09-28 11:54
2005.10.23
Задрал уже этот MS Word 2003..


14-1128334632
ocean
2005-10-03 14:17
2005.10.23
Win98 лат. на ноутбуке HP после Shutdown не выключает питание


6-1119947402
Dark Shaman
2005-06-28 12:30
2005.10.23
Получение файла из локальной сети


14-1127739516
Сказочник
2005-09-26 16:58
2005.10.23
Задачка