31 Январь 2009

Как получить имя компьютера?

Windows |  Таги: , ,

Как получить имя компьютера?

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


Оставить комментарий

Я не робот.