vurslide.blogg.se

CreateKey HKEY_LOCAL_MACHINE, strBaseRegKey & "7-Zip" & "." & strFileType objReg. SetStringValue HKEY_LOCAL_MACHINE, strBaseRegKey & "." & strFileType, "Content Type", "application/x-" & strFileType & "-compressed" objReg. SetStringValue HKEY_LOCAL_MACHINE, strBaseRegKey & "." & strFileType, "PerceivedType", "compressed" objReg. SetStringValue HKEY_LOCAL_MACHINE, strBaseRegKey & "." & strFileType, strKeyDefault, "7-Zip" & "." & strFileType objReg. CreateKey HKEY_LOCAL_MACHINE, strBaseRegKey & "." & strFileType objReg. ReadLine ) ' If line not empty or commented If strFileType "" Then ' Check what we want to do If Not boolDelete Then ' Create all necessary keys objReg.

AtEndOfStream True ' Get a line, trimmed from all whitespace and comments ("#*") strFileType = TrimEx ( objFileTypes. OpenTextFile ( strFileTypes, 1 ) Do While objFileTypes. Quit ( 1 ) ' Open text file and proceed with each line Set objFileTypes = objFSO. FileExists ( strFileTypes ) Then WScript. Quit ( 2 ) End If ' If types definition file does not exist, quit If Not objFSO. Quit ( 2 ) End Select strFileTypes = WScript. Item ( 0 ) Case "REMOVE" boolDelete = True Case "ASSIGN" boolDelete = False Case Else WScript. ExpandEnvironmentStrings ( "%ProgramFiles%" ) ' Require and verify arguments, if arguments incorrect or missing - quit If WScript.

' Common system objects, comment unused 'Set objNetwork = CreateObject("WScript.Network") 'Set objShellAp = CreateObject("Shell.Application") Set objWShell = CreateObject ( "WScript.Shell" ) 'Set objConnection = CreateObject("ADODB.Connection") 'Set objCommand = CreateObject("ADODB.Command") 'Set objSysInfo = CreateObject("ADSystemInfo") 'Set objWMIService = GetObject("winmgmts:!\\.\root\default:StdRegProv" ) ' Registry defaults Const HKEY_LOCAL_MACHINE = & H80000002 strBaseRegKey = "Software\Classes\" strKeyDefault = "" ' Program files path strProgramFiles = objWShell. The extensions must be listed in file, ie. Running it ASSIGNs or REMOVEs file extension handlers from registry.

This simple script requires two parameters: 7-Zip 9.20 MSI installer (32-bit and 64-bit versions) 7-Zip 9.38 (alpha) MSI installer (32-bit and 64-bit versions)ĭownload the installers from: 7Zip Official Forum Sourceforge