VBS调用批处理1.bat和2.bat（三个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 网关IP 网关MAC
arp -s 电影服务器IP 电影服务器MAC
arp -s 收银机IP 收银机MAC
exit
简单说明：
1、用记事本编辑3个VBS中的任意一个，保存在客户机的本地硬盘中（或者网络服务器）
2、用记事本编辑2个BAT（CMD）保存在客户机的本地硬盘中（或者网络服务器）
3、通过组策略 - 用户配置 - Windows设置 - 脚本（登录/注销），右边选项的“登录”来“添加”VBS脚本
特别注意:若以上方法正确使用，还未绑定成功，则可能是wscript.shell对象被卸载，运行：regsvr32 WSHom.Ocx 恢复!
|
