获得计算机名
上一篇 /
下一篇 2008-08-21 13:40:18
Public Function GetHostName (ByRef strComputerName)
Dim objNetwork
Set ōbjNetwork = CreateObject("Wscrīpt.Network")
strComputerName = objNetwork.ComputerName
GetComputerName = True
Set ōbjNetwork = Nothing
End function
收藏
举报
TAG: