当前位置：首页 → 问答吧 → vb6中，怎样获取本地计算机名

vb6中，怎样获取本地计算机名

时间：2011-10-09

来源：互联网

vb6中，怎样获取本地计算机名

作者: heimuyuyu 发布时间: 2011-10-09

Public Function GetThisComputerName() As String
'调用API函数获得当前计算机的BIOS名称
Dim sBuffer As String
Dim lSize As Long

sBuffer = Space$(255)
lSize = Len(sBuffer)
GetComputerName sBuffer, lSize

If lSize > 0 Then
GetThisComputerName = Left$(sBuffer, lSize)
End If
End Function

作者: worldy 发布时间: 2011-10-09

1L API声明为：
Public Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

作者: worldy 发布时间: 2011-10-09

Environ("computername")

作者: patrickkong 发布时间: 2011-10-09

引用 1 楼 worldy 的回复:
Public Function GetThisComputerName() As String
'调用API函数获得当前计算机的BIOS名称
Dim sBuffer As String
Dim lSize As Long

sBuffer = Space$(255)
lSize = Len(sBuffer)
GetComputerName sBuffer, ……

有没有更简单的方法

作者: heimuyuyu 发布时间: 2011-10-09

引用 2 楼 worldy 的回复:
1L API声明为：
Public Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

打开数据库是，provider = sqloledb;Initial catalog = dbname;user id = sa;password = 123;
data source = 计算机名，这里的计算机名怎么获得

作者: heimuyuyu 发布时间: 2011-10-09