请问如何取得当前计算机名称？

Question

如题，谢谢！在线等。

Answer 1

Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Dim name1 As String * 255    '取得计算机名称
Dim name As String
Dim i As Integer
i = GetComputerName(name1, 255)
            
          If i <> 0 Then
                  name = name1
          Else
                  name = "unknown"
          End If
cptname = name
Label1.Caption = "本机名称：" & name

Answer 2

如果要在lotus中的一个域中显示出来（客户端计算机名），该如何处理啊？请问

Answer 3

获取计算机名称    http://www.biirch.com/code/3/computername.htm

Answer 4

获取计算机名称     http://www.21tx.com/src/2001/01/27/10542.html