01.
02.
03.
04.Function Crun( )
05.
06. if ScriptType <> 1 then
07. Exit Function
08. end if
09.
10. Dim str
11.
12. str = WScript.FullName
13. str = Right( str, 11 )
14. str = Ucase( str )
15. if str <> "CSCRIPT.EXE" then
16. str = WScript.ScriptFullName
17. GetWshShell
18. strParam = " "
19. For I = 0 to Wscript.Arguments.Count - 1
20. if instr(Wscript.Arguments(I), " ") < 1 then
21. strParam = strParam & Wscript.Arguments(I) & " "
22. else
23. strParam = strParam & Dd(Wscript.Arguments(I)) & " "
24. end if
25. Next
26. Call WshShell.Run( "cmd.exe /c cscript.exe " & Dd(str) & strParam & " & pause", 3 )
27. WScript.Quit
28. end if
29.
30.End Function
31.Function Crun2( nCol )
32.
33. if ScriptType <> 1 then
34. Exit Function
35. end if
36.
37. Dim str
38.
39. str = WScript.FullName
40. str = Right( str, 11 )
41. str = Ucase( str )
42. if str <> "CSCRIPT.EXE" then
43. str = WScript.ScriptFullName
44. GetWshShell
45. strParam = " "
46. For I = 0 to Wscript.Arguments.Count - 1
47. if instr(Wscript.Arguments(I), " ") < 1 then
48. strParam = strParam & Wscript.Arguments(I) & " "
49. else
50. strParam = strParam & Dd(Wscript.Arguments(I)) & " "
51. end if
52. Next
53. Call WshShell.Run( "cmd.exe /c mode con: cols=" _
54. & nCol & " & cscript.exe " & Dd(str) & strParam & " & pause", 3 )
55. WScript.Quit
56. end if
57.
58.End function
