vb.net知道计算机名,VB计算机
VB6.0怎么获取电脑的名字？
【方法一——最简单】在 工程菜单的部件里找到 Microsoft Winsock Control 然后添加。。它就显示在工具栏上winsock1.LocalHostName 【方法二——最正统】Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
为正安等地区用户提供了全套网页设计制作服务，及正安网站建设行业解决方案。主营业务为网站设计制作、成都网站建设、正安网站设计，以传统方式定制建设网站，并提供域名空间备案等一条龙服务，秉承以专业、用心的态度为用户提供真诚的服务。我们深信只要达到每一位用户的要求，就会得到认可，从而选择与我们长期合作。这样，我们也可以走得更远！
Public Function GetComputer() As String
Dim strCompName As String
Dim intHandle As IntegerstrCompName = String(256, " ")
intHandle = GetComputerName(strCompName, 256)
strCompName = Left(strCompName, InStr(1, strCompName, Chr(0)) - 1)
GetComputer = Trim(strCompName)
End Function然后调用这个函数即可
用VB如何获取当前用户的用户名和计算机名、工作组名称？
Private Sub Command1_Click()
Dim a As Object
Set a = CreateObject("Wscript.Network")
Print a.ComputerName
Print a.UserName
Print a.UserDomain
End Sub
vb.net的获取计算机名称问题
My功能可以替代很多API，因为CLR已经封装了大量系统函数，不建议使用API，那样会限制程序的可移植性。（微软声称.NET FRAMEWORK是跨平台的，但是迄今都没看见在Linux上的.NET 程序）
多翻翻MSDN就知道东西怎么用了
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
'用这种方法在远程获得再发回本机就可以吧
'取计算机型号暂时不会
VB如何获取远程计算机的名称？
利用winsock控件就可以了：
获得主机名称：
Winsock1.LocalHostName
获得主机IP地址：
Winsock1.LocalIP
获得主机端口号：
Winsock1.LocalPort
VB知道局域网计算机名，ping是否在线。
知道对方ip查看对方的计算机名
方法： 开始-运行-cmd-nbtstat -a 对方ip
开始-运行-cmd-net view 对方ip
知道对方计算机名查看对方ip
方法：开始-运行-cmd-ping 对方计算机名
或者 开始-运行-cmd-nbtstat -a 对方计算机名
分享文章：vb.net知道计算机名,VB计算机
文章源于：http://6mz.cn/article/dsscdjo.html