비베 사용 유저 정보

데이터가 변경될때 또는 추가,삭제시 어디서 이러한 작업이 일어났는지 알고 싶을때가 많다.

그래서 큰 사이트인경우는 이러한 정보를 바로 알수있도록 히스토리 테이블에 관련 정보를 아예 넣어놓는다.

 

아래 소스는 VB.Net에서 PC명,IP Address,변경시간을 현재기준으로 불러오는 소스이다.

Public Class Form1
    Public Function fn_GET_HOST_IP() As String 'IP 불러오기
        Dim rtnStr As String = Nothing
 
        '로칼 컴 
        Dim strHostName As String = Dns.GetHostName()
 
        Dim IPHEntry As IPHostEntry = Dns.GetHostByName(strHostName)
        Dim IPAdd As IPAddress() = IPHEntry.AddressList
 
        Dim i As Integer
        For i = 0 To IPAdd.Length - 1
            rtnStr += IPAdd(i).ToString
        Next
 
        Return rtnStr
    End Function
 
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
 
 
        TextBox1.Text = Environ("COMPUTERNAME") 'PC명
        TextBox2.Text = fn_GET_HOST_IP() 'IP 주소
        TextBox3.Text = Now '현재 시각
 
 
 
    End Sub