vbs版cmd

zqz0012005

1. 'By zqz0012005@www.bathome.cn
   
2. 'Version: 0.3     2008-06-18
   
3. 
   
4. On Error Resume Next
   
5. 
   
6. host = WScript.FullName
   
7. f0 = WScript.ScriptFullName
   
8. dp0 = Left( f0, InstrRev(f0,"") )
   
9. 
   
10. if LCase( right(host, len(host)-InStrRev(host,"")) ) = LCase("wscript.exe") then
    
11.     CreateObject("WScript.Shell").run "cmd /d /ccolor f9&title vbs-cmd" &_
    
12.         "&cscript //logo """ & f0 & chr(34)
    
13.     WScript.Quit
    
14. end if
    
15. 
    
16. set ws = CreateObject("WScript.Shell")
    
17. set wn = CreateObject("WScript.Network")
    
18. set fso = CreateObject("Scripting.FileSystemObject")
    
19. set dict = CreateObject("Scripting.Dictionary")
    
20. set sh = CreateObject("Shell.Application")
    
21. set wmi = GetObject("winmgmts:{(debug, security, shutdown)}!\\.\root\cimv2")
    
22. 
    
23. 'set colps = wmi.instancesOf("win32_process")
    
24. 'set colps = GetObject("winmgmts:\\.\root\cimv2:win32_process").instances_
    
25. 
    
26. set stdin = WScript.stdin
    
27. set stdout = WScript.stdout
    
28. stdout.writeline "可以直接运行vbs语句，要运行cmd命令，请在命令前加'cmd '（cmd空格）"
    
29. 
    
30. do
    
31.     stdout.writeBlankLines(1)
    
32.     stdout.write ws.CurrentDirectory & vbCrLf & "# "
    
33.     s=Trim(stdin.readLine)
    
34.     Select Case 0
    
35.         Case StrComp(s,"exit",1) wsh.quit
    
36.         Case StrComp(left(s,2),"cd",1)
    
37.             if mid(s,3)="" then
    
38.                 wsh.echo ws.CurrentDirectory
    
39.             elseif mid(s,3,1)=" " then
    
40.                 ws.CurrentDirectory = LTrim(mid(s,3))
    
41.             else
    
42.                 execStatementBlock
    
43.             end if
    
44.         Case StrComp(left(s,4),"cmd ",1)
    
45.             set oexec=ws.exec( "cmd /d /q /c" & LTrim(mid(s,4)) & "&exit" )
    
46.             'oexec.stdin.writeLine vbCrLf & "exit"
    
47.             stdout.write oexec.stdout.readall & oexec.stderr.readall
    
48.             set oexec=nothing
    
49.         Case StrComp(left(s,5),"wmic ",1)
    
50.             set oexec=ws.exec("cmd /d /q /c echo exit|" & s)
    
51.             'oexec.stdin.writeLine vbCrLf & "exit"
    
52.             stdout.write oexec.stdout.readall & oexec.stderr.readall
    
53.             set oexec=nothing
    
54.         Case StrComp(s,"help",1) call help()
    
55.         Case StrComp(s,"") 'do nothing
    
56.         Case Else
    
57.             LastCode = execStatementBlock()
    
58.         'Case Else execute s
    
59.         'Case Else wsh.echo "[" & s & "]"
    
60.     End Select
    
61.     showErrMsg
    
62. loop
    
63. 
    
64. function execStatementBlock()
    
65. dim i, t
    
66. ReDim a(0)
    
67. a(0) = s
    
68. stdout.write "More? "
    
69. t = Trim(stdin.readLine)
    
70. do until t=""
    
71.         i = i + 1
    
72.         ReDim Preserve a(i)
    
73.         a(i) = t
    
74.         stdout.write "More? "
    
75.         t = Trim(stdin.readLine)
    
76. loop
    
77. execute Join(a, ":")
    
78. execStatementBlock = Join(a, vbCrLf)
    
79. end function
    
80. 
    
81. sub help()
    
82. stdout.writeline vbCrLf & "可以直接运行vbs语句，在More? 提示符后直接回车以完成输入。"
    
83. stdout.writeline "要运行cmd命令，请在命令前加'cmd '（cmd空格）。wmic类似。" & vbCrLf
    
84. stdout.writeLine "显示环境变量：printenv"
    
85. stdout.writeLine "f0 = " & f0
    
86. stdout.writeLine "dp0 = " & dp0
    
87. stdout.writeLine "常用对象："
    
88. stdout.writeLine "ws = CreateObject(""WScript.Shell"")"
    
89. stdout.writeLine "wn = CreateObject(""WScript.Network"")"
    
90. stdout.writeLine "fso = CreateObject(""Scripting.FileSystemObject"")"
    
91. stdout.writeLine "dict = CreateObject(""Scripting.Dictionary"")"
    
92. stdout.writeLine "sh = CreateObject(""Shell.Application"")"
    
93. stdout.writeLine "wmi = GetObject(""winmgmts:{(debug, security, shutdown)}!\\.\root\cimv2"")"
    
94. end sub
    
95. 
    
96. sub showErrMsg()
    
97. if err.number<>0 then
    
98.     wsh.echo err.source & "[errno=" & err.number & "]: " & err.description
    
99.     err.clear
    
100. end if
     
101. end sub
     
102. 
     
103. sub calc(expression)
     
104. wsh.echo eval(expression)
     
105. end sub
     
106. 
     
107. sub ps()
     
108. dim colProc, proc
     
109. set colProc = wmi.ExecQuery("select * from Win32_Process")
     
110. for each proc in colProc
     
111.     wsh.echo proc.name
     
112.     wsh.echo proc.ExecutablePath
     
113.     wsh.echo proc.CommandLine
     
114.     wsh.echo ""
     
115. next
     
116. end sub
     
117. 
     
118. sub printenv()
     
119. dim envType, envset, env, i
     
120. envType = Array("system","process","user","Volatile")
     
121. for i=0 to UBound(envType)
     
122.   wsh.echo vbCrLf & envType(i) & "类型的环境变量："
     
123.   set envset = ws.Environment(envType(i))
     
124.   for each env in envset
     
125.     wsh.echo env
     
126.   next
     
127. next
     
128. end sub
     
129. 
     
130. sub env()
     
131.     printenv()
     
132. end sub
     
133. 
     
134. sub dir()
     
135. end sub
     
136. 
     
137. 'To be continued to complete and improve

复制代码

pdanniel66

谢谢版主，可以说明一下用途与一般cmd之差异?或给使用范例 VBS不熟?
# help

可以直接运行vbs语句，在More? 提示符后直接回车以完成输入。
要运行cmd命令，请在命令前加'cmd '（cmd空格）。wmic类似。

显示环境变量：printenv
f0 = D:\scripts\TEST\0000\20100621A\vbs-cmd\vbs-cmd.vbs
dp0 = D:\scripts\TEST\0000\20100621A\vbs-cmd\
常用对象：
ws = CreateObject("WScript.Shell")
wn = CreateObject("WScript.Network")
fso = CreateObject("Scripting.FileSystemObject")
dict = CreateObject("Scripting.Dictionary")
sh = CreateObject("Shell.Application")
wmi = GetObject("winmgmts:{(debug, security, shutdown)}!\\.\root\cimv2")

Spring

的确比较难搞，我花了很多时间才搞定运行不带参数的 comp 之类的命令，但是对于不带参数的 wmic 之类的命令就没办法了，不知道有没有什么好的办法？

523066680

有想过 cmd版vbs(就cscript模式吧)
可以允许 将vbs的函数像命令一样输入。

zqz0012005

就是这个功能啊，核心都是vbs+cscript.exe

cmd命令是次要功能，因为有些命令无法获取标准流 或 用vbs函数代替进行模拟，
而且cmd命令失去交互能力了，被exec所劫持。