本帖最后由 Duvet 于 2010-9-9 17:00 编辑
#Include <Array.au3>
Local $Url="http://10.64.240.23:801/patchs/10-060/NDP20SP1-KB983582-x86.exe|"& _
"http://10.64.240.23:801/patchs/10-060/NDP20SP2-KB983583-x86.exe|"& _
"http://10.64.240.23:801/patchs/10-022/WindowsServer2003-KB981349-x86-CHS.exe|"& _
"http://10.64.240.23:801/patchs/09-054/WindowsServer2003-KB974455-x86-CHS.exe|"& _
"http://10.64.240.23:801/patchs/09-053/WindowsServer2003-KB975254-x86-CHS.exe|"& _
"http://10.64.240.23:801/patchs/09-051/WindowsMedia9-KB969878-x86-CHS.exe|"& _
"http://10.64.240.23:801/patchs/09-044/WindowsServer2003-KB956744-x86-CHS.exe|"& _
"http://10.64.240.23:801/patchs/09-039/WindowsServer2003-KB969883-x86-CHS.exe|"& _
"http://10.64.240.23:801/patchs/09-034/WindowsServer2003-KB972260-x86-CHS.exe|"& _
"http://10.64.240.23:801/patchs/09-032/WindowsServer2003-KB973346-x86-CHS.exe|"& _
"http://10.64.240.23:801/patchs/09-025/WindowsServer2003-KB968537-x86-CHS.exe|"& _
"http://10.64.240.23:801/patchs/09-020/WindowsServer2003-KB970483-x86-CHS.exe|"& _
"http://10.64.240.23:801/patchs/09-019/WindowsServer2003-KB969897-x86-CHS.exe|"& _
"http://10.64.240.23:801/patchs/09-018/WindowsServer2003-KB970437-x86-CHS.exe|"& _
"http://10.64.240.23:801/patchs/09-014/WindowsServer2003-KB963027-x86-CHS.exe|"& _
"http://10.64.240.23:801/patchs/09-011/WindowsServer2003-KB961373-x86-CHS.exe|"& _
"http://10.64.240.23:801/patchs/09-006/WindowsServer2003-KB958690-x86-CHS.exe|"& _
"http://10.64.240.23:801/patchs/08-078/WindowsServer2003-KB960714-x86-CHS.exe|"& _
"http://10.64.240.23:801/patchs/08-052/WindowsServer2003-KB938464-v2-x86-CHS.exe|"& _
"http://10.64.240.23:801/patchs/08-001/WindowsServer2003-KB941644-x86-CHS.exe"
$Url=StringSplit($Url,"|",2)
_ArrayDisplay($url)
Local $i=0,$checkneedsetup
While 1
$i+=1
$Var=RegEnumKey("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\HotFix",$i)
If @Error Then ExitLoop
;HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall
;If Not StringInStr($Var,"KB") Then
; ContinueLoop
;ElseIf StringInStr(StringRight($Var,2),"v2") Then
; $Var = StringTrimRight($Var,2)&"-v2-"
;EndIf
$checkneedsetup=_ArraySearch($url,$Var,0,0,0,1)
If Not @Error Then _ArrayDelete($url,$checkneedsetup)
WEnd
_ArrayDisplay($url)
Exit
|