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

Question

各位高手，请问如何获取远程计算的相关信息，如，远程计算机当前登录的用户名，电脑型号等，最好能有代码，谢谢啊！

Answer 1

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
'用这种方法在远程获得再发回本机就可以吧
'取计算机型号暂时不会

追问

不行啊，报String和Left的错误，我用的vb.net2008，还有就是在那个地方写对方的电脑名呢。

追答

不会吧，VB.NET不会不认STRING和LEFT函数吧?你看一下它们的定义函数,看有什么不对之处,我这里没有.NET,我也没法调试,我只能调试我的VB6.
还有就是是不是.NET中那两个API函数定义方式不一样,或者是根本没有取到电脑名称及用户名称

追问

你好，我的运行之后出现这个提示的错误，还麻烦你帮我看下，看看能不能帮忙解决下！

追答

不好意思，我看不清图片。