使用VBA获取计算机名称

Question

有没有办法在VBA中获取计算机的名称？

Answer 1

Dim sHostName As String

' Get Host Name / Get Computer Name

sHostName = Environ$("computername")

Answer 2

你可以这样做:

Sub Get_Environmental_Variable()

Dim sHostName As String
Dim sUserName As String

' Get Host Name / Get Computer Name    
sHostName = Environ$("computername")

' Get Current User Name    
sUserName = Environ$("username")

End Sub

Answer 3

看起来我已经迟到了,但这是一个常见问题......

这可能是您想要的代码.

请注意,此代码属于公共领域,来自Usenet,MSDN和Excellerando博客.

Public Function ComputerName()As String
'返回主机名

'使用后期绑定:对性能和稳定性不利,对于有用 
'代码可移植性.正确的声明是:

'Dim objNetwork作为IWshRuntimeLibrary.WshNetwork
'set objNetwork = New IWshRuntimeLibrary.WshNetwork

Public Function ComputerName() As String
'' Returns the host name

'' Uses late-binding: bad for performance and stability, useful for 
'' code portability. The correct declaration is:

'   Dim objNetwork  As IWshRuntimeLibrary.WshNetwork
'   Set objNetwork = New IWshRuntimeLibrary.WshNetwork

    Dim objNetwork As Object
    Set objNetwork = CreateObject("WScript.Network")

    ComputerName = objNetwork.ComputerName

    Set objNetwork = Nothing

End Function


结束功能

你也可能需要这个:

公共函数UserName(可选WithDomain为Boolean = False)作为字符串
'返回用户的网络名称

'使用后期绑定:对性能和稳定性不利,对于有用
'代码可移植性.正确的声明是:

'Dim objNetwork作为IWshRuntimeLibrary.WshNetwork
'set objNetwork = New IWshRuntimeLibrary.WshNetwork

Public Function UserName(Optional WithDomain As Boolean = False) As String
'' Returns the user's network name

'' Uses late-binding: bad for performance and stability, useful for
'' code portability. The correct declaration is:

'   Dim objNetwork  As IWshRuntimeLibrary.WshNetwork
'   Set objNetwork = New IWshRuntimeLibrary.WshNetwork


    Dim objNetwork As Object
    Set objNetwork = CreateObject("WScript.Network")

    If WithDomain Then
        UserName = objNetwork.UserDomain & "\" & objNetwork.UserName
    Else
        UserName = objNetwork.UserName
    End If

    Set objNetwork = Nothing

End Function


结束功能