diff --git a/wwwroot/Default.asp b/wwwroot/Default.asp new file mode 100644 index 0000000..8cae39f --- /dev/null +++ b/wwwroot/Default.asp @@ -0,0 +1,91 @@ + + + +RAWeb - Remote Applications + + + + + +

RemoteApps


+<% +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 + appname = GetRDPvalue(f1,"remoteapplicationname:s:") + basefilename = Left(f1.name,Len(f1.name) - 4) + + if appname = "" then appname = basefilename + + pngname = basefilename & ".png" + set pngfs = CreateObject("Scripting.FileSystemObject") + If pngfs.FileExists(server.mappath("png\" & pngname)) Then + pngpath = "png/" & pngname + Else + pngpath = "rdpicon.png" + End If + Response.write "
" + Response.write "
" & appname & "" + Response.write "
" + end if + end if +Next + +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 + +%> + + diff --git a/wwwroot/favicon.ico b/wwwroot/favicon.ico new file mode 100644 index 0000000..e989f75 Binary files /dev/null and b/wwwroot/favicon.ico differ diff --git a/wwwroot/icon/testapp.ico b/wwwroot/icon/testapp.ico new file mode 100644 index 0000000..379ecea Binary files /dev/null and b/wwwroot/icon/testapp.ico differ diff --git a/wwwroot/icon32/testapp.png b/wwwroot/icon32/testapp.png new file mode 100644 index 0000000..d5930a8 Binary files /dev/null and b/wwwroot/icon32/testapp.png differ diff --git a/wwwroot/png/testapp.png b/wwwroot/png/testapp.png new file mode 100644 index 0000000..80064d5 Binary files /dev/null and b/wwwroot/png/testapp.png differ diff --git a/wwwroot/rdp/testapp.rdp b/wwwroot/rdp/testapp.rdp new file mode 100644 index 0000000..e1013c7 --- /dev/null +++ b/wwwroot/rdp/testapp.rdp @@ -0,0 +1,50 @@ +redirectclipboard:i:1 +redirectposdevices:i:0 +redirectprinters:i:1 +redirectcomports:i:1 +redirectsmartcards:i:1 +devicestoredirect:s:* +drivestoredirect:s:* +redirectdrives:i:1 +session bpp:i:32 +prompt for credentials on client:i:1 +span monitors:i:1 +use multimon:i:1 +remoteapplicationmode:i:1 +server port:i:3389 +allow font smoothing:i:1 +promptcredentialonce:i:0 +authentication level:i:2 +full address:s:win7testbox +remoteapplicationprogram:s:||testapp +remoteapplicationname:s:Test Application +remoteapplicationcmdline:s: +alternate full address:s:win7testbox +disableremoteappcapscheck:i:1 +alternate shell:s:rdpinit.exe +screen mode id:i:2 +winposstr:s:0,3,0,0,800,600 +compression:i:1 +keyboardhook:i:2 +audiocapturemode:i:0 +videoplaybackmode:i:1 +connection type:i:2 +disable wallpaper:i:1 +allow desktop composition:i:1 +disable full window drag:i:1 +disable menu anims:i:1 +disable themes:i:0 +disable cursor setting:i:0 +bitmapcachepersistenable:i:1 +audiomode:i:0 +redirectdirectx:i:1 +autoreconnection enabled:i:1 +prompt for credentials:i:0 +negotiate security layer:i:1 +remoteapplicationicon:s: +shell working directory:s: +gatewayhostname:s: +gatewayusagemethod:i:4 +gatewaycredentialssource:i:4 +gatewayprofileusagemethod:i:0 +use redirection server name:i:0 diff --git a/wwwroot/rdpicon.png b/wwwroot/rdpicon.png new file mode 100644 index 0000000..a397547 Binary files /dev/null and b/wwwroot/rdpicon.png differ diff --git a/wwwroot/web.config b/wwwroot/web.config new file mode 100644 index 0000000..970ace5 --- /dev/null +++ b/wwwroot/web.config @@ -0,0 +1,8 @@ + + + + + + + + diff --git a/wwwroot/webfeed.asp b/wwwroot/webfeed.asp new file mode 100644 index 0000000..9999bee --- /dev/null +++ b/wwwroot/webfeed.asp @@ -0,0 +1,109 @@ +<% +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 + +%>