جلب الهاندل
Dim fHandle As IntPtr = WIMAPI.WimApi.WIMCreateFile("Wmi path", WIMAPI.WimApi.WIM_GENERIC_READ, _
WIMAPI.WimApi.WIM_OPEN_EXISTING, WIMAPI.WimApi.WIM_FLAG_SHARE_WRITE, _
WIMAPI.WimApi.WIM_COMPRESS_NONE, WIMAPI.WimApi.WIM_OPENED_EXISTING)
MsgBox(WIMAPI.WimApi.WIMGetImageCount(fHandle))