Dim FSObj,FolderOBJ,FolderCollObj

Set FSObj = CreateObject("Scripting.FileSystemObject")
set folderCheck = CreateObject("Scripting.FileSystemObject")

'get domain and username
set Wnet=Wscript.CreateObject("Wscript.Network")
DomainName=Wnet.UserDomain & ""

if DomainName = "EMERSON" then
	UsrName=Wnet.username & ""
else
	UsrName = Inputbox("Please enter your ECnet user name (usually firstname_lastname).","Enter Name")
	AuthName = "emerson\" & UsrName
	Wnet.MapNetworkDrive "x:", "\\cabinet.emerson.edu\departments", false, AuthName	
end if
	FSObj.GetDrive("\\cabinet.emerson.edu\Departments")
	Set FolderOBJ = FSObj.GetFolder("\\cabinet.emerson.edu\Departments")
	Set FolderCollObj = FolderOBJ.SubFolders


	''''
	'search for the users folder
	''''
	For each item in FolderCollObj
		if FSObj.FolderExists ("\\Cabinet.emerson.edu\Departments\" & item.Name & "\Staff & Faculty\" & UsrName) then
			'MsgBox "found folder in \\Cabinet\Departments\" & item.Name & "\Staff & Faculty\"
			path = "\\Cabinet.emerson.edu\Departments\" & item.Name & "\Staff & Faculty\" & UsrName
			
			'Make the shortcut
			set wshell = createobject("wscript.shell")
			UsrDesktop = Wshell.SpecialFolders("Desktop")
			UsrSendto = Wshell.SpecialFolders("SendTo")
			if FSObj.FileExists (UsrDesktop & "\My Cabinet Folder.lnk") then
				set Slink = WShell.CreateShortcut(UsrDesktop & "\" & UsrName & "'s Cabinet Folder.lnk")
				Slink.TargetPath = path
				Slink.Save
			else
				set Slink = WShell.CreateShortcut(UsrDesktop & "\My Cabinet Folder.lnk")
				Slink.TargetPath = path
				Slink.Save
			end if

			if FSObj.FileExists (UsrSendto & "\My Cabinet Folder.lnk") then
				set STlink = WShell.CreateShortcut(UsrSendto & "\" & UsrName & "'s Cabinet Folder.lnk")
				STlink.TargetPath = path
				STlink.Save
			else
				set STlink = WShell.CreateShortcut(UsrSendto & "\My Cabinet Folder.lnk")
				STlink.TargetPath = path
				STlink.Save
			end if
			Exit For
		end if
	Next