VBS調(diào)用批處理1.bat和2.bat（三個(gè)VBS功能相同）

1.vbs

Option Explicit
On Error Resume Next
Dim objShell
set objShell=wscript.createObject("wscript.shell")
WScript.Sleep(10000)
iReturn=objShell.Run("cmd.exe /C x:\1.bat", 0, True)
iReturn=objShell.Run("cmd.exe /C x:\2.bat", 0, True)
Set objShell=NoThing
WScript.quit

2.vbs

Dim WshShell
Set WshShell = Wscript.CreateObject("Wscript.Shell")
WScript.Sleep(0000)
WshShell.run "x\1.bat", 0, True
WshShell.run "x\2.bat", 0, True
Set WshShell=NoThing
WScript.quit

3.vbs

Dim WshShell
Set WshShell = Wscript.CreateObject("Wscript.Shell")
WScript.Sleep(0000)
WshShell.run "x:\1.cmd /start", 0, True
WshShell.run "x:\2.cmd /start", 0, True
Set WshShell=NoThing
WScript.quit

x:\1.bat（x:\1.cmd）

@echo off
if exist ipconfig.txt del ipconfig.txt
ipconfig /all >ipconfig.txt
if exist phyaddr.txt del phyaddr.txt
find "Physical Address" ipconfig.txt >phyaddr.txt
for /f "skip=2 tokens=12" %%M in (phyaddr.txt) do set Mac=%%M
if exist IPAddr.txt del IPaddr.txt
find "IP Address" ipconfig.txt >IPAddr.txt
for /f "skip=2 tokens=15" %%I in (IPAddr.txt) do set IP=%%I
arp -s %IP% %Mac%
del ipaddr.txt
del ipconfig.txt
del phyaddr.txt
exit

x:\2.bat（x:\2.cmd）

@echo off
arp -s 網(wǎng)關(guān)IP 網(wǎng)關(guān)MAC
arp -s 電影服務(wù)器IP 電影服務(wù)器MAC
arp -s 收銀機(jī)IP 收銀機(jī)MAC
exit

簡(jiǎn)單說(shuō)明：

1、用記事本編輯3個(gè)VBS中的任意一個(gè)，保存在客戶(hù)機(jī)的本地硬盤(pán)中（或者網(wǎng)絡(luò)服務(wù)器）

2、用記事本編輯2個(gè)BAT（CMD）保存在客戶(hù)機(jī)的本地硬盤(pán)中（或者網(wǎng)絡(luò)服務(wù)器）

3、通過(guò)組策略 - 用戶(hù)配置 - Windows設(shè)置 - 腳本（登錄/注銷(xiāo)），右邊選項(xiàng)的“登錄”來(lái)“添加”VBS腳本

特別注意:若以上方法正確使用，還未綁定成功，則可能是wscript.shell對(duì)象被卸載，運(yùn)行：regsvr32 WSHom.Ocx 恢復(fù)!