2. Fórumok
  3. Infotech
  4. Rendszergazda topic
  5. (kiemelt téma)

Új hozzászólás Aktív témák

  • #10406 Snoop-y veterán kraftxld #10401
    Új Válasz #10406
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    Snoop-y

    veterán

    válasz kraftxld #10401 üzenetére

    Pl ez jo lehet ha kiszeded azokat a dolgokat amiket nem akarsz tiltani ( mondjuk en inkabb wsus-al csinalnam ha van ra lehetoseg ) :

    ' Windows 7 hide KBs - ndog
    ' last updated - 25/11/2013

    Dim hideupdates(7)

    ' Bing Toolbar
    hideupdates(0) = "Bing Desktop"
    hideupdates(1) = "Bing Bar"

    ' Activation spy service
    hideupdates(2) = "KB971033"

    ' MSSE
    hideupdates(3) = "Microsoft Security Essentials"

    ' IE version
    hideupdates(4) = "Windows Internet Explorer 9"
    hideupdates(5) = "Internet Explorer 10"
    hideupdates(6) = "Internet Explorer 11"

    ' International language packs
    hideupdates(7) = "KB2483139"

    set updateSession = createObject("Microsoft.Update.Session")
    set updateSearcher = updateSession.CreateupdateSearcher()

    Set searchResult = updateSearcher.Search("IsHidden=0 and IsInstalled=0 and Type='Software'")

    For i = 0 To searchResult.Updates.Count-1
    set update = searchResult.Updates.Item(i)
    For j = LBound(hideupdates) To UBound(hideupdates)
    'MsgBox hideupdates(j)
    if instr(1, update.Title, hideupdates(j), vbTextCompare) = 0 then
    'Wscript.echo "No match found for " & hideupdates(j)
    else
    Wscript.echo "Hiding " & hideupdates(j)
    update.IsHidden = True
    end if
    Next
    Next

    New level... Advertising has us chasing cars and clothes, working jobs we hate so we can buy shit we don’t need

Új hozzászólás Aktív témák