|
Set WshShell = CreateObject( "WScript.Shell" )
strCommand1 = " mode con: cols=120 "
strCommand2 = " set PATH=%windir%\Microsoft.NET\Framework\v2.0.50727;%PATH% "
strCommand3 = " prompt JS.net$G"
strCommand = "cmd.exe /k" & strCommand1
strCommand = strCommand & "&" & strCommand2
strCommand = strCommand & "&" & strCommand3
Call WshShell.Run( strCommand, 3 )
| |