Как получить имя компьютера?
Код:
01: 03: 04: 05: 06: 08: 09: 10: 11: 12: 13: 14: 15: 16: 17: |
Option Explicit
Private Declare Function GetComputerName _
Lib "kernel32" Alias "GetComputerNameA" _
(ByVal lpBuffer As String, _
nSize As Long) As Long
Private Sub Form_Load()
Dim strName As String
Dim bytSize As Long
bytSize = 31
strName = String(bytSize, "X")
GetComputerName strName, bytSize
strName = Left(strName, bytSize)
AutoRedraw = True
Print strName
End Sub |
--
Люди, которым всегда некогда, как правило, ничего не делают.