IWshNetwork.ComputerName Property

[José Roca]

The following code illustrates the use of the ComputerName property:

JScript

Code: [Select]

var WshNetwork = WScript.CreateObject("WScript.Network");
WScript.Echo("Domain = " + WshNetwork.UserDomain);
WScript.Echo("Computer Name = " + WshNetwork.ComputerName);
WScript.Echo("User Name = " + WshNetwork.UserName);

VBScript

Code: [Select]

Set WshNetwork = WScript.CreateObject("WScript.Network")
WScript.Echo "Domain = " & WshNetwork.UserDomain
WScript.Echo "Computer Name = " & WshNetwork.ComputerName
WScript.Echo "User Name = " & WshNetwork.UserName

PowerBASIC

Code: [Select]

DIM pWshNet AS IWshNetwork
pWshNet = NEWCOM "WScript.Network"
PRINT "User name: " & ACODE$(pWshNet.UserName)
PRINT "User domain: " & ACODE$(pWshNet.UserDomain)
PRINT "Computer name: " & ACODE$(pWshNet.ComputerName)