Powerbasic Museum 2020-B

Legacy Software (PBWIN 9.0+/PBCC 5.0+) => Source Code => Scripting => Windows Script Host => Topic started by: José Roca on July 14, 2008, 08:33:56 PM

Title: IWshNetwork.ComputerName Property
Post by: José Roca on July 14, 2008, 08:33:56 PM


The following code illustrates the use of the ComputerName property:

JScript


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


VBScript


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


PowerBASIC


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)