I had this lying around >>
Func _7Zip_Extract($sZipFile, $sDestinationFolder = @ScriptDir, $sPassword = "")
If FileExists($sZipFile) = 0 Then
Return SetError(1, 0, 0)
EndIf
If StringRight($sDestinationFolder, 1) <> "\" Then
$sDestinationFolder &= "\"
EndIf
If FileExists($sDestinationFolder) = 0 Then
DirCreate($sDestinationFolder)
EndIf
If $sPassword <> "" Then
$sPassword = "-p" & '"' & $sPassword & '" '
EndIf
If FileExists(@ScriptDir & "\" & "7za.exe") = 0 Then
FileInstall("7za.exe", @ScriptDir & "\" & "7za.exe", 0)
EndIf
Return RunWait('7za.exe' & ' x "' & $sZipFile & '" ' & $sPassword & "-y -o" & '"' & $sDestinationFolder & '"', "", @SW_HIDE)
EndFunc ;==>_7Zip_Extract