How to extract images from .mht file

Open .mht file in Microsoft word

Open Microsoft word -->click windows icon -->click open-->select .mht file

.mht file opened in microsoft word

Save word document (Save as type --web page)

In saved location. folder will be available 

open the folder -->We can see images

How to extract images from word document

Mandatory - Winzip should be installed in the system

Rename docx file to rar file

Open rar file using winzip

Open word folder

Open media folder

We can see the images

Copy the images

paste the images

Removing Registry-BinaryValue using VB Scripts

Const HKEY_CLASSES_ROOT  = &H80000000
Const HKEY_CURRENT_USER  = &H80000001
Const HKEY_LOCAL_MACHINE  = &H80000002
Const HKEY_USERS   = &H80000003
Const HKEY_CURRENT_CONFIG  = &H80000005

strComputer = "."

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ 
    strComputer & "\root\default:StdRegProv")

strKeyPath = "SOFTWARE\V6R2012x"

strBinaryValueName = "AUTOCAD"


oReg.DeleteValue HKEY_LOCAL_MACHINE,strKeyPath,strBinaryValueName

Removing Registry-MultiStringValue using VB Scripts

Const HKEY_CLASSES_ROOT  = &H80000000
Const HKEY_CURRENT_USER  = &H80000001
Const HKEY_LOCAL_MACHINE  = &H80000002
Const HKEY_USERS   = &H80000003
Const HKEY_CURRENT_CONFIG  = &H80000005

strComputer = "."

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
    strComputer & "\root\default:StdRegProv")

strKeyPath = "SOFTWARE\V6R2012x"

strMultiStringValueName = "AUTOCAD"


oReg.DeleteValue HKEY_LOCAL_MACHINE,strKeyPath,strMultiStringValueName

Removing Registry-ExpandedStringValue using VB Scripts

Const HKEY_CLASSES_ROOT  = &H80000000
Const HKEY_CURRENT_USER  = &H80000001
Const HKEY_LOCAL_MACHINE  = &H80000002
Const HKEY_USERS   = &H80000003
Const HKEY_CURRENT_CONFIG  = &H80000005

strComputer = "."

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ 
    strComputer & "\root\default:StdRegProv")

strKeyPath = "SOFTWARE\V6R2012x"

strExpandedStringValueName = "AUTOCAD"

oReg.DeleteValue HKEY_LOCAL_MACHINE,strKeyPath,strExpandedStringValueName

Removing Registry-String Value using VB Scripts

Const HKEY_CLASSES_ROOT  = &H80000000
Const HKEY_CURRENT_USER  = &H80000001
Const HKEY_LOCAL_MACHINE  = &H80000002
Const HKEY_USERS   = &H80000003
Const HKEY_CURRENT_CONFIG  = &H80000005

strComputer = "."

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ 
    strComputer & "\root\default:StdRegProv")

strKeyPath = "SOFTWARE\V6R2012x"

strStringValueName = "AUTOCAD"

oReg.DeleteValue HKEY_LOCAL_MACHINE,strKeyPath,strStringValueName

Removing Registry key Using VB Scripts

Const HKEY_CLASSES_ROOT  = &H80000000
Const HKEY_CURRENT_USER  = &H80000001
Const HKEY_LOCAL_MACHINE  = &H80000002
Const HKEY_USERS   = &H80000003
Const HKEY_CURRENT_CONFIG  = &H80000005

strComputer = "."

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
    strComputer & "\root\default:StdRegProv")

strKeyPath = "SOFTWARE\V6R2012x"
strKeyPath1="SOFTWARE\Microsoft\Windows\CurrentVersion\Installer\UserData\S-1-5-18\Components\EE9929DE5563356CDE4A7CA7331EF14A"


oReg.DeleteKey HKEY_LOCAL_MACHINE, strKeyPath
oReg.DeleteKey HKEY_LOCAL_MACHINE, strKeyPath1