VB源码，获取计算机名
MsgBox Environ("computername")----------------------------------------------------------------
Dim a As Object
Set a = CreateObject("Wscript.Network")
Print a.ComputerName
Print a.UserName
Print a.UserDomain
实时监控
电脑维修
----------------------------------------------------------------
Dim a As Object
Set a = CreateObject("Wscript.Network")
Print a.ComputerName
Print a.UserName
Print a.UserDomain
发表评论：