Initial commit
This commit is contained in:
kimmknight
parent
71d28a05c6
commit
074806cf7d
|
|
@ -0,0 +1,91 @@
|
|||
<html>
|
||||
<head>
|
||||
<title>
|
||||
RAWeb - Remote Applications
|
||||
</title>
|
||||
<style type="text/css">
|
||||
a:link {color:#444444;text-decoration:none;}
|
||||
a:visited {color:#444444;text-decoration:none;}
|
||||
a:hover{color:#000000;text-decoration:underline;}
|
||||
a:active {color:#000000;text-decoration:underline;}
|
||||
#apptile
|
||||
{
|
||||
width:150px;
|
||||
height:135px;
|
||||
text-align:center;
|
||||
vertical-align:bottom;
|
||||
border-style:solid;
|
||||
border-width:0px;
|
||||
float:left;
|
||||
font-size:14px;
|
||||
font-weight:bold;
|
||||
}
|
||||
h1 {
|
||||
font-family:Arial, Helvetica, sans-serif;
|
||||
font-size: 30px;
|
||||
font-style: italic;
|
||||
color:rgb(0,0,0)
|
||||
}
|
||||
body
|
||||
{
|
||||
font-family:Arial,sans-serif;
|
||||
}
|
||||
</style>
|
||||
<link rel="shortcut icon" href="favicon.ico">
|
||||
</head>
|
||||
<body>
|
||||
<div style='text-align:left;'><h1>Remote<font style='color:rgb(100,100,100)'>Apps</font></h1></div><br>
|
||||
<%
|
||||
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 "<div id=apptile>"
|
||||
Response.write "<a href=""" & "rdp/" & f1.name & """><img border=0 height=64 width=64 src=""" & pngpath & """><br>" & appname & "</a>"
|
||||
Response.write "</div>"
|
||||
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
|
||||
|
||||
%>
|
||||
</body>
|
||||
</html>
|
||||
Binary file not shown.
|
After Width: | Height: | Size: 1.1 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 25 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 1.9 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 6.9 KiB |
|
|
@ -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
|
||||
Binary file not shown.
|
After Width: | Height: | Size: 9.6 KiB |
|
|
@ -0,0 +1,8 @@
|
|||
<?xml version="1.0" encoding="UTF-8"?>
|
||||
<configuration>
|
||||
<system.webServer>
|
||||
<staticContent>
|
||||
<mimeMap fileExtension=".rdp" mimeType="application/rdp" />
|
||||
</staticContent>
|
||||
</system.webServer>
|
||||
</configuration>
|
||||
|
|
@ -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 "<ResourceCollection PubDate=""" & datetime & """ SchemaVersion=""1.1"" xmlns=""http://schemas.microsoft.com/ts/2007/05/tswf"">" & vbCRLF
|
||||
Response.write "<Publisher LastUpdated=""" & datetime & """ Name=""" & ServerName & """ ID=""" & ServerName & """ Description="""">" & vbCRLF
|
||||
Response.write "<Resources>" & 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 "<Resource ID=""" & appresourceid & """ Alias=""" & appalias & """ Title=""" & apptitle & """ LastUpdated=""" & filedatetime & """ Type=""" & rdptype & """>" & vbCRLF
|
||||
Response.write "<Icons>" & vbCRLF
|
||||
Response.write "<IconRaw FileType=""Ico"" FileURL=""" & Root & "icon/" & appicon & """ />" & vbCRLF
|
||||
if fs.FileExists(server.mappath("icon32/" & appicon32)) then Response.write "<Icon32 Dimensions=""32x32"" FileType=""Png"" FileURL=""" & Root & "icon32/" & appicon32 & """ />" & vbCRLF
|
||||
Response.write "</Icons>" & vbCRLF
|
||||
if appftastring <> "" then
|
||||
Response.write "<FileExtensions>" & vbCRLF
|
||||
appftaarray = Split(appftastring,",")
|
||||
for each filetype in appftaarray
|
||||
docicon = basefilename & "." & filetype & ".ico"
|
||||
Response.write "<FileExtension Name=""" & filetype & """ PrimaryHandler=""True"">" & vbCRLF
|
||||
Response.write "<FileAssociationIcons>" & vbCRLF
|
||||
Response.write "<IconRaw FileType=""Ico"" FileURL=""" & Root & "icon/" & docicon & """ />" & vbCRLF
|
||||
Response.write "</FileAssociationIcons>" & vbCRLF
|
||||
Response.write "</FileExtension>" & vbCRLF
|
||||
next
|
||||
Response.write "</FileExtensions>" & vbCRLF
|
||||
Else
|
||||
Response.write "<FileExtensions />" & vbCRLF
|
||||
end if
|
||||
Response.write "<HostingTerminalServers>" & vbCRLF
|
||||
Response.write "<HostingTerminalServer>" & vbCRLF
|
||||
Response.write "<ResourceFile FileExtension="".rdp"" URL=""" & Root & "rdp/" & apprdpfile & """ />" & vbCRLF
|
||||
Response.write "<TerminalServerRef Ref=""" & ServerName & """ />" & vbCRLF
|
||||
Response.write "</HostingTerminalServer>" & vbCRLF
|
||||
Response.write "</HostingTerminalServers>" & vbCRLF
|
||||
Response.write "</Resource>" & vbCRLF
|
||||
end if
|
||||
end if
|
||||
Next
|
||||
|
||||
Response.write "</Resources>" & vbCRLF
|
||||
Response.write "<TerminalServers>" & vbCRLF
|
||||
Response.write "<TerminalServer ID=""" & ServerName & """ Name=""" & ServerName & """ LastUpdated=""" & datetime & """ />" & vbCRLF
|
||||
Response.write "</TerminalServers>" & vbCRLF
|
||||
Response.write "</Publisher>" & vbCRLF
|
||||
Response.write "</ResourceCollection>" & 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
|
||||
|
||||
%>
|
||||
Loading…
Reference in New Issue