SMS 2003 Toolkit's Clispy - RCrumbaker's Web Remote Tool
To make clispy.exe from the SMS Toolkit 2 available via Ron's web page, copy clispy.exe to <your server>\remote$
Edit MachRest.asp, and add a button by your other buttons (about line 80-ish):
<INPUT id="Button727" style='WIDTH: 180px' type='button' value='SMS CliSpy' name='Btnl727'>
Then add the below (the Sub) probably near the bottom, just before the </script>, after all of the other Sub/end Sub routines
Sub Btnl727_OnClick
on error resume next
dim oWshShell
Set WShell = CreateObject("WScript.Shell")
Set fso = createobject("scripting.filesystemobject")
strExe = "\\" & ServerName & "\Remote$\CliSpy.exe"
If NOT fso.FileExists(strExe) Then
msgbox "Could not find Clispy.exe to run, Sorry.",,"CliSpy"
Else
document.parentwindow.clipboardData.SetData "text", trim(document.frmMain.txtValue.value)
msgbox "Remember to hit Ctrl + C to connect to the remote computer." &_
vbcrlf & "Otherwise you are simply looking at your own computer." &_
vbcrlf &_
vbcrlf & "For your convenience, the computer name of-->" & trim(document.frmMain.txtValue.value) &_
vbcrlf & "has been copied to the clipboard, so you can just hit" &_
vbcrlf & "Ctrl C, then Ctrl V, then enter to connect.",,"CliSpy"
WShell.Run Chr(34) & strExe & Chr(34),1,False
End If
End Sub