blog/new-post.vbs

   1 Dim Input\r
   2 Input = InputBox("Set English short title for argument")\r
   3 Dim objShell\r
   4 Set objShell = CreateObject("WScript.Shell")\r
   5 Dim FlSysObj\r
   6 Set FlSysObj = createObject("Scripting.FileSystemObject")\r
   7 objShell.Run "cmd /c " & "bash .\new-post-cli.sh " & Input ,0,false\r