Re: VBScript Mandatory Assignment

I have found a vbscript to delete mandatory assignments.

Now I am trying to add a new mandatory replacement assignment.

I have following script, but I am getting errors. Can someone help me find
the issue?? I am getting type mismatch errors.

strSMSServer = "SMSServer"
strAdvertID = "HSC2016D"

advAssignedSchedule = "12/02/2008"

set objLoc = CreateObject("WbemScripting.SWbemLocator")
Set objSMS = objLoc.ConnectServer(strSMSServer, "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)
strSMSSiteCode = Loc.SiteCode
end if
Next

'create a nonrecurring schedule token
Set instToken = objSMS.Get("SMS_ST_NonRecurring"). _
SpawnInstance_()

instToken.StartTime = ConvertToWMIDate(advAssignedSchedule)
retval = AddSchedToken(instToken,strAdvertID)

Function AddSchedToken(objSchedtoken, strAdvertID)
'enlarge the current schedlue array by 1
Set objAdvert=objSMS.Get ("SMS_Advertisement.AdvertisementID='" &
strAdvertID & "'")
advertArray = objAdvert.AssignedSchedule
onemore = unbound(advertArray) + 1
redim preserve advertArray(onemore)
objAdvert.AssignedSchedule = advertArray

'add the new assignment
objAdvert.AssignedSchedule(onemore) = objSchedToken
objAdvert.AssignedScheduleEnabled = True
AddSchedToken = objAdvert.Put_
end Function


Function ConvertToWMIDate(strDate)
'Convert from a standard date time to wmi date
'4/18/2005 11:30:00 AM = 2005041811300.000000+***
stryear= year(strDate)
strMonth=month(strDate)
strDay=day(strDate)
strHour=hour(strDate)
strMinute=minute(strDate)

'Pad single digits with a leading zero
if len(strmonth) = 1 then strMonth = "0" & strMonth
if len(strDay) = 1 then strDay = "0" & strDay
if len(strMinute) = 1 then strMinute = "0" & strMinute
ConvertToWMIDate = strYear & strMonth & strDay & strHour & strMinute &
"00.000000+***"
end function







"Garth" <Spam@xxxxxxx> wrote in message
news:DF5E1D5B-6FA1-4057-A7B7-0CE81F79B910@xxxxxxxxxxxxxxxx
Take a look at a booked called SMS 2003 Recipes,
http://www.amazon.com/SMS-2003-Recipes-Problem-Solution-Approach/dp/1590597125/ref=pd_bbs_sr_1?ie=UTF8&s=books&qid=1200575811&sr=8-1
it has many vbs scritp that you might be able to modify to do what you
need.


"Karl Young" <keyoung@xxxxxxxxxx> wrote in message
news:ulCHKZGWIHA.4440@xxxxxxxxxxxxxxxxxxxxxxx
We are not able to go to ConfigMgr 2007 til next year.

I still need the programing solution.

Thank you,
Karl Young

"Garth" <Spam@xxxxxxx> wrote in message
news:A8217A37-2B74-44DB-8830-EF3B3283A112@xxxxxxxxxxxxxxxx
It sound like you need maintenance windows setup and for that you should
look at ConfigMgr 2007.


"Karl Young" <keyoung@xxxxxxxxxx> wrote in message
news:%23nbUVo$VIHA.4768@xxxxxxxxxxxxxxxxxxxxxxx
The below script adds a new mandatory assignment. Is there a way to
remove or replace the current mandatory assignment and replace it with
a new schedule via script??


The reason is that due to bandwith restrictions, I need to restrict the
running of advertisements to a predefined schedule.

I have a script to modify the start time and the expiration date, but I
cannot find one that will remove the existing mandatory assignment and
replace it with a new date.

There is also a script that will add new mandatory assignment, but not
remove the old mandatory assignments in order to replace them below.

Thanks in Advance,
Karl Young
MCSE


' This script was made with the help of Greg Ramsey and his MMS 2005
presenstation on scripting the site server
' This script will modify the local/remote features of an advertisement
or all advertisements at a given site


***************Replace Start Time and Expiration time*************

' Declare SMS constants
Const SMSServer = "SMSServer"
Const SMSSiteCode = "SiteCode"
Const ProcessAllAdverts = 0 ' (0/1) ' (WARNING) If set to 1 the script
ignores the AdvertID constant and makes the

change to every advertisement found.
Const AdvertID = "XXXXX" ' Specify advertisement ID if
ProcessAllAdverts = 0

' RemoteClientFlags (
Const RunLocal_DoNotRunRemote = 40
Const RunLocal_RunRemote = 136
Const RunLocal_DownloadRemote = 72
Const DownloadLocal_DoNotRunRemote = 48
Const DownloadLocal_DownloadRemote = 80



' Set your desired advertisement flag here
myDesiredFlag = RunLocal_RunRemote


' Setup connection to sms server
Set loc = CreateObject("WbemScripting.SWbemLocator")
Set objSMS = loc.ConnectServer(SMSServer, "root\SMS\Site_" &
SMSSiteCode)
Dim ObjAdvert

' Check to see if all advertisements are needing modifying or only one
If ProcessAllAdverts = 1 Then
Set objAdvertisements = objSMS.ExecQuery("select AdvertisementID from
SMS_Advertisement where SourceSite = '" & _
SMSSiteCode & "' AND RemoteClientFlags <> '" & myDesiredFlag & "'")

'Loop thr all advertisementIDs to get the object reference of each
For Each AdvID in objAdvertisements

' Get direct reference to object using advertisementID's
Set objAdvert = objSMS.Get("SMS_Advertisement.AdvertisementID='" &
AdvID.AdvertisementID & "'")

' Set remote client flags and save object
objAdvert.ExpirationTime = datetime
objAdvert.Put_
Next
Else
' Get direct reference to object using advertisementID
Set objAdvert = objSMS.Get("SMS_Advertisement.AdvertisementID='" &
AdvertID & "'")



formattedmonth= month(now)

If len(formattedmonth)=1 Then formattedmonth = "0" & formattedmonth
formattedday= day(now)
If len(formattedday)=1 Then formattedday = "0" & formattedday
datetime = year(now) & formattedmonth & formattedday &
left(formatdatetime(now, 4),2) &

right(formatdatetime(now, 4),2) & "00.000000+***" 'create a value
for the time when the ad should expire.
'Default to + 1/2 year, but it's not enabled.
formattedmonth= month(DateAdd( "d",182, now))
If len(formattedmonth)=1 Then formattedmonth = "0" & formattedmonth
formattedday= day(DateAdd( "d",182, now))
If len(formattedday)=1 Then formattedday = "0" & formattedday
expdatetime = year(DateAdd( "d",182, now)) & formattedmonth &
formattedday & left(formatdatetime(DateAdd(

"d",182, now), 4),2) & right(formatdatetime(DateAdd( "d",182, now),
4),2) & "00.000000+***"


'expdatetime = 20080415144400.000000+***

wscript.echo datetime
wscript.echo expdatetime

advertArray = objAdvert.AssignedSchedule
redim preserve advertArray(1)

' Set expirationtime and save object
objAdvert.Presenttime=datetime
objAdvert.AssignedSchedule(advertArray)=datetime
objAdvert.AssignedScheduleEnabled=True
objAdvert.ExpirationTime = expdatetime
objAdvert.Put_



Wscript.echo "Complete"

End If

My Script:

' This script was made with the help of Greg Ramsey and his MMS 2005
presenstation on scripting the site server
' This script will modify the local/remote features of an advertisement
or all advertisements at a given site

' Declare SMS constants
Const SMSServer = "HSCSMS01"
Const SMSSiteCode = "HSC"
Const ProcessAllAdverts = 0 ' (0/1) ' (WARNING) If set to 1 the script
ignores the AdvertID constant and makes the

change to every advertisement found.
Const AdvertID = "HSC2016D" ' Specify advertisement ID if
ProcessAllAdverts = 0

' RemoteClientFlags (
Const RunLocal_DoNotRunRemote = 40
Const RunLocal_RunRemote = 136
Const RunLocal_DownloadRemote = 72
Const DownloadLocal_DoNotRunRemote = 48
Const DownloadLocal_DownloadRemote = 80



' Set your desired advertisement flag here
myDesiredFlag = RunLocal_RunRemote


' Setup connection to sms server
Set loc = CreateObject("WbemScripting.SWbemLocator")
Set objSMS = loc.ConnectServer(SMSServer, "root\SMS\Site_" &
SMSSiteCode)
Dim ObjAdvert

' Check to see if all advertisements are needing modifying or only one
If ProcessAllAdverts = 1 Then
Set objAdvertisements = objSMS.ExecQuery("select AdvertisementID from
SMS_Advertisement where SourceSite = '" & _
SMSSiteCode & "' AND RemoteClientFlags <> '" & myDesiredFlag & "'")

'Loop thr all advertisementIDs to get the object reference of each
For Each AdvID in objAdvertisements

' Get direct reference to object using advertisementID's
Set objAdvert = objSMS.Get("SMS_Advertisement.AdvertisementID='" &
AdvID.AdvertisementID & "'")

' Set remote client flags and save object
objAdvert.ExpirationTime = datetime
objAdvert.Put_
Next
Else
' Get direct reference to object using advertisementID
Set objAdvert = objSMS.Get("SMS_Advertisement.AdvertisementID='" &
AdvertID & "'")




************Add Advertisement Script******************

Script from below to add a new mandatory assignment:

It came from 'SMS 2003 Recipies' by Greg Ramsey
and Warren Byle.

strSMSServer = <SMSServer>

strAdvertID = "LAB20016"
'"Occurs every 10 minutes beginning now()"
'For advStartTime, 'Now()' is used to get the current
'date/time of the system. A properly fomatted date/time would
'just fine here also: e.g., "12/02/2006 12:59 AM"
advStartTime = Now()

Set objLoc = CreateObject("WbemScripting.SWbemLocator")
Set objSMS= objLoc.ConnectServer(strSMSServer, "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)
strSMSSiteCode = Loc.Sitecode
end if
Next

'''''''''''''Schedule Token Information
'Create a new instance of SMS_ST_RecurInterval
Set advNewRecurToken = objSMS.Get("SMS_ST_RecurInterval"). _
SpawnInstance_()
advNewRecurToken.MinuteSpan=10
advNewRecurToken.StartTime = ConvertToWMIDate(advStartTime)
'''''''''''''END Schedule Token Information

retval = AddSchedToken(advNewRecurToken,strAdvertID)

Function AddSchedToken(objSchedToken, strAdvertID)
'enlarge the current schedule array by 1
Set objAdvert=objSMS.Get _
("SMS_Advertisement.AdvertisementID='" & strAdvertID & "'")
advertArray = objAdvert.AssignedSchedule
onemore = ubound(advertArray) + 1
redim preserve advertArray(onemore)
objAdvert.AssignedSchedule = advertArray
'add the new assignment
objAdvert.AssignedSchedule(onemore) = objSchedToken
objadvert.AssignedScheduleEnabled = True
AddSchedToken = objAdvert.Put_
End Function

Function ConvertToWMIDate(strDate)
'Convert from a standard date time to wmi date
'4/18/2005 11:30:00 AM = 2005041811300.000000+***
strYear = year(strDate):strMonth = month(strDate)
strDay = day(strDate):strHour = hour(strDate)
strMinute = minute(strDate)
'Pad single digits with leading zero
if len(strmonth) = 1 then strMonth = "0" & strMonth
if len(strDay) = 1 then strDay = "0" & strDay
if len(strHour) = 1 then strHour = "0" & strHour
if len(strMinute) = 1 then strMinute = "0" & strMinute
ConvertToWMIDate = strYear & strMonth & strDay & strHour _
& strMinute & "00.000000+***"
end function









.

Relevant Pages

  • VBScript Mandatory Assignment
    ... The below script adds a new mandatory assignment. ... Const SMSSiteCode = "SiteCode" ... change to every advertisement found. ...
    (microsoft.public.sms.admin)
  • Re: VBScript Mandatory Assignment
    ... I have a script to modify the start time and the expiration date, but I cannot find one that will remove the existing mandatory assignment and replace it with a new date. ... ' This script will modify the local/remote features of an advertisement or all advertisements at a given site ... Const SMSSiteCode = "SiteCode" ...
    (microsoft.public.sms.admin)
  • Re: VBScript Mandatory Assignment
    ... I have a script to modify the start time and the expiration date, but I cannot find one that will remove the existing mandatory assignment and replace it with a new date. ... ' This script will modify the local/remote features of an advertisement or all advertisements at a given site ... Const SMSSiteCode = "SiteCode" ...
    (microsoft.public.sms.admin)
  • Re: VBScript Mandatory Assignment
    ... I have a script to modify the start time and the expiration date, ... ' This script will modify the local/remote features of an advertisement ... Const SMSSiteCode = "SiteCode" ... ' Get direct reference to object using advertisementID's ...
    (microsoft.public.sms.admin)
  • Re: Misc OSD Problems
    ... >> resolution not what the original machine had. ... this script let me know. ... >> appears) the advertisement runs again and a box giving a count down until ... W2KPro PC gets advert to upgrade to WinXP. ...
    (microsoft.public.sms.tools)
Loading