Dim WshNetwork, compname
Set WshNetwork = CreateObject("WScript.Network")
compname = WshNetwork.ComputerName

+ Recent posts