怎样获取服务器信息

来源：互联网发布：家庭暴力的危害知乎编辑：程序博客网时间：2024/04/30 01:09

vb.net-------------------------------------------------------------------------------------------------------------------------------------

Dim ServerInfo As System.Environment
'Dim url As String = Request.Url ' 获取有关当前请求的 URL 的信息。
'Dim urlReferrer As String = Request.UrlReferrer '获取有关客户端上次请求的 URL 的信息，该请求链接到当前的 URL。
Dim useragent As String = Request.UserAgent '获取客户端浏览器的原始用户代理信息。
Dim userhostaddress As String = Request.UserHostAddress '获取远程客户端的 IP 主机地址。
Dim userhostname As String = Request.UserHostName '获取远程客户端的 DNS 名称。
'Dim userlanguages As String = Request.UserLanguages
Dim platform As String = Request.Browser.Platform

Label1.Text = "系统版本:" & ServerInfo.OSVersion.ToString
Label6.Text = "系统目录:" & ServerInfo.SystemDirectory
Label2.Text = "用户名称:" & ServerInfo.UserName
Label3.Text = "计算机名:" & ServerInfo.MachineName
Label4.Text = "浏览器版本:" & Request.Browser.Type
Label5.Text = "COOKIES状态:" & Request.Browser.Cookies
Label7.Text = "浏览器代理信息:" & useragent
Label8.Text = "您的ＩＰ地址：" & userhostaddress
Label9.Text = "ＤＮＳ名称：" & userhostname
Label10.Text = "系统平台：" & platform

--------------------------------------------------------------c#---------------------------------------------------------

System.Environment ServerInfo;
string useragent = Request.UserAgent;
string userhostaddress = Request.UserHostAddress;
string userhostname = Request.UserHostName;
string platform = Request.Browser.Platform;
Label1.Text = "系统版本:" + ServerInfo.OSVersion.ToString;
Label6.Text = "系统目录:" + ServerInfo.SystemDirectory;
Label2.Text = "用户名称:" + ServerInfo.UserName;
Label3.Text = "计算机名:" + ServerInfo.MachineName;
Label4.Text = "浏览器版本:" + Request.Browser.Type;
Label5.Text = "COOKIES状态:" + Request.Browser.Cookies;
Label7.Text = "浏览器代理信息:" + useragent;
Label8.Text = "您的ＩＰ地址：" + userhostaddress;
Label9.Text = "ＤＮＳ名称：" + userhostname;
Label10.Text = "系统平台：" + platform;