获取计算机名，我的方法同你们不一样：（那是玩笑）

阿罗

你们的方法：

'******************************************************    API函数
Declare Function GetComputerNameA Lib "kernel32" _
                                 (ByVal strBuffer As String, lngSize As Long) As Long

'******************************************************    获取机器名
Public Function fGetComputerName() As String
    Dim lngReturn As Long
    Dim lngBufferSize As Long
    Dim strBuffer As String
    lngBufferSize = 254
    strBuffer = String(lngBufferSize, vbNullChar)
    lngReturn = GetComputerNameA(strBuffer, lngBufferSize)
    If CBool(lngReturn) Then
        fGetComputerName = Left(strBuffer, lngBufferSize)
    End If
End Function

我的方法：
1）
private sub form_load()
   dim x as new winsock
   textbox1.value = x.localHostName
   textbox2.value = x.localIP
end sub
注：winsock类 %systemroot%\system32\mswinsck.ocx
2 ）
private sub form_load
   dim x as new adodb.recordset
   set x = currentproject.connection.execute("SELECT HOST_NAME()")
   textbox1.value = x(0)
end sub
注：SQL服务器。[em05]

[此贴子已经被作者于2003-10-28 22:07:10编辑过]

ADAM

good good
好辦法,清晰易懂

luzhiqun

是好方法

adge

我正需要，，，，太感人了！！！！
注：winsock类 %systemroot%\system32\mswinsck.ocx
是什么意思？我想用这个方法，但是不知道怎么搞哪个winsock类！！！？

阿罗

%systemroot%就是你windows的安装目录了。mswinsck.ocx在此。

阿罗

[em06]

唐小小

access其实有好多潜在的功能，其中有很多函数可以作到日常的调用：）
一、求机器名
    Environ("COMPUTERNAME")

二、求当前登录用户的用户名
    Environ("USERNAME")

三、求WINDOWS目录
    Environ("windir")

四、求操作系统
    Environ("OS")

五、求临时目录
    Environ("TEMP") 或 Environ("TMP")

cg1

http://access911.net/index.asp?board=4&recordid=71FABE1E