Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.026 c