Форум программистов, компьютерный форум, киберфорум
Microsoft Access
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.64/11: Рейтинг темы: голосов - 11, средняя оценка - 4.64
0 / 0 / 0
Регистрация: 26.10.2009
Сообщений: 49
1

Программно определить имя компьютера

31.01.2010, 08:28. Просмотров 2265. Ответов 3
Метки нет (Все метки)


Как программно узнать имя компьютера в сети, на котором работает пользователь?
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
31.01.2010, 08:28
Ответы с готовыми решениями:

Как программно присвоить полю новое имя?
Столкнулся с такой проблемой. Необходимо динамически давать новые имена полям подчиненной формы,...

Выводить имя человека а не компьютера
Есть вот такой код, который выводит, кто находиться в базе. Точнее выводит имя компьютера в сети....

Автозапись номера компьютера (имя пользователя)
Здравствуйте. Подскажите, как сделать, чтобы при заполнении таблицы в отдельном поле (для каждой...

Добавить имя пользователя компьютера в поле формы по умолчанию
Приветствую Помогите пожалуйста разобраться Нужно создать поле в форме, где по умолчанию будет...

3
PaulB
31.01.2010, 13:28 2
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Option Compare Database
Option Explicit
 
Private Declare Function GetComputerName _
Lib 'kernel32' Alias 'GetComputerNameA' ( _
ByVal lpBuffer As String, nSize As Long) As Long
 
Private Const MAX_COMPUTERNAME_LENGTH As Long = 15&
 
'Microsoft Knowledge Base Article - 148835                    
Public Function CurrentMachineName() As String
    Dim lSize As Long
    Dim sBuffer As String
    sBuffer = Space$(MAX_COMPUTERNAME_LENGTH + 1)
    lSize = Len(sBuffer)
 
    If GetComputerName(sBuffer, lSize) Then
        CurrentMachineName = Left$(sBuffer, lSize)
    End If
End Function
0 / 0 / 0
Регистрация: 26.10.2009
Сообщений: 49
01.02.2010, 06:30  [ТС] 3
Спасибо, буду пробовать.
0
0 / 0 / 0
Регистрация: 03.05.2010
Сообщений: 9
29.05.2010, 19:24 4
Visual Basic
1
2
3
Dim objWshNetWork As WshNetwork, strCompName As String
Set objWshNetWork = CreateObject('WScript.Network')
Netbios_name = objWshNetWork.ComputerName
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.05.2010, 19:24

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Вывести IP-адрес компьютера, имя компьютера, имя пользователя и дату и время включения/выключения компьютера
необходимо написать скрипт который, будет лежать в автозагрузке на локальных машинах и выводить в...

Определить имя компьютера
Добрый день Подскажите пожалуйста как определить имя компьютера и пароль? То имя компьютера и...

Как по IP-адресу определить имя компьютера?
Вот где-то нашел кусок кода, для определения статуса сетевой lcIPAddress='192.168.0.1'...

Как программно определить имя компонента из его же процедуры?
Допустим есть вот такая процедура: procedure TStartForm.sSpeedButton6Click(Sender: TObject);...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.