Sorry but you do not have right. Forum rule: I'm not asking how to crack the WGA. Installing KB971033 is not required by Microsoft. It's optional. I can install it but I don't have to do it. It's my choose. I have sript VBS that hide KB971033 from list in Windows Update. Thats all. I can manually hide KB971033 in Windows Update so why don't do this with script? This is script that hide KB971033 from Windows Update lists and it's legal. This has nothing to do with cracking WGA. I can hide languages packs and I can hide KB971033. Function WuaVersion 'get current WUA version Dim oAgentInfo, ProductVersion On Error Resume Next Err.Clear Set oAgentInfo = CreateObject("Microsoft.Update.AgentInfo") If ErrNum = 0 Then WuaVersion = oAgentInfo.GetInfo("ProductVersionString") Else Wscript.Echo "Error getting WUA version." WuaVersion = 0 'calling code can interpret 0 as an error. End If On Error Goto 0 End Function msgbox(WuaVersion) if WuaVersion <> "0" then Set ServiceManager = CreateObject("Microsoft.Update.ServiceManager") ServiceManager.ClientApplicationID = "My App" 'add the Microsoft Update Service, GUID Set NewUpdateService = ServiceManager.AddService2("7971f918-a847-4430-9279-4a52d1efe18d",7,"") end if 'ServerSelection values ssDefault = 0 ssManagedServer = 1 ssWindowsUpdate = 2 ssOthers = 3 'InStr values intSearchStartChar = 1 dim strTitle Set updateSession = CreateObject("Microsoft.Update.Session") Set updateSearcher = updateSession.CreateupdateSearcher() updateSearcher.ServerSelection = ssWindowsUpdate Set searchResult = updateSearcher.Search("IsInstalled=0 and Type='Software'") For I = 0 To searchResult.Updates.Count-1 Set update = searchResult.Updates.Item(I) strTitle = update.Title if InStr(intSearchStartChar, strTitle, "KB971033", vbTextCompare) <> "0" then update.IsHidden = True end if Next WScript.Quit Question is: how to integrate this?