как узнать имя компа? [D7, 95/98, XP]
йцукен © (2005-09-29 20:37:00)
как
YurikGL (2005-09-29 20:46:00) [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
Наверх 
ЧАТ |
Орешник |
|
