|
解决方案如下(原来VBS写环境用于Pe登陆前无法生效,现改为输出参数到CMD):
DiskEnv.vbs (放到system32下)
-----------------------
On Error Resume Next
Dim fso, SubDrives, i,DDS
Set fso = CreateObject("Scripting.FileSystemObject")
Set SubDrives = fso.Drives
set ws=WScript.CreateObject("WScript.Shell")
For Each i In SubDrives
if i.IsReady=true then DDS=DDS&" "&i.DriveLetter
Next
WScript.StdOut.Write DDS & Chr(13)
Findpetools.cmd 调用
----------------------------
@echo off
PUSHD %~dp0
for /f "delims=" %%a in ('Wscript //nologo %CD%\DiskEnv.vbs') do (
set DDS=%%a)
for %%a in (%DDS%) do (
if exist %%a:\PETOOLS\安装驱动.cmd Pecmd Exec !=%%a:\PETOOLS\外置安装.cmd && goto :end)
:end
Exit
注意,我这里的FindPetools是与DiskEnv.vbs放在同一目录的,如果没有放在同一目录,请改语句中的%CD%为相应的DiskEnv.vbs所在目录
[ 本帖最后由 2011mking 于 2012-5-9 00:46 编辑 ] |
|