set Spring = WScript.CreateObject("WScript.Shell")
复制代码

a = inputbox("输入一个数字","输入")
' 如果不是数字就退出
if not isNumeric(a) then
  msgbox "你输入的不是数字，程序已退出！", vbCritical, "错误"
  wscript.quit
end if
' 如果是数字再进行下面的判断
if a > 0 then
  msgbox "大于零的"
elseif a = 0 then                   '这个 elseif 可以进行很多次的哦
  wscript.echo "你输入的是 0 "
else
  msgbox "剩下的只可能是小于零的数了。", vbInfomation
end if
复制代码

for i = 1 to 8 step 2
msgbox i
next
复制代码

@echo off
set "num1=%1"
set "num2=%2"
if not defined num2 (
  echo 你输入的参数少于两个！
  goto EOF 2>nul
)
set "host=%comspec%"
set "self=%0"
echo 运行我的程序是 %host%
echo 脚本的全路径是 %self%
echo 第一、二个参数分别是 %num1% 和 %num2%
for /l %%i in (%num1%, 1, %num2%) do (
  ping 127.1 -n 2 >nul
  echo %%i
)
pause
复制代码

' wscript 的属性 wscript.arguments 仍然是一个对象，因此要用 set
set args = wscript.arguments
' wscript.arguments 的 count（个数）属性是一个数字，不是对象
count = args.count
' if ... then ... end if ，不要忘了 then 和 end if ！
if count < 2 then
  wscript.echo "你输入的参数少于两个！"
  wscript.quit
end if
' 第一个和第二个参数，是从 0 开始的，对应 0 和 1
num1 = args(0)
num2 = args(1)
host = wscript.fullname
self = wscript.scriptfullname
wscript.echo "运行我的程序是 " & host
wscript.echo "脚本的全路径是 " & self
wscript.echo "第一、二个参数分别是 " & num1 & " 和 " & num2
' for ... next ，不要忘了写 next ！
for i = num1 to num2 step 1
  wscript.echo i
  wscript.sleep 1000 '单位是毫秒， 1秒 = 1000毫秒
next
msgbox "按“确定”退出。。。"
复制代码

set Spring = WScript.CreateObject("WScript.Shell")
Spring.run "notepad", 1, false
msgbox "在我之前的是启动记事本的代码。", vbSystemModal
复制代码

set Spring = WScript.CreateObject("WScript.Shell")
Spring.run "notepad", 1, true
msgbox "在我之前的是启动记事本的代码。", vbSystemModal
复制代码

set Spring = WScript.CreateObject("WScript.Shell")
Spring.run "notepad", 0, true
msgbox "在我之前的是启动记事本的代码。", vbSystemModal
复制代码

echo ======== 我的电脑相关信息 ========= > computer.txt
echo 用户名：%username% >> computer.txt
echo 此用户名的相关信息：>> computer.txt
net user %username% >> computer.txt
echo ----------------------------------- >> computer.txt
echo 当前所有进程名字： >> computer.txt
for /f "skip=3" %%i in ('tasklist') do (echo %%i >> computer.txt)
echo ----------------------------------- >> computer.txt
echo 软硬件详细资料：>> computer.txt
systeminfo >> computer.txt
echo ===================================>> computer.txt
复制代码

set Spring = WScript.CreateObject("WScript.Shell")
Spring.run "cmd /c echo ======== 我的电脑相关信息 ========= > computer.txt", 0, true
Spring.run "cmd /c echo 用户名：%username% >> computer.txt", 0, true
Spring.run "cmd /c echo 此用户名的相关信息：>> computer.txt", 0, true
Spring.run "cmd /c net user %username% >> computer.txt", 0, true
Spring.run "cmd /c echo ----------------------------------- >> computer.txt", 0, true
Spring.run "cmd /c echo 当前所有进程名字： >> computer.txt", 0, true
Spring.run "cmd /c for /f ""skip=3"" %i in ('tasklist') do (echo %i >> computer.txt)", 0, true
Spring.run "cmd /c echo ----------------------------------- >> computer.txt", 0, true
Spring.run "cmd /c echo 软硬件详细资料：>> computer.txt", 0, true
Spring.run "cmd /c systeminfo >> computer.txt", 0, true
Spring.run "cmd /c echo ===================================>> computer.txt", 0, true
msgbox "批处理运行完成，请查看 computer.txt ！", 64, "完成"
复制代码

@echo off
> temp.vbs echo WScript.CreateObject("WScript.Shell").sendkeys "{NUMLOCK}"
cscript.exe -nologo -e:vbs temp.vbs
复制代码

mshta vbscript:CreateObject("WScript.Shell").sendkeys("{NUMLOCK}")
复制代码

mshta vbscript:CreateObject("WScript.Shell").sendkeys("{NUMLOCK}")(window.close)
复制代码