Jump to content


A.Kassem

Established Members
  • Content Count

    24
  • Joined

  • Last visited

Community Reputation

0 Neutral

About A.Kassem

  • Rank
    Member

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. I have a SCCM Software update point with WSUS server role running on Windows server 2012 R2 I had a problem with Windows update history that it appears in System locale language not in English I got a suggestion to select English from WSUS console in Update Files and language options so I selected English only with no change problem wasn't solved so I got it back to All and suddenly a WSUS error 10032 "The server is failing to download some updates" started to appear periodically I don't know what causes that error and had no other error showing what content failed to download - System - Provider [ Name] Windows Server Update Services - EventID 10032 [ Qualifiers] 0 Level 2 Task 7 Keywords 0x80000000000000 - TimeCreated [ SystemTime] 2018-06-25T19:05:59.000000000Z EventRecordID 71492 Channel Application Computer Security - EventData The server is failing to download some updates.
  2. We replaced our WSUS server and used SCCM Software Update point instead . All updates are working fine except for update history on clients on Windows 7 clients update history completely appear but it appears in machine system locale "Arabic" which is weird because we choose only English in all updates in Software update point language settings and this behavior wasn't occurring with WSUS server before converting to use SCCM SUP.Windows 10 clients update history doesn't completely appear or some machines when our service desk team check those machines for updates can't find any update history although reports showing those machines had recently being updated and also Windows 10 machines have the weird system locale issue as well .Can someone help me resolving those issues.
  3. I'm trying to download Windows 10 Updates Like Windows 10 1709 feature update from Windows 10 servicing>All Windows 10 updates but it stuck at processing 0% and status provisioning update .When tracing error from PatchDownloader.log it gives the following error "ERROR: DownloadContentFiles() failed with hr=0x80072ee7" I tried from Server console and my machine console and same error and same issue .
  4. I was monitoring Software updates downloading through PatchDownloader.log file and suddenly file wasn't logging new events I opened PatchDownloader.lo_ and it said maximum size has been reached I thought clearing both files would help logging new events but now both files not logging how can I make server recreate both file or can anyone provide me with working files that could work I hope you could help , Thanks in advance.
  5. We want to deny SCCM users " Service Desk team " from adding devices to software collection to be read only to stop anyone from deploying unapproved software for any user .In addition we want those users to be able to add devices to OS deployment collection to be able to deploy task sequences for devices in our domain .How can we manage permission for Software collections only ?
  6. We are planning to use SCCM instead of WSUS server to manage windows and office updates for clients . What are the most valuable advantages of using SCCM ? . Is there is any warnings or issues that we must take care of ? . Any advice regarding moving updates to SCCM . Can we use old WSUS server DB instead of download all updates again after installing WSUS service on SCCM server .Thanks guys in advance.Can I test SCCM software update on certain collection using my current WSUS server as downstream server to make sure everything working well before applying it to production ?
  7. Thanks @GarthMJ and @learningmode for your help . I want an article talking about connecting SCSM to other databases and import devices from it .your help is much appreciated .
  8. Can I connect CM DB to other Databases like Cisco call manager , HP WebJet Admin to import devices from it .
  9. I intend to store the data in CMDB for sure . I need the tools that would help me add data for those devices to SCCM to create one Asset inventory whether automatically or even manually .I need the methodology of doing that .
  10. Yes I mean CM , what do u recommend to collect data for Monitors , UPS , Network printers ?
  11. I want to add different devices to Asset inventory in SCCM CB to enclose all our Assets in on console : Devices we want to add: Monitors , UPS , IP phones , Printers Monitors are attached to PCs that we can collect from HW inventory but we want it as devices , UPS are attached by USB cables , IP phones and Printers are network attached is there is a way to discover it and add it to SCCM console to be counted in Assets. If there is no automatic way for each of the above devices , can we add it manually by Excel CSV sheet or so and what are the info required for that .
  12. I want to add Workstations and Laptops warranty info to registry so I can import it to SCCM current branch I used the following script it seems to work fine but when checking info in registry only device S/N and P/N with no warranty end or start info there I guess it was for old HP warranty site I replaced site with new one in script but still no luck can anyone help to get it to work '//---------------------------------------------------------------------------- '// Purpose: Check Warranty Information for HP Computers '// Usage: cscript HP.vbs '// Original Version: 1.1 - April 23, 2014 - Odd-Magne Kristoffersen '// Script taken from: https://sccmguru.wordpress.com/2014/04/24/hp-and-lenovo-warranty-information-in-configuration-manager-2012-r2/ '// edited by Bernhard Sommer October 24, 2016 '// '//------------------------!!Attention!!------------------------------------- '// This script does NOT work for Enterprise Products '//------------------------!!Attention!!------------------------------------- '// '// This script is provided "AS IS" with no warranties '// '//---------------------------------------------------------------------------- On Error Resume Next '//---------------------------------------------------------------------------- '// Return Codes '// 7 = Could not open the website, maybe proxy server is wrong. '// 4 = An unknown error Occured while opening the website. '// 5 = MSXML Version not found '//---------------------------------------------------------------------------- '//---------------------------------------------------------------------------- '// Variable Declarations '//---------------------------------------------------------------------------- EnableLogging = True 'Insert your Company Name sCompanyName = "Company" 'Insert Proxy Server and Port 'If no Proxy Server is used just leave "" there sProxyServer = "" sProxyPort = "" '//---------------------------------------------------------------------------- '// Set Logging Information '//---------------------------------------------------------------------------- Set oShell = CreateObject("wscript.Shell") Set fso = CreateObject("scripting.filesystemobject") If EnableLogging Then Set oLogFile = fso.OpenTextFile("c:\windows\temp\WarrantyInfo.log", 8, True) oLogFile.WriteLine "*********************************************************" End If '//---------------------------------------------------------------------------- '// Set Warranty WebSite Variables '//---------------------------------------------------------------------------- sWebServiceHost = "http://h20566.www2.hp.com/hpsc/wc/public/find" sWebService = sWebServiceHost '//---------------------------------------------------------------------------- '// Set Proxy '//---------------------------------------------------------------------------- 'WriteLog "Checking Proxy" 'get User 'sUsername = CreateObject("WScript.Network").UserName 'sUserDomain = CreateObject("WScript.Network").UserDomain 'WriteLog "Current User is : " & sUserDomain & "\" & sUsername '//---------------------------------------------------------------------------- '// Create Objects '//---------------------------------------------------------------------------- Dim objShell Set objShell = CreateObject("WScript.Shell") const HKLM = &H80000002 Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv") '//---------------------------------------------------------------------------- 'objShell.RegWrite "HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable","0","REG_DWORD" 'Const HKEY_CURRENT_USER = &H80000001 'Const HKU = &H80000003 'If sUsername = "SYSTEM" then ' dwvalue=objShell.RegRead ("HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable") 'Else ' dwvalue=objShell.RegRead ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable") 'End If 'If dwValue = 1 Then ' WriteLog "Proxy is enabled" 'Else ' WriteLog "Proxy is disabled" ' WriteLog "Setting Proxy" ' If sUsername = "SYSTEM" then ' objShell.RegWrite "HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable","1","REG_DWORD" ' objShell.RegWrite "HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyServer", sProxyServer & ":" & sProxyPort ' dwvalue=objShell.RegRead ("HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable") ' Else ' objShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable","1","REG_DWORD" ' objShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyServer", sProxyServer & ":" & sProxyPort ' dwvalue=objShell.RegRead ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable") ' End If ' If dwValue = 1 Then ' WriteLog "Proxy was successfully enabled" ' Else ' WriteLog "Proxy could not be set" ' WriteLog "Exit Warranty Check" ' oLogFile.WriteLine "*********************************************************" ' oLogFile.Close ' wscript.quit(1) ' End If 'End If '//---------------------------------------------------------------------------- '// Get the system's serial number from WMI '//---------------------------------------------------------------------------- WriteLog "Beginning warranty information lookup." Set oWMIService = GetObject("winmgmts:\\.\root\cimv2") Set colItems = oWMIService.ExecQuery("Select SerialNumber from Win32_BIOS",,48) For Each objItem in colItems sSerialNumber = objItem.SerialNumber Next 'sSerialNumber ="" WriteLog "Serial number of system is " & sSerialNumber '//---------------------------------------------------------------------------- '// Get the Product ID from WMI '//---------------------------------------------------------------------------- Const wbemFlagReturnImmediately = 16 Const wbemFlagForwardOnly = 32 lFlags = wbemFlagReturnImmediately + wbemFlagForwardOnly strService = "winmgmts:{impersonationlevel=impersonate}//./root/HP/InstrumentedBIOS" strQuery = "select * from HP_BIOSSetting" Set objWMIService = GetObject(strService) Set colItems = objWMIService.ExecQuery(strQuery,,lFlags) sPN = "" For Each objItem In colItems If objItem.Name = "SKU Number" Then sPN = objItem.Value End If If objItem.Name = "Product Number" Then sPN = objItem.Value End If Next 'sPN="" '//----------------------- '// Get left part of PN '//----------------------- sPNLeft = LEFT(sPN,7) 'sPNLeft = "" 'WriteLog "PN Left : " & sPNLeft '//----------------------- '// Detect if PN contains # '// Because some products do not contain it '//----------------------- sPNRaute = RIGHT(sPN, 4) sPNRaute = LEFT(sPNRaute, 1) 'WriteLog "Raute = " & sPNRaute if sPNRaute = "#" Then sPNRight = RIGHT(sPN, 3) 'WriteLog "PN Right : " & sPNRight sProductNumber = sPNLeft & "%23" & sPNRight Else sPNRaute = "" sPNRight = "" sProductNumber = sPNLeft End If 'WriteLog "PN Right " & sPNRight If Len(sProductNumber) = 0 Then WriteLog "ERROR: Product Number could not be determined." 'oLogFile.WriteLine "*********************************************************" 'oLogFile.Close 'WScript.Quit(9) Else WriteLog "Product number of the system is " & sPNLeft & sPNRaute & sPNRight End If '//---------------------------------------------------------------------------- '// Get the OS Architecture '//---------------------------------------------------------------------------- sAddressWidth = "32" Set colItems = oWMIService.ExecQuery("Select AddressWidth from Win32_Processor",,48) For Each objItem in colItems sAddressWidth = objItem.AddressWidth Next WriteLog "Operating system is " & sAddressWidth & " bit." '//---------------------------------------------------------------------------- '// Define the parameters string to send to the web site '//---------------------------------------------------------------------------- sParameters = "rows%5B0%5D.item.productNumber=" & sProductNumber & "&rows%5B0%5D.item.countryCode=AT&submitButton=Senden&rows%5B0%5D.item.serialNumber=" & sSerialNumber & "&hpeuck_locale_ar=at&lang=de" WriteLog "Opening the web site URL " & sWebService & "?" & sParameters '//---------------------------------------------------------------------------- '// Define and call the web site '//---------------------------------------------------------------------------- 'dwvalue=objShell.RegRead ("HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable") 'If dwvalue = 1 then ' WriteLog "Proxy still enabled" 'Else ' WriteLog "Proxy is disabled" ' oLogFile.WriteLine "*********************************************************" ' oLogFile.Close ' wscript.quit(1) 'End If '// Check MSXML Version 'set xmlhttp = createobject ("msxml2.xmlhttp.3.0") rMSXMLVer=objShell.RegRead ("HKEY_CLASSES_ROOT\Msxml2.ServerXMLHTTP.6.0\") If Err.Number = 0 then WriteLog "Setting MSXML Version to : " & rMSXMLVer sMSXMLVer = "MSXML2.ServerXMLHTTP.6.0" Err.Clear Else Err.Clear rMSXMLVer=objShell.RegRead ("HKEY_CLASSES_ROOT\Msxml2.ServerXMLHTTP.3.0\") If Err.Number = 0 then WriteLog "Setting MSXML Version to : " & rMSXMLVer sMSXMLVer = "MSXML2.ServerXMLHTTP.3.0" Err.Clear Else wscript.echo "Error : MSXML Version not found" wscript.quit(5) End If End If set xmlhttp = CreateObject(sMSXMLVer) If sProxyServer = "" then WriteLog "No Proxy Sever used" Else WriteLog "Proxy Sever : '" & sProxyServer & ":" & sProxyPort &"' is used" xmlhttp.setProxy 2, sProxyServer & ":" & sProxyPort End If Err.Clear xmlhttp.open "GET", sWebService & "?" & sParameters, false xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" xmlhttp.send If Hex(Err.Number) = "80072EE2" Then WriteLog "Could not open the website, maybe proxy server is wrong." oLogFile.WriteLine "*********************************************************" oLogFile.Close wscript.quit(7) End If If Err.Number <> 0 then WriteLog "Warning: An unknown error Occured while opening the website." WriteLog "Error: " & Err.Number WriteLog "Error (Hex): " & Hex(Err.Number) WriteLog "Source: " & Err.Source WriteLog "Description: " & Err.Description oLogFile.WriteLine "*********************************************************" oLogFile.Close wscript.quit(4) End IF If xmlhttp.Status = 200 Then WriteLog "Successful response from the web site." Process xmlhttp.ResponseText Else WriteLog "ERROR: the web site returned status code " & xmlhttp.Status WriteLog "Returning exit code 1." nExitCode = 1 End If If EnableLogging Then oLogFile.WriteLine "*********************************************************" oLogFile.Close End If '//---------------------------------------------------------------------------- '// Functions '//---------------------------------------------------------------------------- Function Process (HTML) WriteLog "Processing the HTML returned from the site." If sAddressWidth = 32 Then sRegistryKey ="SOFTWARE\" Else sRegistryKey = "SOFTWARE\" End If sKeyPath = sRegistryKey & sCompanyName & "\WarrantyInformation" WriteLog "Registry key path is HKLM\" & sKeyPath oReg.CreateKey HKLM,sKeyPath WriteLog "Setting registry values." ' SerialNumber = split(xmlhttp.responseText,"Serial number")(1) ' SerialNumber = split(SerialNumber,"</td></tr>")(0) ' SerialNumber = replace(replace(SerialNumber,vbcr,""),vblf,"") ' SerialNumber = split(SerialNumber,"bottomSpaceBig")(1) ' SerialNumber = split(SerialNumber,">")(1) WriteLog "Serial Number is : " & sSerialNumber oReg.SetStringValue HKLM, sKeyPath, "SerialNumber", sSerialNumber ' ProductNumber = split(xmlhttp.responseText,"Product number")(1) ' ProductNumber = split(ProductNumber,"</td></tr>")(0) ' ProductNumber = replace(replace(ProductNumber,vbcr,""),vblf,"") ' ProductNumber = split(ProductNumber,"bottomSpaceBig")(1) ' ProductNumber = split(ProductNumber,">")(1) WriteLog "Product Number is : " & sPNLeft & sPNRaute & sPNRight oReg.SetStringValue HKLM, sKeyPath, "ProductNumber", sPNLeft & sPNRaute & sPNRight WarrantyCheckDate = Right("0" & Day(Date), 2) & "." & Right("0" & Month(Date), 2) & "." & Year(Date) WriteLog "Warranty Check Date is : " & WarrantyCheckDate oReg.SetStringValue HKLM, sKeyPath, "WarrantyCheckDate", WarrantyCheckDate '//---------------------------------------------------------------------------- '// Get Care Pack or Basic Warranty '//---------------------------------------------------------------------------- CarePack = split(xmlhttp.responseText,"hpui-normal-row")(1) 'wscript.echo Carepack CarePack = split(CarePack,"rowspan")(1) CarePack = split(CarePack,">")(1) CarePack = split(CarePack,"<")(0) If CarePack = "HP Care Pack" Then WriteLog "Carepack : Yes" Carepack = "Yes" WarrantyEndDate = split(xmlhttp.responseText,"hpui-normal-row")(2) WarrantyEndDate = split(WarrantyEndDate,"</td>")(2) WarrantyEndDate = mid(WarrantyEndDate,5) WriteLog "Expiration Date is : " & WarrantyEndDate WarrantyStatus = split(xmlhttp.responseText,"hpui-normal-row")(2) WarrantyStatus = split(WarrantyStatus,"color")(1) WarrantyStatus = split(WarrantyStatus,">")(1) WarrantyStatus = split(WarrantyStatus,"<")(0) WriteLog "Warranty Status is : " & WarrantyStatus Else WriteLog "Carepack : No" Carepack = "No" WarrantyEndDate = split(xmlhttp.responseText,"hpui-normal-row")(1) WarrantyEndDate = split(WarrantyEndDate,"<td>")(3) 'WarrantyEndDate = replace(replace(WarrantyEndDate,vbcr,""),vblf,"") 'WarrantyEndDate = split(WarrantyEndDate,"bottomSpaceBig")(1) 'WarrantyEndDate = split(WarrantyEndDate,">")(1) WarrantyEndDay = split(WarrantyEndDate,".")(0) 'WriteLog "day : " & WarrantyEndDay WarrantyEndMonth = split(WarrantyEndDate,".")(1) 'WriteLog "month : " & WarrantyEndMonth WarrantyEndYear = split(WarrantyEndDate,".")(2) WarrantyEndYear = split(WarrantyEndYear,"<")(0) 'WriteLog "year : " & WarrantyEndYear WarrantyEndDate = WarrantyEndDay & "." & WarrantyEndMonth & "." & WarrantyEndYear WriteLog "Expiration Date is : " & WarrantyEndDate WarrantyStatus = split(xmlhttp.responseText,"hpui-normal-row")(1) 'WarrantyStatus = split(WarrantyStatus,"</span></td></tr>")(0) 'WarrantyStatus = replace(replace(WarrantyStatus,vbcr,""),vblf,"") WarrantyStatus = split(WarrantyStatus,"color")(1) WarrantyStatus = split(WarrantyStatus,">")(1) WarrantyStatus = split(WarrantyStatus,"<")(0) WriteLog "Warranty Status is : " & WarrantyStatus End If oReg.SetStringValue HKLM, sKeyPath, "Carepack", CarePack oReg.SetStringValue HKLM, sKeyPath, "ExpirationDate", WarrantyEndDate oReg.SetStringValue HKLM, sKeyPath, "WarrantyStatus", WarrantyStatus End Function Function WriteLog (sText) If EnableLogging Then oLogfile.WriteLine Now() & " " & sText End If End Function
  13. Thanks for your help I guess your words are reasonable to me problem is that my manager want a way with SCCM to monitor user's PCs for any unapproved software installation so it came to my mind that we can use Configuration baseline for a list of approved software and any other installation make client non-compliant , so do u think that your suggested report would do the same by any means I asked Enhansoft to send me the report source with my business E-mail will they send it ?
×
×
  • Create New...