域名 计算机名 用户名,获取用户名、计算机名和域名

搜索热词

下面是编程之家 jb51.cc 通过网络收集整理的代码片段。

编程之家小编现在分享给大家，也给大家做个参考。

Option Explicit

Dim objNet

On Error Resume Next

'In case we fail to create object then display our custom error

Set objNet = CreateObject("WScript.NetWork")

If Err.Number <> 0 Then 'If error occured then display notice

MsgBox "Don't be Shy." & vbCRLF &_

"Do not press ""No"" If your browser warns you."

Document.Location = "UserInfo.html"

'Place the Name of the document.

'It will display again

End if

Dim strInfo

strInfo = "User Name is " & objNet.UserName & vbCRLF & _

"Computer Name is " & objNet.ComputerName & vbCRLF & _

"Domain Name is " & objNet.UserDomain

MsgBox strInfo

Set objNet = Nothing 'Destroy the Object to free the Memory

以上是编程之家(jb51.cc)为你收集整理的全部代码内容，希望文章能够帮你解决所遇到的程序开发问题。

如果觉得编程之家网站内容还不错，欢迎将编程之家网站推荐给程序员好友。

总结

以上是编程之家为你收集整理的获取用户名、计算机名和域名全部内容，希望文章能够帮你解决获取用户名、计算机名和域名所遇到的程序开发问题。

如果觉得编程之家网站内容还不错，欢迎将编程之家网站推荐给程序员好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。