johngh

Set objShell = CreateObject("WScript.Shell")

dim hosts
hosts = "host1 host2 host3 host4 host5 host6"

dim host
for each host in split(hosts)
    objShell.Exec "C:\Program Files\PuTTY\PUTTY.EXE -load " + host
next

johngh

Set objShell = CreateObject("WScript.Shell")

dim user
user = "john"

dim hosts
hosts = "host1 host2 host3 host4 host5 host6"

dim host
for each host in split(hosts)

johngh

// ==UserScript==
// @name       SSH Links list
// @namespace  https://github.com/johngh
// @version    0.1
// @description  Create SSH URIs to hostnames matched in web page
// @match      http://jira.ourdomain.com/browse/*
// @copyright  2012+, John Harrison
// ==/UserScript==

var ignore_hosts = ["ignore1.ourdomain.com", "ignore2.ourdomain.com", "ignore3.ourdomain.com"];

johngh

// ==UserScript==
// @name       Context SSH Links
// @namespace  https://gist.github.com/johngh
// @version    0.1
// @description  Create SSH/RDP URIs in web pages
// @match      http://www.ourdomain.com/*
// @copyright  2012+, John Harrison
// ==/UserScript==

var my_login = "johngh";

johngh

;; Start SSH session using the currently selected text as the target hostname.
$#S::

    ; Putty copies selected text to the clipboard so you don't need to copy it
    ; doing Ctrl-Insert throws away what you already have in the Clipboard.
    ; Can't use Ctrl-C in putty, because it sends that to your session as ^C
    WinGet, Active_ID, ID, A
    WinGet, Active_Process, ProcessName, ahk_id %Active_ID%
    if ( Active_Process ="putty.exe" )
    {

johngh

Sub MoveMsgToFolder()

    'Outlook VB Macro to move currently open mail item to a target folder

    On Error Resume Next

    Dim ns As Outlook.NameSpace
    Dim moveToFolder As Outlook.MAPIFolder

    Dim myItem As Outlook.MailItem

johngh

!j::
    WinGet, Active_ID, ID, A
    WinGet, Active_Process, ProcessName, ahk_id %Active_ID%
    if ( Active_Process ="OUTLOOK.EXE" )
    {
        ; Match strings anywhere in the window title
        SetTitleMatchMode, 2

        numericPrefix = 1
        ctrlXPrefix = 0

johngh

#!/usr/bin/perl
#
#
#
use warnings;
use strict;
use HTML::TreeBuilder;

my $tree = HTML::TreeBuilder->new_from_file(shift);

johngh

$#N::

    ;; insert {noformat} tags
    cb_tmp := SelectedViaClipboard()
    StringReplace cb_tmp, cb_tmp, `n,, All
    if ( cb_tmp ) {
        SendInput {{}noformat{}}`n%cb_tmp%{{}noformat{}}`n
    }
    else
    {

johngh

!
! For all [xa]term,put this in your
! ~/.Xdefaults or ~/.Xresources:
!

! Defaults for all xterm clients
XTerm*background:   black
XTerm*foreground:   gray
! XTerm*highlightColor:  white
! XTerm*highlightTextColor: black