Addextender("WWWNT34I.DLL")
J=AskYesNo("Domain or Server","Would you like to enumerate the entire Affymetrix Domian?") 
If J==@TRUE then goto DOMAIN
If J==@False then goto SERV


:SERV
F=Askline("UNC","Please enter the UNC to the Server","")
shares = wntResources(F, 2, 1, 1)
share = Display("","Shared directories on %server%", shares)
Exit

:DOMAIN
G=askline("Domain","What Domain to search","")
servers = wntResources(G, 2, 1, 0)
b=askyesno("Print List","Would you like to print the entire Domain?")
if b==@YES then gosub PrintList
server = TextSelect("Available servers", servers, @TAB)
shares = wntResources(server, 2, 1, 1)
share = Message("Shared directories on %server%", shares)
Exit


:PrintList
	log=fileopen("domainList.txt","APPEND")
	count=ItemCount( servers,@TAB )
	num=1
	Boxopen("enumeration","Searching ")
	while @true
		fldr=ItemExtract(num,servers,@TAB)
		num= num+1
		fldr=strcat(fldr," c d e f g h i")
		filewrite(log,fldr)
		if num > count then break
	endwhile
	fileclose(log)
	return