Главная страницаОбратная связьКарта сайта
Статья на этом сайте, познавательно.

Получить имя компьютера и имя текущего пользователя



'----------------------------------------------------------------------
'Пример использования
'MsgBox CompName
'MsgBox UserName
'----------------------------------------------------------------------

Option Explicit

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

'Получаем имя компьютера
Public Function CompName() As String
Dim r As Long
Dim sCompName As String
Dim slength As Long

slength = 255
sCompName = String$(slength, vbNullChar)
r = GetComputerName(sCompName, slength)
CompName = Left$(sCompName, InStr(sCompName, vbNullChar) - 1)
End Function

'Получаем имя пользователя
Public Function UserName() As String
Dim r As Long
Dim sUserName As String
Dim slength As Long

slength = 255
sUserName = String$(slength, vbNullChar)
r = GetUserName(sUserName, slength)
UserName = Left$(sUserName, InStr(sUserName, vbNullChar) - 1)
End Function


Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация программирование на Visual Basic - "Получить имя компьютера и имя текущего пользователя", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2017 Дискета.info