vba如何获取本计算机名,【Access源码示例】VBA获取计算机名称的方法

时　间:2020-05-19 09:01:24

作　者:摘　要:VBA获取计算机名称的方法。

正　文:

获取计算机名称主要有以下几种方法：

1.Environ系统环境函数

Environ("computername")

2.WScript Shell Object

CreateObject("WScript.Shell").ExpandEnvironmentStrings("%COMPUTERNAME%")

3.WScript Network Object

CreateObject("WScript.Network").ComputerName

4.API方法

#If VBA7 And Win64 Then

'x64 Declarations

Declare PtrSafe Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As LongPtr) As LongPtr

#Else

'x32 Declaration

Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

#End If

Function ComputerName() As String

Dim sBuff As String * 255

Dim lBuffLen As Long

Dim lResult As Long

lBuffLen = 255

lResult = GetComputerName(sBuff, lBuffLen)

If lBuffLen > 0 Then

ComputerName = Left(sBuff, lBuffLen)

End If

End Function

附   件:

Access软件网QQ交流群(群号:39785885)

Access源码网店