kyrons Ответов: 1

Как получить имя компьютера с другого компьютера, на котором установлена моя программа?

Я хочу отобразить имя компьютера с другого компьютера, на котором установлена моя общая программа.
Используя "application.startup", vb может определить, откуда взялась программа. Да, он показывает путь (например \\ПК1\образец программа\) но я хочу сделать или для отображения "ПЦ1" в текстовое поле. Есть какие-нибудь предложения или изменения относительно моего кода?

Что я уже пробовал:

Первая попытка, но не работает:

txtServerName.Text = System.Net.Dns.GetHostName(Application.StartupPath)


Вторая попытка:

txtServerName.Text = System.Environment.GetEnvironmentVariable("ComputerName"(Application.StartupPath))


Все они не работают. Он показывает ошибку "дополнительная информация: преобразование из строки". C:\Users\r0n\Documents\Visual St" для ввода 'Integer' недопустимо."

1 Ответов

Рейтинг:
8

Richard Deeming

Воспользуйся то Uri класс[^].

Dim startupUri As New Uri(Application.StartupPath)
If startupUri.IsUnc Then
    txtServerName.Text = startupUri.Host
Else
    txtServerName.Text = Environment.MachineName
End If

kyrons

Вау...Большое вам спасибо, Ричард Диминг, мой друг, это прекрасно работает.