دست نوشته های یک مهندس شبکه

با سلام خدمت دوستان عزیز:

با این اسکریپتی که گذاشتم می تونید متوجه بشید که چه آپدیت هایی روی ویندوز شما نصب شده فقط کافیه اون رو کپی کنید و تو یه فایل قرار بدید و با پسوند vbs ذخیره کنید بعد اونو اجرا کنید.به همین راحتی.

StrFile = "KB Report " & Replace(Date, "/", "_") & ".TXT"

strComputer = "."

Const HKEY_LOCAL_MACHINE = &H80000002

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(StrFile, 2, True)
     
Set objReg=GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Uninstall"
objReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys
   
strKB = "KB" 

    For Each subkey In arrSubKeys
    strSubKeyPath = "Software\Microsoft\Windows\CurrentVersion\Uninstall\" & subKey
    strValueName = "DisplayName"
    objReg.GetStringValue HKEY_LOCAL_MACHINE,strSubKeyPath,strValueName,strValue

        If IsNull(strValue) Then
            strName = subKey
        Else
            StrName = strValue
        End If
   
        If InStr(strName,strKB) > 0 Then
            strKBName = strKBName & strName & vbCrLf
        End If
   
    Next

objFile.write strKBName

Wscript.Echo "Scan Done"