批处理实现c/s程序部署,以及创建桌面快捷方式

@echo off

echo "即将开始安装,按任意键开始复制文件......"
pause
xcopy //192.168.1.112/source/ d:/XSIBMS/     //我从这个地址复制文件到我的d盘下面的xsibms文件夹下面

d:
cd xsibms    //进入到这个目录下
CreateShortCut.vbs    //运行这个文件,实现桌面快捷方式

echo "文件复制安装已经完成,按任意键继续安装程序运行所必须的组件......"
pause

if not exist DOTNETFX.EXE goto error
DOTNETFX.EXE     //安装.net framework 2.0

echo "必须组件安装已经完成,按任意键继续退出......"
pause

goto end

:error
      echo "安装文件没有找到!"
pause

:end

CreateShortCut.vbs的内容如下:

set WshShell = CreateObject("Wscript.shell")
strDesktop = WshShell.SpecialFolders("Desktop")
set oMyShortcut = WshShell.CreateShortcut(strDesktop + "/Sample.lnk")
oMyShortcut.WindowStyle = 3
oMyShortcut.IconLocation = "D:/XSIBMS/Siza.ico"
OMyShortcut.TargetPath = "d:/XSIBMS/XS-IBMS.exe"
oMyShortCut.Hotkey = "ALT+CTRL+F"
oMyShortCut.Save