[Kazun]

Код:

sub start()
        Set oShell = CreateObject("WScript.Shell")
        oShell.SendKeys "% N"
end sub