[Iska]

O L E G, для не исполняемых файлов нет понятия «запустить». Для них применимо понятие «исполнить глагол, привязанный к данному типу файлов». Для «*.inf» глаголы перечислены в «HKEY_CLASSES_ROOT\inffile\shell».

Предположим, что речь в «запустить 123.inf файл» шла о глаголе «Install» («&Установить»):

Код:

Option Explicit

Dim objShell
Dim objFolder
Dim objFolderItem

Set objShell  = WScript.CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace("E:\Песочница\0126")

If Not objFolder Is Nothing Then
	Set objFolderItem = objFolder.ParseName("123.inf")
	
	If Not objFolderItem Is Nothing Then
		objFolderItem.InvokeVerb "Install"
		
		Set objFolderItem = Nothing
	Else
		WScript.Echo "Can't find [123.inf] in [E:\Песочница\0126]"
	End If
	
	Set objFolder = Nothing
Else
	WScript.Echo "Can't find [E:\Песочница\0126]"
End If

Set objShell = Nothing

WScript.Quit 0

Либо прочитать из реестра содержимое параметра «HKEY_CLASSES_ROOT\inffile\shell\Install\command\(Default)»:

Код:

%SystemRoot%\System32\rundll32.exe setupapi,InstallHinfSection DefaultInstall 132 %1

и запускать «rundll32.exe» напрямую с параметром «<путь>\123.inf» самому.

[O L E G]

Большое спс, Хорошо когда есть такие люди)

[O L E G]

Появилась одна Проблемка для меня.
Скрипт и Inf файл находятся в одной папке, к примеру F:\Scripts\ на флешке, к подключению к разным компам буква меняется и VBS перестает находит inf файл.Возможно указать VBS путь, что бы он проверял только папку Scripts на наличие файла inf ?

[Iska]

O L E G, следующий скрипт будет искать одноимённый файл «*.inf», расположенный в той же папке, что и сам скрипт (например: «e:\Temp\123.vbs» будет пытаться найти «e:\Temp\123.inf»):

Код:

Option Explicit

Dim strFolder
Dim strFile

Dim objShell
Dim objFolder
Dim objFolderItem

With WScript.CreateObject("Scripting.FileSystemObject")
	strFolder = .GetParentFolderName(WScript.ScriptFullName)
	strFile   = .GetBaseName(WScript.ScriptName) & ".inf"
End With

Set objShell  = WScript.CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(strFolder)

If Not objFolder Is Nothing Then
	Set objFolderItem = objFolder.ParseName(strFile)
	
	If Not objFolderItem Is Nothing Then
		objFolderItem.InvokeVerb "Install"
		
		Set objFolderItem = Nothing
	Else
		WScript.Echo "Can't find [" & strFile & "] in [" & strFolder & "]"
	End If
	
	Set objFolder = Nothing
Else
	WScript.Echo "Can't find [" & strFolder & "]"
End If

Set objShell = Nothing

WScript.Quit 0

[O L E G]

ОК спасибо все работает