' 进入程序是显示欢迎信息
WScript.Echo "欢迎使用本程序。"
' 得到参数对象
Set args = WScript.Arguments
' 如果参数个数是一个，正常运行，否则提示错误信息并退出。
If args.Count = 1 Then
  ' 得到第一个参数
  name = WScript.Arguments(0)
  ' 在标准输出中，即控制台的 通道1 输出一行文字
  WScript.StdOut.WriteLine name & "，你好。"
Else
  ' 在标准错误中，即控制台的 通道2 输出一行文字
  WScript.StdErr.WriteLine "参数个数不为1，请重试。"
  ' 退出程序
  WScript.Quit
End If
复制代码

cscript //nologo SayHello.vbs "%username%"
复制代码

cscript //nologo SayHello.vbs "%username%" 1>nul
复制代码

cscript //nologo SayHello.vbs "%username%" "第二个参数"
复制代码

cscript //nologo SayHello.vbs "%username%" "第二个参数" 2>nul
复制代码

@echo off
echo *** 开始： %date% %time% ***
set /p name=请输入你的名字：
echo %name%，你好！
set /p=按回车结束程序...
echo *** 结束： %date% %time% ***
复制代码

WScript.Echo "*** 开始：" & Now & " ***"
WScript.StdOut.Write "请输入你的名字："
name = WScript.StdIn.ReadLine()
WScript.StdOut.WriteLine name & "，你好！"
WScript.StdOut.Write "按回车结束程序..."
WScript.StdIn.ReadLine
WScript.Echo "*** 结束：" & Now & " ***"
复制代码

@echo off
cscript //nologo SayHello.vbs "%username%" 1>temp.txt 2>nul
echo VBS运行结果是
echo.
echo ------- 全  部 --------
type temp.txt
echo -----------------------
echo.
echo ------- 第一行 --------
set /p line1=<temp.txt
echo %line1%
echo -----------------------
echo.
echo ------- 连  接 --------
setlocal enabledelayedexpansion
set lines=
for /f "delims=" %%a in (temp.txt) do (set lines=!lines!%%a )
echo !lines!
endlocal
echo -----------------------
del temp.txt
pause>nul
复制代码

@echo off
setlocal enabledelayedexpansion
set lines=
for /f "delims=" %%a in ('cscript //nologo SayHello.vbs "%username%" 2^>nul') do (
  set lines=!lines!%%a 
)
echo 结果是
echo !lines!
pause>nul
复制代码

@echo off
for /f "delims=" %%a in ('cscript //nologo SayHello.vbs "%username%" 2^>nul') do (set "lines=%%a")
echo 结果是
echo %lines%
pause>nul
复制代码

@echo off
call :GetScriptExecuteResult 0 result SayHello.vbs "%username%"
echo 脚本执行的输出是：%result%
pause>nul
goto :EOF

:: 执行脚本并将最后一行输出信息存入变量
:: 参数依次为
::     第一个：0=所有输出，1=仅获取通道1, 2=仅获取通道2
::     第二个：要存入的变量名
::     第三个：要执行的脚本
::     后面若干个：脚本需要传入的参数
:GetScriptExecuteResult
IF [%1]==[] GOTO :GetScriptExecuteResult_End
SET "___PT="
IF [%1]==[0] SET "___PT= "
IF [%1]==[1] SET "___PT= 2^>nul "
IF [%1]==[2] SET "___PT= 1^>nul "
IF "%___PT%"=="" GOTO :GetScriptExecuteResult_End
IF [%2]==[] (GOTO :GetScriptExecuteResult_End) ELSE (SET "__VAR=%2")
IF [%3]==[] (GOTO :GetScriptExecuteResult_End) ELSE (SET "___FN=%3")
SET "__CMD=CSCRIPT.EXE //NOLOGO "%___FN%""
SHIFT
SHIFT
:GetScriptExecuteResult_Block1
SHIFT
IF NOT [%1]==[] (
  SET "__CMD=%__CMD% %1"
  GOTO :GetScriptExecuteResult_Block1
)
FOR /F "DELIMS=" %%I IN ('%__CMD%%___PT%') DO (SET "%__VAR%=%%I")
:GetScriptExecuteResult_End
复制代码

Set args = WScript.Arguments
If args.Count < 3 Then WScript.Quit
o = Timer
t = args(0)
s = args(1)
w = args(2)
l = Len(w) + 1
w = w & String(Len(w), " ")
i = 0
While CInt(Timer) < o + t
  i = i + 1
  WScript.Sleep 333
  temp = s & Left(w, i Mod l) & Right(w, l - (i Mod l)) & Chr(13)
  WScript.StdOut.Write temp
WEnd
WScript.StdOut.WriteLine vbCrLf & "完成"
复制代码

cscript -nologo Loading.vbs 10 "正在下载，请稍候" "......"
复制代码

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"
复制代码