Re: Distributing Software "Quickly" to Bare Metal Installs
You could also consider using user groups to distribute that software. Using
user groups you don't have to wait for collections to update (actually you
don't need to run a refresh schedule on those collections) and normally it
will start distributing that software about 3-5 minutes after the first user
logs on the client.
/Rune
"Mark Holland" <MarkHolland@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:425CAB31-18E1-445B-9377-A796B3474310@xxxxxxxxxxxxxxxx
> Thanks :)
>
> "Kim Oppalfens <MVP>" wrote:
>
>>
>> Nope, never seen any script like it, I just tought it would be a feasible
>> idea.
>> I have absolutely no clue where you could find a script like that ;-)
>>
>> '*************************************************************************
>> ' Trigger collection update script to speed up initial sms package
>> installation
>> ' after new computer deployment
>> '
>> ' Script By Kim Oppalfens - MVP SMS
>> ' Telindus Belgium
>> '
>> '
>> '*************************************************************************
>> Dim objSwbemLocator
>> Dim objSWbemServices
>> Dim ProviderLoc
>> Dim Location
>> Dim objCollection
>> Dim ModelName
>> Dim objcomputer
>> Dim strComputer
>>
>> strComputer = "."
>> Set objSWBemServices = GetObject("winmgmts:" _
>> & "{impersonationLevel=impersonate}!\\" _
>> & strComputer & "\root\cimv2")
>>
>> Set objcomputer = objSWbemServices.ExecQuery _
>> ("Select Model from Win32_ComputerSystem")
>>
>> For each computer in objcomputer
>> If instr(computer.model,"nx8220") <> 0 Then ModelName = "nx8220"
>> If instr(computer.model,"nc8000") <> 0 Then ModelName = "nc8000"
>> If instr(computer.model,"n620c") <> 0 Then ModelName = "n620c"
>> If instr(computer.model,"nc8230") <> 0 Then ModelName = "nc8230"
>> Next
>>
>> set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
>>
>> set objSWbemServices= objSWbemLocator.ConnectServer _
>> ("TBE1MS3", "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)
>> End If
>> Next
>>
>> Select Case ModelName
>> Case "nx8220"
>> Set objCollection = objSWbemServices.ExecQuery _
>> ("Select * from SMS_Collection where Name='TBE1_QR_NX8220'")
>> Case "nc8000"
>> Set objCollection = objSWbemServices.ExecQuery _
>> ("Select * from SMS_Collection where Name='TBE1_QR_NC8000'")
>> Case "n620c"
>> Set objCollection = objSWbemServices.ExecQuery _
>> ("Select * from SMS_Collection where Name='TBE1_QR_N620C'")
>> Case "nc8230"
>> Set objCollection = objSWbemServices.ExecQuery _
>> ("Select * from SMS_Collection where Name='TBE1_QR_NC8230'")
>> Case Else
>> msgbox "Unknown model Format, please revise the script"
>> End Select
>>
>>
>> For each col in objCollection
>> col.RequestRefresh False
>> Next
>>
>> '*********************************************************************************
>>
>> 'End Of Script
>>
>> '*********************************************************************************
>>
>>
>> --
>> Kim Oppalfens
>> Telindus Belgium
>> MVP Windows Server System - SMS
>> "Mark Holland" <MarkHolland@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
>> news:7C13BAC2-64AE-41A8-9479-568DB528116A@xxxxxxxxxxxxxxxx
>> > Thanks Kim!
>> >
>> > Is there any example scripts you can point me at?
>> >
>> > Thanks
>> >
>> > "Kim Oppalfens <MVP>" wrote:
>> >
>> >> sure, just execute a script that makes the relevant collections
>> >> update.
>> >> Run this script at the end of your install sequence.
>> >>
>> >> --
>> >> Kim Oppalfens
>> >> Telindus Belgium
>> >> MVP Windows Server System - SMS
>> >> "Mark Holland" <MarkHolland@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in
>> >> message
>> >> news:6B63CCBF-6747-4002-886E-291E5EF483DB@xxxxxxxxxxxxxxxx
>> >> > Hello,
>> >> >
>> >> > We are using SMS to distribute a bare metal OS installation of XP
>> >> > Professional. The SMS client is installed in the build. I understand
>> >> > it
>> >> > registers automatically in the SMS database so it does not need to
>> >> > be
>> >> > discovered using the defined "Discovery Methods"
>> >> >
>> >> > I am having a hard time trying to work out when the collections
>> >> > update
>> >> > their
>> >> > memberships with the newly discovered client. I "believe" the
>> >> > collections
>> >> > will be only updated at the Scheduled update time i.e. 1 day.
>> >> >
>> >> > Basically what I want is when a new XP workstation is installed with
>> >> > the
>> >> > advanced client I want the workstation to automatically install the
>> >> > "common
>> >> > applications" within a short timeframe without having to perform any
>> >> > action
>> >> > on the SMS console.
>> >> >
>> >> > Is this possible?
>> >> >
>> >> > Thanks
>> >> >
>> >> > Mark
>> >>
>> >>
>> >>
>>
>>
>>
.
Relevant Pages
- SSIS Script Task Error - Unspecified Error
... I have 11 different scripts like for different SMS queries. ... ' Microsoft SQL Server Integration Services Script Task ... Dim Locator As New SWbemLocator ... Dim SMSProviderSitecode As String ...
(microsoft.public.sqlserver.dts) - Re: Distributing Software "Quickly" to Bare Metal Installs
... MVP Windows Server System - SMS ... I have absolutely no clue where you could find a script like that;-) ... Set objCollection = objSWbemServices.ExecQuery _ ...
(microsoft.public.sms.swdist) - Re: Qryedit and SMS 2003
... That's it just run the script export to txt, ... Dim objFSO, WmiQuery, objWmiService, query, colQuery, oFile ... reimporting to sms 2003") ... import/export queries") ...
(microsoft.public.sms.misc) - RE: Scripting Export List for a Query
... SMS console... ... When I wrote the next script to make an export, using the same query into ... Dim Location ...
(microsoft.public.sms.misc) - Re: Distributing Software "Quickly" to Bare Metal Installs
... > Nope, never seen any script like it, I just tought it would be a feasible> idea. ... > ' Script By Kim Oppalfens - MVP SMS ... > Dim objSWbemServices ... > Set objCollection = objSWbemServices.ExecQuery _ ...
(microsoft.public.sms.swdist) |
|
