#INCLUDE "WSHOM.INC"DIM pWshNetwork AS IWshNetworkpWshNetwork = NEWCOM "WScript.Network"STDOUT ACODE$(pWshNetwork.UserProfile)