Access微课
网站公告
·Access快速平台QQ群号:84825014    ·Access快速开发平台下载地址及教程    ·欢迎添加微信交流账号:AccessoftChu    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

【Access源码示例】VBA获取计算机名称的方法

时 间:2020-05-19 09:01:24
作 者:金宇   ID:43  城市:江阴
摘 要: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交流群 (群号:596608182)       access源码网店

最新评论 查看更多评论(0)

发表评论您的评论将提升作者分享的动力!快来评论一下吧!

用户名:
密 码:
内 容:
 

常见问答

技术分类

相关资源

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助