[Iska]

Если делать по уму — как-то так (не проверялось!):

Код:

Option Explicit

Const WindowsFolder = 0
Const SystemFolder = 1

Dim objFSO

Dim strFile1
Dim strFile2


Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

strFile1 = objFSO.BuildPath(objFSO.GetSpecialFolder(WindowsFolder), "Microsoft.NET\Framework\v4.0.30319\regasm.exe")

If objFSO.FileExists(strFile1) Then
	strFile2 = objFSO.BuildPath(objFSO.GetSpecialFolder(SystemFolder), "ShellExt\APK Shell Extension\apkshellext.dll")
	
	If objFSO.FileExists(strFile2) Then
		WScript.CreateObject("WScript.Shell").Run """" & strFile1 & """ /codebase """ & strFile2 & """", 1, True
	Else
		WScript.Echo "Can't find file [" & strFile2 & "]."
		WScript.Quit 2
	End If
Else
	WScript.Echo "Can't find file [" & strFile1 & "]."
	WScript.Quit 1
End If

Set objFSO = Nothing

WScript.Quit 0