Check if DartDrive is installed
dim wshShell, strCmd, oRep, strReponse, oOsdV4
Set wshShell = CreateObject("WScript.Shell")
Set oOsdV4 = CreateObject("Microsoft.SMS.TSEnvironment")
strCmd = "cmd.exe /C dir /s /AH c:\Recovery\Winre.wim"
set oRep = wshShell.Exec(strCmd)
strReponse = oRep.StdOut.ReadAll
if instr(strReponse,"Winre.wim") then
oOsdV4("DartDrive") = "NO"
else
oOsdV4("DartDrive") = "YES"
end if
/image%2F0881799%2F20140610%2Fob_a8c7fe_logo2.jpg)
Commenter cet article