vb点虐有用户名吗 vbnet implements

VB.NET 如何获取主机在域中的用户名？

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

做不到，access数据库是本地数据库，不支持网络访问，建议你换成sql server或者mysql之类的数据库。

注：如果一定要远程访问access也不是不行，有两种办法，一个是服务器如果跟你在同一个局域网，可以把数据库文件夹共享出来，当做共享文件访问。另一种是在那台服务器上装个sql server数据库，sql server可以创建出链接数据库链接到那个access.

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

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

'取计算机型号暂时不会

文章题目：vb点虐有用户名吗 vbnet implements
新闻来源：http://scyanting.com/article/ddgdijo.html