怎么将两个批处理合二位一。一个批处理是调用了vbs

wsok1234

@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

不伦不类。

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

复制代码

wsok1234

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

qq2501

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

auqfgmd

这个一看也知道是VBS啊

wsok1234

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

Demon

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

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

wsok1234

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

Demon

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

那你怎么知道BAT快一点？

wsok1234

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

bluewing009

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