作 者:Dev Ashish 发布日期:2002年11月13日 摘 要:通过API函数GetComputerName获取本机机器名
正 文:
(问): 怎样获取当前的机器名?
(答): 将下面的代码粘贴到一个新的模块中,运行 fOSMachineName 函数就可以得到机器名。
'******************** Code Start ************************** '作者: Dev Ashish.
Private Declare Function apiGetComputerName Lib "kernel32" Alias _ "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Function fOSMachineName() As String ' 返回机器名 Dim lngLen As Long, lngX As Long Dim strCompName As String
lngLen = 16 strCompName = String$(lngLen, 0) lngX = apiGetComputerName(strCompName, lngLen) If lngX <> 0 Then fOSMachineName = Left$(strCompName, lngLen) Else fOSMachineName = "" End If End Function
'******************** Code End ************************** |
翻译: 朱亦文
来 源 于:MVPS: The access Web
|