'
'	Remote Shell.vbs
'	starts a remote shell with psexec on the focused computer (network plugin)
'	th. 3. 12. 2009
'
Dim PC, WshShell

PC = Salamander.SourcePanel.FocusedItem.Name
If Salamander.SourcePanel.Path = "net:\" And InStr(PC, " ") = 0 Then
    Set WshShell = CreateObject("WScript.Shell")
    WshShell.Run ("d:\tools\ps\psexec \\" & PC & " cmd")
End If