Listing 1: GetProfileName.vbs
BEGIN COMMENT 
‘Define variables.
END COMMENT
dim mfolder, fname, tf, subfld, s 

set fso = createobject("scripting.filesystemobject") 
set tf = fso.createtextfile("C:\username.txt", true) 
 ‘Create text file locally.
set mfolder = fso.getfolder("\\<server name>\profile folder")
 ‘Get the object folder.
set subfld = mfolder.subfolders

BEGIN COMMENT 
‘Loop through subfld and write the name of the subfolder
 to the text file on the local hard drive. 
END COMMENT
for each fname in subfld
	s = fname.name
	tf.writeline(s) 
next 
tf.close