[原创] 脚本学习及应用分享 — 批处理和脚本的交互

Set ws = WScript.CreateObject("WScript.Shell")
Set ps = ws.Exec("C:\WINDOWS\notepad.exe")
WScript.Sleep 1000
WScript.Echo "已启动记事本，进程ID为 " & ps.ProcessID
' 暂停 5秒，这段时间你可以试试把其他窗口，比如浏览器切换到最前
WScript.Sleep 5000
ws.AppActivate ps.ProcessID
复制代码

@echo %username%
复制代码

Dim sUser, ws, bat, batout
' 创建对象
Set ws = WScript.CreateObject("WScript.Shell")
' 执行批处理文件
Set bat = ws.Exec("EXP02U.BAT")
' 获取标准输出
Set batout = bat.StdOut
' 从输出中读取全部内容
sUser = batout.ReadAll()
' 显示结果
WScript.Echo "用户名是：" & sUser
复制代码

@set|find "PROCESSOR"
复制代码

@echo %username%
@set|find "PROCESSOR"
复制代码

Set ws = WScript.CreateObject("WScript.Shell")
Set bat = ws.Exec("EXP02UP.BAT")
Set batout = bat.StdOut
sUser = batout.ReadLine()
sTemp = batout.ReadAll()
WScript.Echo "登录人：" & vbCrLf & sUser
WScript.Echo "处理器信息：" & vbCrLf & sTemp
复制代码

@echo off
echo %username%
set|find "PROCESSOR"
pause>nul
复制代码

Set ws = WScript.CreateObject("WScript.Shell")
Set bat = ws.Exec("EXP02UP.BAT")
' 获取标准输入流
Set batin = bat.StdIn
' 随便输入一个字符
batin.Write "Spring Brother"
Set batout = bat.StdOut
sUser = batout.ReadLine()
sTemp = batout.ReadAll()
WScript.Echo "登录人：" & vbCrLf & sUser
WScript.Echo "处理器信息：" & vbCrLf & sTemp
复制代码

dir /s C:\*.sb
复制代码

echo %time%
复制代码

Set ws = WScript.CreateObject("WScript.Shell")
Set bat = ws.Exec("EXP02UP.BAT")
' 等他一会儿，看起来已经 “没有意识” 了
WScript.Sleep 333
' 这样痛苦的活着，不如给他解脱吧
bat.Terminate
Set batout = bat.StdOut
sUser = batout.ReadLine()
sTemp = batout.ReadAll()
WScript.Echo "登录人：" & vbCrLf & sUser
WScript.Echo "处理器信息：" & vbCrLf & sTemp
复制代码

@echo off
:Spring
echo What can I do for you?
echo 1.用户名 2.处理器信息 3.日期时间 0.退出
set "Brother="
set /p Brother=
if [%Brother%]==[0] GOTO :EOF
if [%Brother%]==[1] GOTO :U
if [%Brother%]==[2] GOTO :P
if [%Brother%]==[3] GOTO :T
echo *** ERROR ***
GOTO :Spring

:U
echo %username%
endlocal
GOTO :Spring

:P
set|find "PROCESSOR"
GOTO :Spring

:T
echo %date% %time%
GOTO :Spring
复制代码

Set ws = WScript.CreateObject("WScript.Shell")
Set bat = ws.Exec("EXP02UPT.BAT")
Set batin = bat.StdIn
Set batout = bat.StdOut
batin.Write "3" & vbCr
WScript.Sleep 333
batin.Write "1" & vbCr
WScript.Sleep 333
batin.Write "2" & vbCr
WScript.Sleep 333
batin.Write "0" & vbCr
WScript.Sleep 333
sAll = batout.ReadAll()
WScript.Echo sAll
复制代码

@echo off
:Spring
echo What can I do for you?
echo 1.用户名 2.处理器信息 3.日期时间 0.退出
set "Brother="
set /p Brother=
if [%Brother%]==[0] GOTO :EOF
if [%Brother%]==[1] GOTO :U
if [%Brother%]==[2] GOTO :P
if [%Brother%]==[3] GOTO :T
echo *** ERROR ***
GOTO :Spring

:U
>&2 (echo %username%)
endlocal
GOTO :Spring

:P
>&2 (set|find "PROCESSOR")
GOTO :Spring

:T
>&2 (echo %date% %time%)
GOTO :Spring
复制代码

Set ws = WScript.CreateObject("WScript.Shell")
Set bat = ws.Exec("EXP02UPT.BAT")
Set batin = bat.StdIn
Set baterr = bat.StdErr
batin.Write "3" & vbCr
WScript.Sleep 333
batin.Write "1" & vbCr
WScript.Sleep 333
batin.Write "2" & vbCr
WScript.Sleep 333
bat.Terminate
sTime = baterr.ReadLine()
sUser = baterr.ReadLine()
sProccesor = baterr.ReadAll()
WScript.Echo "时间：" & sTime
WScript.Echo "用户：" & sUser
WScript.Echo "处理器：" & vbCrLf & sProccesor
复制代码

Set WshShell = WScript.CreateObject("WScript.Shell")
Set WshEnv = WshShell.Environment("PROCESS")
sUser = WshEnv("username")
MsgBox sUser
复制代码

@echo off
set cgcym=春 哥 纯 爷 们
for %%a in (%cgcym%) do call echo %%a%%%%a%%
pause>nul
复制代码

Set ws = WScript.CreateObject("WScript.Shell")
Set envp = ws.Environment("PROCESS")
envp("春") = Chr(8) & "铁"
envp("哥") = Chr(8) & "血"
envp("纯") = Chr(8) & "真"
envp("爷") = Chr(8) & "汉"
envp("们") = Chr(8) & "子"
ws.Run "cgcym.bat"
复制代码