Subversion Repositories DevTools

Rev

Rev 3616 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 3616 Rev 3959
Line 35... Line 35...
35 
Dim scheduled_id
 35 
Dim scheduled_id
36 
'------------ Constants Declaration -----------
 36 
'------------ Constants Declaration -----------
37 
'------------ Variable Init -------------------
 37 
'------------ Variable Init -------------------
38 
Set objBtnControl = New ActionButtonControl
 38 
Set objBtnControl = New ActionButtonControl
39 
'----------------------------------------------
 39 
'----------------------------------------------
- 
 
 40 
 
- 
 
 41 
function testFromRegistry (strRegistryKey )
- 
 
 42 
    Dim WSHShell, value
- 
 
 43 
 
- 
 
 44 
    On Error Resume Next
- 
 
 45 
    Set WSHShell = CreateObject("WScript.Shell")
- 
 
 46 
    value = WSHShell.RegRead( strRegistryKey )
- 
 
 47 
 
- 
 
 48 
    testFromRegistry = NOT (err.number <> 0)
- 
 
 49 
 
- 
 
 50 
    set WSHShell = nothing
- 
 
 51 
end function
40 
%>
 52 
%>
41 
 
 53 
 
42 
<html>
 54 
<html>
43 
<head>
 55 
<head>
44 
 
 56 
 
Line 113... Line 125...
113 
            End IF
 125 
            End IF
114 
 
 126 
 
115 
            %>
 127 
            %>
116 
               <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col"><%=result%></td>
 128 
               <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col"><%=result%></td>
117 
            </tr>
 129 
            </tr>
- 
 
 130 
 
- 
 
 131 
            <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
- 
 
 132 
            <tr>
- 
 
 133 
            <%
- 
 
 134 
                Dim sKey1, sKey2, sValue1, sValue2, kFragment
- 
 
 135 
                kFragment = "rsa2@22:" & archive_server
- 
 
 136 
                sKey1 = "HKEY_USERS\S-1-5-20\Software\SimonTatham\PuTTY\SshHostKeys\" & kFragment
- 
 
 137 
                sKey2 = "HKEY_USERS\.DEFAULT\Software\SimonTatham\PuTTY\SshHostKeys\" & kFragment
- 
 
 138 
                sValue1 = testFromRegistry(sKey1)
- 
 
 139 
                sValue2 = testFromRegistry(sKey2)
- 
 
 140 
            %>
- 
 
 141 
               <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Plink Key [<%=sKey1%>]</td>
- 
 
 142 
               <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col"><%=sValue1%></td>
- 
 
 143 
            </tr>
- 
 
 144 
            <tr>
- 
 
 145 
               <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Plink Key [<%=sKey2%>]</td>
- 
 
 146 
               <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col"><%=sValue2%></td>
- 
 
 147 
            </tr>
118
148
119 
            <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 149 
            <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
120 
            <tr>
 150 
            <tr>
121 
               <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Package Archive Access - Remote cmd execution</td>
 151 
               <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Package Archive Access - Remote cmd execution</td>
122 
            <%
 152 
            <%