Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для specialist

Старожил


Сообщения: 406
Благодарности: 108

Профиль | Отправить PM | Цитировать


на одном ресурсе подсказали такое решение
Код: Выделить весь код
sFilename = "2f1f33.msp"  
sFolderPathspec = "C:\Windows\Installer"  
 
Set objShell = CreateObject ("Shell.Application")  
Set objFolder = objShell.Namespace(sFolderPathspec)  
 
File_description =  objFolder.GetDetailsOf(objFolder.Parsename(sFileName), 21)  
wscript.echo File_description
проверил - работает
осталось теперь сообразить как это пнуть в цикл перебора к установке всех файлов в папке updates из командного файла с выводом имен...

-------
Все что было создано руками и умом одного человека, может быть изменено по своему образу и подобию другим. ICQ: 560-361 Блог: repacksbyspecialist.blogspot.com


Отправлено: 10:26, 27-03-2018 | #3