vb.net获取计算机名 vbs获取当前用户名

vb.net 获取局域网计算机的当前用户名和计算机型号等信息

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

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

'取计算机型号暂时不会

相关问答

Q1: VB6里面可以访问WIN32 API，VB2008里面如何应用啊？

大部分API在vb2008下仍然可以使用vb.net获取计算机名，但参数类型定义有所变化vb.net获取计算机名；有一些API已经无法正常使用，那些API改成.netvb.net获取计算机名的对应属性，可以去微软的网站看一下。

getcomputername在vb.net下已经无法正常使用，VB2008提供更简单的方法来获得计算机名vb.net获取计算机名：

my.computer.name

x = My.Computer.Name

Q2: vb.net的获取计算机名称问题

My功能可以替代很多API，因为CLR已经封装了大量系统函数，不建议使用API，那样会限制程序的可移植性。（微软声称.NET FRAMEWORK是跨平台的，但是迄今都没看见在Linux上的.NET 程序）

多翻翻MSDN就知道东西怎么用了

Q3: VB.NET2010 怎么获取IP

1.获取当前电脑名vb.net获取计算机名：System.Net.Dns.GetHostName()

2.根据电脑名取出全部IP地址vb.net获取计算机名：System.Net.Dns.Resolve(电脑名).AddressList

或者 System.Net.Dns.GetHostByName(电脑名).AddressList

3.根据IP地址取出电脑名vb.net获取计算机名：System.Net.Dns.Resolve(IP地址).HostName

vb.net获取计算机名的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbs获取当前用户名、vb.net获取计算机名的信息别忘了在本站进行查找喔。