Jump to content


Established Members
  • Posts

  • Joined

  • Last visited

Everything posted by risjard

  1. Mine looks like this and works fine: "C:\WINDOWS\system32\WindowsPowerShell\v1.0\powershell.exe" "E:\Powershell_scripts\OSD_Provisioning_SCCM\email_OSD.ps1 '%msgsys' '%msgdesc'"
  2. OK, thx for confirmation and explanation.
  3. thx. I've read a lot information and I think I need the full WSUS installation on the CAS and primary sites and make the SUP's active software points. So I think when I have 5 primary sites there will be 5 wsus databases. I cannot imagine that's correct. Also I do not understand when I need to install the WSUS admin console only. I cannot think for a scenario like this. There are always clients in a primary sites and when this site needs be a active SUP a full WSUS is required. Please help to clarify this.
  4. I'm having some issues configuring SUP on the primary site SCCM 2012 wtih CAS server. I getting eventiD's 7000, 6600, 6703, etc. I will start all over again. What is the best practice for software updates? CAS: Full WSUS 3.0 SP2 with - local database - Active software update point on site server - port 8530/8531 - allow intranet only..... SUP role with "use this server as active server point" 8530 PRI: WSUS administrator console (or full WSUS with database?) SUP role with "use this server as active server point" 8530? thx
  5. Hello, I'm looking for a silent deployment solution for updating the firmware > 1000 SSD disks for an Optiplex 780. I hope someone already have a solution for this. The upgrade is a complex process. Maybe it isn't even possible...I can not found a silent/unattended parameter for execute the DOSRD1_0.EXE http://www.dell.com/support/drivers/us/en/555/DriverDetails/DriverFileFormats?DriverId=R276513&FileId=2731113924
  6. I have a simple script that can create collections from reading an excel sheet. All you is a sheet with A=Collection B=Comment C=GlobalGroup first row is for titles. Change the first four strxxx files with your environment settings. Normally I use this script for creating advertisements, packages, etc. I've cleaned up it a little bit. It is still dirty, but it works. I've trouble to run it on x64 win7, so I run it from XP x86. script: 'On Error Resume Next Option Explicit strServerNaam= "SERVER04" strSoftwareCollection="P0100173" strDomain1="DOMAINNAME" strQueryName = "AD Global Group Query" '-------------------------------------------------------------------------------------------------------------------------------- Dim strExcelPath, objExcel, objSheet, intRow, objExcel2, objSheet2 Dim strA, strB, strC Dim strQuery, strQueryName, strSoftwareCollection, strServerNaam, strPackageFolder, strAdvertisementFolder, strSetupRegel, strDomain1 Dim objUser, objFSO, initFSO, intErrorFound, objPath, strPath Dim objOSDetails(1) Dim objNewConsoleFolderItem, objNewConsoleadFolderItem, FolderIdentifier, adFolderIdentifier Dim objFolder, objadFolder, objSWbemLocator, objSWbemServices, ProviderLoc, Location, Site, newPackage, path, package, varPackageID, id, strGUID, newProgram, AllDPs, DP, newDP, Collection, varCollectionID, objloc, objSMS, results, Loc, strGetLine, instCollection, clsQueryRule, instQueryRule Dim newCollection, newAdvertisement adFolderIdentifier=0 FolderIdentifier=0 Set objPath = CreateObject ("Scripting.FileSystemObject") strPath = objPath.GetFolder(".") Set ObjFSO = CreateObject("UserAccounts.CommonDialog") ObjFSO.Filter = "Excel Files|*.xls|All Files|*.*" ObjFSO.InitialDir = strPath ObjFSO.FilterIndex = 3 InitFSO = ObjFSO.ShowOpen If InitFSO = False Then Wscript.Echo "Script Error: Install Excel" Wscript.Quit End If ' Spreadsheet file for import. strExcelPath = ObjFSO.Filename ' Bind to Excel object. On Error Resume Next Set objExcel = CreateObject("Excel.Application") If Err.Number <> 0 Then On Error GoTo 0 Wscript.Echo "Excel not found." Wscript.Quit End If On Error GoTo 0 ' Open spreadsheet. On Error Resume Next objExcel.Workbooks.Open strExcelPath If Err.Number <> 0 Then On Error GoTo 0 Wscript.Echo "Spreadsheet could not be opened: " & strExcelPath Wscript.Quit End If On Error GoTo 0 ' Bind to worksheet. Set objSheet = objExcel.ActiveWorkbook.Worksheets(1) 'eerste regel bevat kolomtitels begin bij regel 2 intRow = 2 REM A=Collection REM B=Comment REM C=GlobalGroup Do While objSheet.Cells(intRow, 1).Value <> "" strA = objSheet.Cells(intRow, 1).Value strB = objSheet.Cells(intRow, 2).Value strC = objSheet.Cells(intRow, 3).Value 'Controleer de input van de Excel file IntErrorFound = 0 If strA = "" Then IntErrorFound = 1 'Connect to provider namespace for computer. Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator") Set objSWbemServices= objSWbemLocator.ConnectServer(strServerNaam, "root\sms") Set ProviderLoc = objSWbemServices.InstancesOf("SMS_ProviderLocation") For Each Location In ProviderLoc If Location.ProviderForLocalSite = True Then Set objSWbemServices = objSWbemLocator.ConnectServer _ (Location.Machine, "root\sms\site_" + Location.SiteCode) Set Site = objSWbemServices.Get("SMS_Site='" & Location.SiteCode & "'") End If Next '-------------------------------------------------------------------------------------------------------------------------------- 'Maak de collection aan. Set newCollection = objSWbemServices.Get("SMS_Collection").SpawnInstance_() newCollection.Name = strA newCollection.OwnedByThisSite = True newCollection.comment = strB path=newCollection.Put_ 'Get collection ID Set Collection=objSWbemServices.Get(path) VarCollectionID= Collection.CollectionID 'Koppel Collection Dim newCollectionRelation Set newCollectionRelation = objSWbemServices.Get( "SMS_CollectToSubCollect" ).SpawnInstance_() newCollectionRelation.parentCollectionID = strSoftwareCollection newCollectionRelation.subCollectionID = VarCollectionID newCollectionRelation.Put_ '-------------------------------------------------------------------------------------------------------------------------------- 'AD Query strQuery = "select SMS_R_SYSTEM.ResourceID,SMS_R_SYSTEM.ResourceType,SMS_R_SYSTEM.Name,SMS_R_SYSTEM.SMSUniqueIdentifier,SMS_R_SYSTEM.ResourceDomainORWorkgroup,SMS_R_SYSTEM.Client from SMS_R_System where SMS_R_System.SystemGroupName = ' "& strDomain1 & "\\" & strC & "'" Set objLoc = CreateObject("WbemScripting.SWbemLocator") Set objSMS = objLoc.ConnectServer(strServerNaam, "root\sms") Set Results = objSMS.ExecQuery("SELECT * From SMS_ProviderLocation WHERE ProviderForLocalSite = true") For Each Loc In Results If Loc.ProviderForLocalSite = True Then Set objSMS = objLoc.ConnectServer(Loc.Machine, "root\sms\site_" & Loc.SiteCode ) End If Next strGetLine = "SMS_Collection.CollectionID='" & VarCollectionID & "'" Set instCollection = objSMS.Get("SMS_Collection.CollectionID='" & VarCollectionID & "'") Set clsQueryRule = objSMS.Get("SMS_CollectionRuleQuery") Set instQueryRule = clsQueryRule.SpawnInstance_ instQueryRule.QueryExpression = strQuery instQueryRule.RuleName = strQueryName instCollection.AddMembershipRule instQueryRule intRow = intRow + 1 Loop '-------------------------------------------------------------------------------------------------------------------------------- 'Close the workbook. objExcel.ActiveWorkbook.Close 'Quit Excel input objExcel.Application.Quit 'Clean up. Set objUser = Nothing Set objExcel = Nothing Set objSheet = Nothing Wscript.Echo "Done!."
  • Create New...