ネットワーク上のユーザーが PC のホスト名と IP アドレスを IT 部門に報告するためのツールを作成しようとしています。支援のために、PC とユーザーをシャッフルするのが大好きな倉庫部門があるため、誰がどの PC を使用しているかを確実に判断することはできません。これは、彼らが「ジムの PC」と言うのをやめさせ、「WAREHOUSE_WINXP_4」のような有用な情報を提供してもらうための簡単な方法であることを目的としています。
正常に動作するはずのプログラムを作成しましたが、エラーなしでコンパイルおよび実行されますが、テキスト ボックスの内容が正しく設定されていないようです。プログラムは非常にシンプルで、2 つのテキスト ボックスを持つフォームのみです。
(注: 私はどちらかというと sysadmin/netadmin/infosec のスペシャリストなので、ここで id10t の間違いを犯している可能性があります。
Public Class Form1
Dim strHostname As String
Dim strIPAddress As String
Public Sub getHostname()
strHostname = System.Net.Dns.GetHostName()
'txtHostname.Text = strHostname Apparently putting it here won't work. In Load() maybe?
End Sub
Public Sub getIPAddress()
strIPAddress = System.Net.Dns.GetHostEntry(strHostname).AddressList(0).ToString()
'txtIPAddress.Text = strIPAddress Apparently putting it here won't work. In Load() maybe?
End Sub
Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load
getIPAddress()
getHostname()
txtHostname.Text = strHostname
txtIPAddress.Text = strIPAddress
End Sub
End Class