Overblog Tous les blogs Top blogs Technologie & Science Tous les blogs Technologie & Science
Editer l'article Suivre ce blog Administration + Créer mon blog
MENU

Check if DartDrive is installed

Publié le par damcuvelier

 

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

Commenter cet article