vb.net读取域用户的简单介绍

如何使用域账号登录VB.NET设计的网站

前台UI自己搞定，但是你说用域账号来登录，也就是Windows账号的话，那个东西，你还要看一下Windows API，调用相关的Windows 组件才能达到你的要求，我知道vmware server那个就是用Windows账号登录的。

在光明等地区，都构建了全面的区域性战略布局，加强发展的系统性、市场前瞻性、产品创新能力，以专注、极致的服务理念，为客户提供网站建设、网站制作网站设计制作按需定制设计,公司网站建设,企业网站建设,品牌网站设计,成都营销网站建设,成都外贸网站建设,光明网站建设费用合理。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim UserID As String = Environment.GetEnvironmentVariable("USERNAME") '获取用户名

MsgBox(UserID)

End Sub

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Private Sub GetName()

Dim sJM As String

Dim sMC As String

Dim sIP As String

Dim s As String

s = String(128, Chr(0))

GetComputerName s, Len(s)

s = UCase(Left(s, InStr(1, s, Chr(0)) - 1))

sJM = s'计算机名称

s = String(128, Chr(0))

GetUserName s, Len(s)

s = UCase(Left(s, InStr(1, s, Chr(0)) - 1))

sMC = s‘当前用户名称

End Sub

'用这种方法在远程获得再发回本机就可以吧

'取计算机型号暂时不会

如果你有该永动机的登陆用户名和密码.那简单了.

Shell("c:\windows\system32\cmd.exe /c net use \\192.168.0.199 """"" " /user:" """guest""")

里面冒号太多了.你可以通过CHR去转换里面中的一些冒号.

这句话可以不要人为去输入用户名和密码.

另外如果你可以使用

My.Computer.Network.DownloadFile()

函数去进行文件下载.这个比较方便 .

用Environment类中的GetEnvironmentVariable方法。

保存用户名的环境变量是USERNAME。

比如

string username=Environment.GetEnvironmentVariable("USERNAME")

文章标题：vb.net读取域用户的简单介绍
网站地址：http://cdiso.cn/article/hgohpj.html