批处理之家 - Powered by Discuz! Board

标题: 怎么将两个批处理合二位一。一个批处理是调用了vbs [打印本页]

作者: wsok1234 时间: 2012-1-6 21:05 标题: 怎么将两个批处理合二位一。一个批处理是调用了vbs

@echo off
reg add HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Setup /v ServicePackSourcePath /t REG_SZ /d E:\IISsetup /f
reg add HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Setup /v SourcePath /t REG_SZ /d E:\IISsetup /f
C:\Windows\\Microsoft.NET\Framework\v1.1.4322\aspnet_regiis -i
%systemroot%\system32\sysocmgr.exe /i:iis.inf /u:answer.txt
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Setup\OC Manager\Subcomponents" /v aspnet /t reg_dword /d 1 /f

========================
中分线
===================
@echo off
more %0 +5>yst.vbs
yst.vbs
del yst.vbs
exit
set ws = createobject("wscript.shell")
strDesktop = ws.SpecialFolders("Desktop")
set wind = ws.createshortcut(strDesktop & "\Internet 信息服务(IIS)管理器.lnk")
wind.targetpath = "%SystemRoot%\system32\inetsrv\iis.msc"
wind.workingdirectory = "C:\WINDOWS\system32\inetsrv"
wind.save

作者: Demon 时间: 2012-1-6 21:36

不伦不类。

Dim WshShell
Set WshShell = CreateObject("wscript.Shell")
WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Setup\ServicePackSourcePath", "E:\IISsetup", "REG_SZ"
WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Setup\SourcePath", "E:\IISsetup", "REG_SZ"
WshShell.Run "C:\Windows\\Microsoft.NET\Framework\v1.1.4322\aspnet_regiis -i", 0, True
WshShell.Run WshShell.ExpandEnvironmentStrings("%systemroot%") & "\system32\sysocmgr.exe /i:iis.inf /u:answer.txt", 0, True
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Setup\OC Manager\Subcomponents\aspnet", 1, "REG_DWORD"
With WshShell.CreateShortcut(WshShell.SpecialFolders("Desktop") & "\Internet 信息服务(IIS)管理器.lnk")
    .TargetPath = WshShell.ExpandEnvironmentStrings("%systemroot%") & "\system32\inetsrv\iis.msc"
    .WorkingDirectory = "C:\WINDOWS\system32\inetsrv"
    .Save
End With
复制代码

作者: wsok1234 时间: 2012-1-7 00:19

请问怎么执行？BAT执行不了的？

作者: qq2501 时间: 2012-1-7 11:58

明明就是vbs脚本，你保存bat运行不了

作者: auqfgmd 时间: 2012-1-7 18:26

这个一看也知道是VBS啊

作者: wsok1234 时间: 2012-1-7 19:21

可以了。谢谢。昨晚我试了VBS执行不了，应该是复制漏了吧。执行起来感觉没BAT快的

作者: Demon 时间: 2012-1-7 21:32

可以了。谢谢。昨晚我试了VBS执行不了，应该是复制漏了吧。执行起来感觉没BAT快的
wsok1234 发表于 2012-1-7 19:21

那你用更快的BAT写个我看看吧。

作者: wsok1234 时间: 2012-1-7 22:30

应该不支持BAT吧。谢谢楼上那位了。

作者: Demon 时间: 2012-1-7 23:12

应该不支持BAT吧。谢谢楼上那位了。
wsok1234 发表于 2012-1-7 22:30

那你怎么知道BAT快一点？

作者: wsok1234 时间: 2012-1-8 00:41

试了一下，原来没慢。是我错了。原来他是隐藏安装了ASP。忘了要安装这个。
用了VBS后。在C盘多了个 C:\Inetpub 文件出来
怎么再之前的VBS上面加上运行后删掉
C:\Inetpub
C:\Temp
安装留下来的文件夹

作者: bluewing009 时间: 2012-1-8 06:59

先执行bat再把vbs代码echo出来，然后调用

欢迎光临批处理之家 (http://bbs.bathome.net/)