<% Set objWSHNetwork = Server.CreateObject("WScript.Network") ServerName = objWSHNetwork.ComputerName datetime = Year(now()) & "-" & Right(Cstr(Month(now()) + 100),2) & "-" & Right(Cstr(Day(now()) + 100),2) & "T" & Right(Cstr(Hour(now()) + 100),2) & ":" & Right(Cstr(Minute(now()) + 100),2) & ":" & Right(Cstr(Second(now()) + 100),2) & ".0Z" Response.write "" & vbCRLF Response.write "" & vbCRLF Response.write "" & vbCRLF Whichfolder=server.mappath("rdp\") & "/" Dim fs, f, f1, fc set fs = CreateObject("Scripting.FileSystemObject") set f = fs.GetFolder(Whichfolder) set fc = f.files For Each f1 in fc if (LCase(Right(f1.name,4)) = ".rdp") then if not GetRDPvalue(f1,"full address:s:") = "" then basefilename = Left(f1.name,Len(f1.name) - 4) appalias = GetRDPvalue(f1,"remoteapplicationprogram:s:") apptitle = GetRDPvalue(f1,"remoteapplicationname:s:") appicon = basefilename & ".ico" appicon32 = basefilename & ".png" apprdpfile = f1.name appresourceid = appalias appftastring = GetRDPvalue(f1,"remoteapplicationfileextensions:s:") appfulladdress = GetRDPvalue(f1,"full address:s:") rdptype = "RemoteApp" if appalias = "" then rdptype = "Desktop" appalias = basefilename apptitle = basefilename appresourceid = basefilename else rdptype = "RemoteApp" end if filedatetimeraw = f1.DateLastModified filedatetime = Year(now()) & "-" & Right(Cstr(Month(filedatetimeraw) + 100),2) & "-" & Right(Cstr(Day(filedatetimeraw) + 100),2) & "T" & Right(Cstr(Hour(filedatetimeraw) + 100),2) & ":" & Right(Cstr(Minute(filedatetimeraw) + 100),2) & ":" & Right(Cstr(Second(filedatetimeraw) + 100),2) & ".0Z" Response.write "" & vbCRLF Response.write "" & vbCRLF Response.write "" & vbCRLF if fs.FileExists(server.mappath("icon32/" & appicon32)) then Response.write "" & vbCRLF Response.write "" & vbCRLF if appftastring <> "" then Response.write "" & vbCRLF appftaarray = Split(appftastring,",") for each filetype in appftaarray docicon = basefilename & "." & filetype & ".ico" Response.write "" & vbCRLF Response.write "" & vbCRLF Response.write "" & vbCRLF Response.write "" & vbCRLF Response.write "" & vbCRLF next Response.write "" & vbCRLF Else Response.write "" & vbCRLF end if Response.write "" & vbCRLF Response.write "" & vbCRLF Response.write "" & vbCRLF Response.write "" & vbCRLF Response.write "" & vbCRLF Response.write "" & vbCRLF Response.write "" & vbCRLF end if end if Next Response.write "" & vbCRLF Response.write "" & vbCRLF Response.write "" & vbCRLF Response.write "" & vbCRLF Response.write "" & vbCRLF Response.write "" & vbCRLF function GetRDPvalue(f1,valuename) Err.Clear on error resume next Dim ts valuenamelen = Len(valuename) set ts = f1.OpenAsTextStream(1,-2) if Err.Number = 0 then Do While Not ts.AtEndOfStream Dim Line Line = ts.readline if (Lcase(Left(Line,valuenamelen)) = valuename) then theName = Right(Line,Len(Line)-valuenamelen) end if Loop theName = Replace(theName,"|","") GetRDPvalue = theName Else GetRDPvalue = "" end if on error goto 0 end function Function Root() DocPath = Request.ServerVariables("PATH_INFO") aPath = Split("/" & DocPath, "/") Root = Left(DocPath,Len(DocPath)-Len(aPath(UBound(aPath)))) End Function %>