20-03-2008, 14:40
|
|
|
חבר מתאריך: 07.10.06
הודעות: 1,795
|
|
יש API שעושה את זה.
קוד:
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public Function ComputerName() As String
Dim sBuffer As String
Dim lAns As Long
sBuffer = Space$(255)
lAns = GetComputerName(sBuffer, 255)
If lAns <> 0 Then
'read from beginning of string to null-terminator
ComputerName = Left$(sBuffer, InStr(sBuffer, Chr(0)) - 1)
Else
Err.Raise Err.LastDllError, , _
"A system call returned an error code of " _
& Err.LastDllError
End If
End Function
תשים לב רק לשים את ה-Declare בראש הקוד.
ודוגמא לקריאה לפונקציה:
http://www.freevbcode.com/ShowCode.Asp?ID=43
נערך לאחרונה ע"י רמי ד בתאריך 20-03-2008 בשעה 14:45.
|