MyTetra Share
Делитесь знаниями!
Определение имени компьютера в сети
19.07.2018
19:45
Раздел: VBA - Access - msa.polarcom.ru - 16 Система


Определение имени компьютера в сети

Взято из программы Rules98 - Автор: Грибанов Сергей Юрьевич

Private Declare Function GetComputerNameA Lib "kernel32" (ByVal lpBuffer As String, ByRef nSize As Long) As Long

' Возвращает имя компьютера


Private Function GetComputerName() As String

Const MAX_COMUTERNAME = 99

Dim lpBuffer As String * MAX_COMUTERNAME

Dim lenString As Long


lenString = MAX_COMUTERNAME

Call GetComputerNameA(lpBuffer, lenString)

GetComputerName = Left$(lpBuffer, lenString)

End Function




 
MyTetra Share v.0.52
Яндекс индекс цитирования