Configuration Manager SDK Forum

Scripting address creation

Wed, 25 Nov 2009 16:18:24 Z

Has anyone tried using the Technet vb script for creating multiple Addresses in SMS 2003 on an SCCM site? I have a single primary site running SCCM 2007 SP2 with SQL server 2008 SP1 running on the same box. The script does successfully create the address, but on the Rate Limits tab, 'Unlimited when sending to this address' is selected instead of 'Limited to specified'. In my script I am creating an array of 24 transfer rates for each hour of the day. It works great on SMS 2003 SP3 sites. I can see in the site control file that when I create an address manually with the settings I want, it has the following text in the address, whereas the ones created by my script are missing this.

    BEGIN_PROPERTY_LIST
        <Pulse Mode>
        <0>
        <3>
        <5>
    END_PROPERTY_LIST

Here is the script I am using. It is based on the script provided by Microsoft here: http://technet.microsoft.com/en-us/library/cc180643.aspx

dim rateArray(24)
Dim strSecSiteServer
Dim strSecSiteCode
Dim strSiteServer
Dim strSiteCode
Dim WbemContext
Dim WbemServices
Dim WbemInst
Dim objArgs
Dim lLocator
Dim newep1
Dim newep2
rateArray(0)= 90
rateArray(1)= 90
rateArray(2)= 90
rateArray(3)= 90
rateArray(4)= 90
rateArray(5)= 90
rateArray(6)= 90
rateArray(7)= 90
rateArray(8)= 25
rateArray(9)= 25
rateArray(10)= 25
rateArray(11)= 25
rateArray(12)= 25
rateArray(13)= 25
rateArray(14)= 25
rateArray(15)= 25
rateArray(16)= 25
rateArray(17)= 25
rateArray(18)= 25
rateArray(19)= 25
rateArray(20)= 25
rateArray(21)= 50
rateArray(22)= 90
rateArray(23)= 90
strSiteCode="ABC"
strSiteServer="SCCM01"
Set objArgs = WScript.Arguments
If objArgs.Count < 1 Then WScript.Quit
strSecSiteCode = objArgs(0)
strSecSiteServer = "SERVER" & strSecSiteCode
WScript.Echo strSecSiteCode
Set objArgs = Nothing
Set lLocator = CreateObject("WbemScripting.SWbemLocator")
Set WbemServices = lLocator.ConnectServer(strSiteServer, "root\sms\site_" & strSiteCode)
set WbemContext=CreateObject("WbemScripting.SWbemNamedValueSet")
WbemContext.Add "SessionHandle",WbemServices.ExecMethod("SMS_SiteControlFile","GetSessionHandle").SessionHandle
WbemServices.ExecMethod "SMS_SiteControlFile.Filetype=2,Sitecode=""" & strSiteCode & """", "Refresh", , , WbemContext
'Spawn an SMS_SCI_Address instance
Set WbemInst = WbemServices.Get("SMS_SCI_Address").SpawnInstance_()
wbeminst.AddressType = "MS_LAN"
wbeminst.DesSiteCode = strSecSiteCode
wbeminst.ItemName = strSecSiteCode & "|MS_LAN"
wbeminst.ItemType = "Address"
wbeminst.Order = 1
wbeminst.SiteCode = strSiteCode
wbeminst.UnlimitedRateForAll = 0
wbeminst.RateLimitingSchedule = rateArray
Set newep1 = WbemServices.Get("SMS_EmbeddedProperty").SpawnInstance_()
newep1.PropertyName = "Connection Point"
newep1.Value = 0
newep1.Value1 = strSecSiteServer
newep1.Value2 = "SMS_SITE"
Set newep2 = WbemServices.Get("SMS_EmbeddedProperty").SpawnInstance_()
newep2.PropertyName = "LAN Login"
newep2.Value = 0
wbeminst.Props = Array(newep1, newep2)
wbeminst.Put_ , WbemContext
'comment
WbemServices.ExecMethod "SMS_SiteControlFile.Filetype=1,Sitecode=""" & strSitecode & """", "Commit", , , WbemContext
WbemServices.Get("SMS_SiteControlFile").ReleaseSessionHandle WbemContext.Item("SessionHandle").Value
WScript.Sleep (30000)

VBScript & ImportSequence

Tue, 24 Nov 2009 15:53:27 Z

Hi,

I know its bad form to just ask for code but I haven't got a clue where to start, I've been looking creating a script to import a task sequence, I've found the SMS_TaskSequencePackage::ImportSequence function, I'd like to write the script in VBScript, any help?

Thanks

Jason

Computastar

Function to set Parent Site,

Wed, 25 Nov 2009 14:38:01 Z

I'm trying to work out how to create a vbscript to set the Parent Site code, any pointers would be gratefully received

Computastar

How to monitor a SCCM (SMS 4) Machine Policy Retrieval & Evaluation Cycle

Wed, 18 Nov 2009 04:18:23 Z

Hi, i am after a vbscript method to monitor when a Machine Policy Retrieval & Evaluation Cycle is in progress, because it can take several minitues to complete I would like my script to wait until the process has completed before continuing.

This is the code used to start the process:

On Error Resume Next



Dim oCPAppletMgr 'Control Applet manager object. 

Dim oClientAction 'Individual client action. 

Dim oClientActions 'A collection of client actions. 



'Get the Control Panel manager object. 

Set oCPAppletMgr = CreateObject("CPApplet.CPAppletMgr") 

If Err.Number <> 0 Then

    Wscript.Echo "Couldn’t create control panel application manager" 

    WScript.Quit 

End If



'Get a collection of actions. 

Set oClientActions = oCPAppletMgr.GetClientActions 

If Err.Number <> 0 Then

    WScript.Echo "Couldn’t get the client actions" 

    Set oCPAppletMgr = Nothing

    WScript.Quit 

End If



'Display each client action name and perform it.

For Each oClientAction In oClientActions



    If oClientAction.Name = "Request & Evaluate Machine Policy" Then

        WScript.Echo "Performing action " + oClientAction.Name 

        oClientAction.PerformAction 

    End If

Next 





Set oClientActions = Nothing

Set oCPAppletMgr = Nothing

any help would be great.

Regards
Rodney

EDIT: I am using SCCM (SMS version 4)

How to READ Collectionrules ?

Sun, 22 Nov 2009 18:53:15 Z

Hi there,
i´ve read a lot of threads which describe adding rules to a collection via script. In my case i have to READ rules (query or static rules)
of a collection. My script uses WMI. Here is a snippet of my Script:

Set objWMIService = GetObject("winMgmts:{impersonationLevel=impersonate}!\\" & strSiteServer & "\root\sms\site_" & strSiteCode)
 Set ergCollections = objWMIService.ExecQuery("select * from SMS_Collection")

 For Each ergCollection In ergCollections
    RuleSet = ergCollection.CollectionRules

    Debug.Print ergCollection.CollectionID
    Debug.Print ergCollection.CollectionRules
    For Each Rule In RuleSet
       Debug.Print Rule.RuleName
    Next
 Next

U can see, i want to show all Collection with their Rules, but this way the Result is everytime NULL . The Class sms_collectionruledirect or sms_collectionrulequery has no instances.
What is the correct way to show the collection-rules?

p.s.: The reason why i have to do this is to export whole trees of collections. I need this for a kind of migration. If someone know a script to do this, please tell me :)
The export function of the sccm-console only export the parent node and ONE child node. I need all child-nodes :)

greets nico

Computers added programmatically (vbscript) into SCCM collection, do not PXE boot...

Fri, 13 Nov 2009 12:20:57 Z

Hi All,

I'd like to curtail the whole explanation of what my needs are etc, and just get to the problem at hand. It is the last hurdle in a process that I have developed, and if i can get this fixed, i've realised something quite cool (which I will gladly share if i can get it to work!)

Essentially, using some sample code from the SDK, i've got a VBScript patched together which adds computers into a predetermined SCCM collection (which coincidentally has a PXE OSD advertisement on it).

My issue is that the computers added via this VBScript don't seem to be able to PXE boot.

I receive this on the computers in question when attempting to boot via PXE:

CLIENT MAC ADDR: 01 01 01 01 01 01 GUID: 123456 23423 234 ......
PXE-E53: No boot filename received

PXE-M0F: Exiting Intel Boot Agent.

Here is the vbscript we are using (based heavily off the samples in the SDK):

'Usage:
' cscript sccmsubmitpc.vbs <hostname> <MAC> <GUID>
'

Dim sComputername
Dim sGUID
Dim sMAC
Dim sPassword
Dim sUser

Set Ag=Wscript.Arguments

sComputername=Ag.item(0)
sMac=Ag.item(1)
sGuid=Ag.item(2)

sUser = "account"
sPassword = "password"

Set conxion = Connect("SCCMDBSERVER", sUser, sPassword)
AddNewComputer conxion, sComputername, sGUID, sMAC

Function Connect(server, userName, userPassword)

    On Error Resume Next

    Dim net
    Dim localConnection
    Dim swbemLocator
    Dim swbemServices
    Dim providerLoc
    Dim location

    Set swbemLocator = CreateObject("WbemScripting.SWbemLocator")

    swbemLocator.Security_.AuthenticationLevel = 6 'Packet Privacy.

    ' If the server is local, don't supply credentials.
    Set net = CreateObject("WScript.NetWork")

    If UCase(net.ComputerName) = UCase(server) Then
        localConnection = true
        userName = ""
        userPassword = ""
        server = "."
    End If

    ' Connect to the server.
    Set swbemServices= swbemLocator.ConnectServer(server, "root\sms",userName,userPassword)

    If Err.Number<>0 Then
        Wscript.Echo "Couldn't connect: " + Err.Description
        Connect = null
        Exit Function
    End If

' Determine where the provider is and connect.
Set providerLoc = swbemServices.InstancesOf("SMS_ProviderLocation")

        For Each location In providerLoc
            If location.ProviderForLocalSite = True Then
                Set swbemServices = swbemLocator.ConnectServer(location.Machine, "root\sms\site_" + location.SiteCode,userName,userPassword)
                If Err.Number<>0 Then
                    Wscript.Echo "Couldn't connect:" + Err.Description
                    Connect = Null
                    Exit Function
                End If
                Set Connect = swbemServices
                Exit Function
            End If
        Next
    Set Connect = null ' Failed to connect.
End Function

Sub AddNewComputer (connection, netBiosName, smBiosGuid, macAddress)

    Dim inParams
    Dim outParams
    Dim siteClass
    Dim collection
    Dim collectionRule

    If (IsNull(smBiosGuid) = True) And (IsNull(macAddress) = True) Then
    WScript.Echo "smBiosGuid or macAddress must be defined"
    Exit Sub
    End If

    If IsNull(macAddress) = False Then
    macAddress = Replace(macAddress,"-",":")
    End If

    ' Obtain an InParameters object specific
    ' to the method.

    Set siteClass = connection.Get("SMS_Site")
    Set inParams = siteClass.Methods_("ImportMachineEntry"). inParameters.SpawnInstance_()

    ' Add the input parameters.
    inParams.Properties_.Item("MACAddress") = macAddress
    inParams.Properties_.Item("NetbiosName") = netBiosName
    inParams.Properties_.Item("OverwriteExistingRecord") = False
    inParams.Properties_.Item("SMBIOSGUID") = smBiosGuid
    ' Add the computer.
    Set outParams = connection.ExecMethod("SMS_Site", "ImportMachineEntry", inParams)

    ' Add the computer to the all systems collection.
    set collection = connection.Get("SMS_Collection.CollectionID='AIM00048'")
    set collectionRule=connection.Get("SMS_CollectionRuleDirect").SpawnInstance_

    collectionRule.ResourceClassName="SMS_R_System"
    collectionRule.ResourceID= outParams.ResourceID

    collection.AddMembershipRule collectionRule

End Sub

I remember during my development of this whole solution (this submitting pc to a deployment collection is just part of a whole custom system), that I came across someone who had the same issue.... programmatically created computer objects couldn't pxe boot...
when i tried to hunt down that forum post recently, i couldnt find it.
all i can remember was that there was a mention of the type of resource or what not, but again, that is from memory, and it is quite vague, and may or may not have anything to do with the solution.

When comparing the programmatically added computer to discovery created computer objects, there ARE some differences in the properties of each, but im not quite sure if that could be part of the solution to this...
If you think the info could help, let me know, and ill post some screenshots...

Thanks for taking the time to look at my question !

Cheers,

Jamie

How to determine what type a step is, from the list of task sequence steps

Sat, 21 Nov 2009 03:09:38 Z

Once I have an array of step from a Task Sequence how can I determine what type of step each one is. ie: is the step an Install Software, Restart Computer or Command Line etc.

There doesn't appear to be a property that tells the class or type for the action.

Thanks for any help
Rodney

No TaskSequence Variables were set

Wed, 11 Nov 2009 11:51:18 Z

I'm using a vb script(with tsmediaapi.dll Version 4.0.5931.0) to create a standalone TaskSequence Media. In the script I define a TaskSequenceVaribable. The script says the image were successfully created. I can boot the image an everything works fine, except my Variable(s) is(are) not set in SCCM Environment. The Script:
iResult=fCreateStandaloneMedia("server_sccm","MYSITE","server_dp","",_
    "SBW Stand alone media","CD",_
    "d:\test_var.iso",_
    "6000","is_secret","MYSITE000","DVD=TRUE")
if iResult = 0 then
    wscript.echo " Creating of StandaloneMedia successfully completed."
else
    wscript.echo " Creating of StandaloneMedia finished with errors."
end if
wscript.quit iResult

function fCreateStandaloneMedia(sProviderName,sSCCMSite,sDistributionPoints,sConnectionOptions,sMediaLabel,_
        sMediaType,sDestinationPath,iMediaSizeInMB,sMediaPassword,sTaskSequenceId,sTaskSequenceVariables)
    Dim oTSmedia
    Dim hr
    Set oTSmedia = CreateObject("Microsoft.ConfigMgr.TsMedia")
    ' Change these properties according to your configuration.
    oTSmedia.ProviderName = sProviderName
    oTSmedia.SiteCode = sSCCMSite
    oTSmedia.DistributionPoints = sDistributionPoints
    oTSmedia.ConnectionOptions = sConnectionOptions
    oTSmedia.MediaLabel = sMediaLabel

    wscript.echo " TSVAR: " & sTaskSequenceVariables
    hr= oTSmedia.CreateStandaloneMedia( sMediaType, _
            sDestinationPath,        _
            iMediaSizeInMB,              _
            sMediaPassword,          _
            sTaskSequenceId,         _
            sTaskSequenceVariables, _
            true)

    While oTSmedia.Status = 0
          WScript.Echo oTSmedia.CurrentStep & "/" & oTSmedia.NumSteps & _
          " (" & oTSmedia.StepProgress & ") " & oTSmedia.StepInfo
          WScript.sleep 1000
    Wend
    WScript.Echo "Boot media creation finished with result = 0x" & Hex(oTSmedia.ExitCode) & " " & oTSmedia.ErrorDetail
    fCreateStandaloneMedia=oTSmedia.ExitCode
End function

Anything wrong?

How to create a branch Distribution Point using de SDK

Tue, 20 Nov 2007 15:16:55 Z

I have this script to create a Distribution Point. Anyone Knows what I have to add to create a Branch Distribution? Also I would like to make the BDP protected.

Any Idea?

Dim objSWbemLocator
Dim objSWbemServices
Dim ProviderLoc
Dim Location
Dim objSWbemContext
Dim SCI_SysResUseComponent
Dim SCI_SysResUseComponentSet
Dim sitecode

Dim siteserver
Dim username
Dim password
Dim objNewShare
Dim lasterr
Dim NALPath
Dim clsNALMethods

sitecode="C00"
NomBranchDP="ServidorTest4"
'Connect to the Site SMS provider
Wscript.echo "Connect to the Site SMS provider"

Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objSWbemServices = objSWbemLocator.ConnectServer( , "root\sms\site_" & sitecode )

'Open the Site Control File
Wscript.echo "Open the Site Control File"
Set objSWbemContext = CreateObject("WbemScripting.SWbemNamedValueSet")
objSWbemContext.Add "SessionHandle",ObjSWbemServices.ExecMethod("SMS_SiteControlFile", "GetSessionHandle").SessionHandle
objSWbemServices.ExecMethod "SMS_SiteControlFile.Filetype=1,Sitecode=""" & sitecode & """", "Refresh", , , objSWbemContext

Wscript.echo "Creating New DP..."
Set clsNALMethods = objSWbemServices.Get("SMS_NAL_Methods")
clsNALMethods.PackNALPath Array("Display=\\"& NomBranchDP &""), "MSWNET", "\\"& NomBranchDP &"", Array("SMS_SITE=SITECODE"), NALPath

Set objNewShare = objSWbemServices.Get("SMS_SCI_SysResUse").SpawnInstance_()

objNewShare.NetworkOSPath=Null
objNewShare.Props=Null
objNewShare.SiteCode=sitecode

objNewShare.NALPath=NALPath

'objNewShare.NALType="Windows NT Share"
objNewShare.NALType="MSWNET"
objNewShare.RoleName="SMS Site System"

objNewShare.Put_ , objSWbemContext
objNewShare.RoleName="SMS Distribution Point"
objNewShare.Put_ , objSWbemContext

If Err <> 0 Then
set lasterr = CreateObject("WbemScripting.SWbemLastError")
Wscript.echo "Error in: " & lasterr.Operation
End If

'Commit the changes and release control file
Wscript.echo "Commit the changes and release control file"
objSWbemServices.ExecMethod "SMS_SiteControlFile.Filetype=1,Sitecode=""" & sitecode & """", "Commit", , , objSWbemContext
objSWbemServices.Get("SMS_SiteControlFile").ReleaseSessionHandle objSWbemContext.Item("SessionHandle").Value
Wscript.echo "The End"

How do I create a new Driver Category using managed code.

Thu, 19 Nov 2009 19:26:03 Z

We are writing an application to import drivers and build packages automatically. so far everything works except we are not able to create new driver categories, only add existing categories to our driver.
I have attempted to create a new category using SMS_CategoryInstance but failed to realize the LocalizedCategoryInstanceName was read-only and now I have a blank category that i cannot delete as its not properly created.

thank you

Shawn

SCCM 2007 and remote steering --> Power Shell or what?

Thu, 19 Nov 2009 13:43:06 Z

Hi,

I have to fill collections, create packages or advertisement programmatically. Is there a way to do this? (Background: how to execute steps in SCCM that will be initiated on an other machine without user interface available)?

Thanks for any input.

Alex Fischer

How to Read a Task Sequence from a Task Sequence Package

Tue, 17 Nov 2009 22:44:22 Z

I have been trying to get the following code to work in a vbscript:

Function ReadTaskSequence(connection, taskSequencePackage)
    ' Get the parameters object.
    Set packageClass = connection.Get("SMS_TaskSequencePackage")
       
    Set objInParam = packageClass.Methods_("GetSequence"). _
        inParameters.SpawnInstance_()

    ' Add the input parameters.
     objInParam.Properties_.Item("TaskSequencePackage") =  taskSequencePackage

    ' Get the sequence.
     Set objOutParams = connection.ExecMethod("SMS_TaskSequencePackage", "GetSequence", objInParam)
     Set ReadTaskSequence = objOutParams.TaskSequence
End Function

but when I run this code like this:

set oTasks = ReadTaskSequence(connection, "A01009E1")

I get the follow error in the function on this line:
objInParam.Properties_.Item("TaskSequencePackage") = taskSequencePackage

error:
Microsoft VBScript runtime error: Type mismatch: 'objInParam.Properties_.Item

Can anyone help me with this function, I need to list all the Tasks in a Task Sequence.

Regards
Rodney

Missing DDRPropertyFlagsEnum for "Full Replace" in SMSResGen

Tue, 03 Nov 2009 20:10:46 Z

Hello all, I am writing a VB.Net app to create DDRs for SMS/SCCM. I am trying to follow good coding practices by using "Option Strict On" but the SMSResGen object is causing some issues. Basically, the "Full Replace / Low Confidence" bit isn't available when enumerating DDRPropertyFlagsEnum. I have an array that I would like to REPLACE with new info rather than appending to it.

I could probably disable 'Option Strict On' and just pass the integer 17 instead of "SMSRSGENCTLLib.DDRPropertyFlagsEnum.ADDPROP_ARRAY Or MISSINGENUMPROP" but it seems a bit silly to have to do this. I know that SMS/SCCM itself generates DDRs with this flag set so it is a bit disappointing that I cannot do it with SMSResGen without getting rid of 'Option Scrict On'.

Any suggestions?

References to what I am seeing:
http://msdn.microsoft.com/en-us/library/cc145875.aspx
http://myitforum.com/cs2/blogs/rzander/archive/2009/05/15/ddrpropertyflagsenum-update.aspx

Security around console plugin

Wed, 14 Oct 2009 18:29:54 Z

I am authoring a utility that will be hosted through the SCCM console. I can add the action item to the console fine and it launches the exe fine. My question is how do I lock down this action item from certain users? I know sccm has the ability to hide parts of the console based on who is logged in. How can I add my action item to the security mix?

Package Flags

Fri, 13 Nov 2009 17:35:06 Z

Quick question. I'm creating a package using VBScript and have set all the properties as required except one!

The 'Make this package available on protected distribution points when requested by clients inside the protected boundaries' tick box on the Distribution Settings tab. Can someone tell me which package property should be set and what value to enable that?

It's driving me mad.

Thanks

VBScript Package Creation - Creating in a folder

Fri, 13 Nov 2009 11:16:59 Z

Hi,
Hopefully this is the right place for this question.
I have created a VBScript that creates a folder structure: Manufacturer > Product > Name

I'm now trying to create a package under that folder structure. However, I cannot see how to assign a package to a ParentContainerNodeID.
It doesn't seem to be a property of SMS_PackageBaseclass and forcing it ie.

newPackage.Name = <productname>
newPackage.ParentContainerNodeID = <folderID>

doesn't work.

Any ideas?

Show up scripted advertisements in configmr console

Wed, 06 May 2009 09:33:36 Z

Hello,

when I advertise a package to a certain client by script (SDK) then the database is correctly updated. However these changes are not returned to the configmgr console (at least on my testlab).

How can I accomplish to show up changes made by scripts in the console?

Thanks for your help!

Modify collection update schedule via vbscript

Tue, 20 Oct 2009 05:00:10 Z

Hi,

I'm trying to write a vbscript to change all collections on our SCCM server to update hourly.

This is what I've got so far... but it fails. Anyone have this working?

'Option Explicit
Dim objWshShell, strSiteCode, strSCCMServerFQDN, strUserName, strPassword
Dim objLocator, objSMS, returnValue, strMessage, StartProcess
Dim Collection, objCollection, strCollectionCheck, newCollection, strCollectionID, newCollectionRelation, Token, objNewCollection, objNewRight
Dim strParentCollectionID, strNewCollectionName, strCollectionComment, strSecurityUserName, intSecurityPermissions, intHourlyMembershipRefreshTime

Set objWshShell = WScript.CreateObject("WScript.Shell")

' Provide the needed configuration information here.
strSiteCode = "XXX" :'Site code for the SCCM environment
strSCCMServerFQDN = "XXX" :'Name of the SCCM server
'strNewCollectionName = "XXXXXXXXXX" : 'Name of the collection to be created
'strCollectionComment = "XXXXXXXXXXXXXXXXX" : 'Comment field shown in the collection
'strParentCollectionID = "XXXXXXX" : 'ID of the collection to contain the collection to be created
'strSecurityUserName = "YourDomain\XXXXXXXX" : 'Name of the domain group or user to be granted access
'intSecurityPermissions = "6887" : 'Permission setting to be granted to the domain group or user
intHourlyMembershipRefreshTime = "1" :'Amount of time in hours that the collection should update its membership
'strUserName = "XXXXXXXXXXXXXXXXXXXXXXX" :'Domain user account that has rights to the SCCM environment
'strPassword = "XXXXXXXXXXXXXXXXXXXXXXXX" :'Accompanying password to the domain user account

' Attempts to connect to the SCCM environment.
returnValue = ConnectToSCCM
If returnValue = "NoAccess" Then
	wscript.echo "Unable to connect to the SCCM provider. Either the user credentials entered are incorrect, or else this account does not have the needed rights and permissions to access the SCCM environment."
End If

' Attempts to check if the collection already exists.
Set Collection = objSMS.ExecQuery ("select * from SMS_Collection")
For Each objCollection in Collection
	objCollection.hourspan = 1 'hourly update
	objCollection.Put_
	    If Err.Number<>0 Then
        WScript.Echo "Couldn't commit the package"
	    End If
Next


WScript.Quit

' ~$~----------------------------------------~$~
'            FUNCTIONS & SUBROUTINES
' ~$~----------------------------------------~$~
Function ConnectToSCCM
' Attempts to use the provided information to connect to the SCCM environment.
On Error Resume Next
Set objLocator = CreateObject("WbemScripting.SWbemLocator")
Set objSMS = objLocator.ConnectServer(strSCCMServerFQDN, "root\sms\site_" & strSiteCode, strUserName, strPassword)
If Err then
	Err.Clear
	ConnectToSCCM = "NoAccess"
	Exit Function
End If
objSMS.Security_.ImpersonationLevel = 3
objSMS.Security_.AuthenticationLevel = 6
ConnectToSCCM = "Accessed"
End Function

' ~$~----------------------------------------~$~
Function ConvertToWMIdate(strDate)
' Attempts to convert the date into a WMI date-time.
Dim strYear, strMonth, strDay, strHour, strMinute

strYear=year(strDate)
strMonth=month(strDate)
strDay=day(strDate)
strHour=hour(strDate)
strMinute=minute(strDate)

If len(strMonth) = 1 Then
	strMonth = "0" & strMonth
End If
If len(strDay) = 1 Then
	strDay = "0" & strDay
End If
If len(strHour) = 1 Then
	strHour = "0" & strHour
End If
If len(strMinute) = 1 Then
	strMinute = "0" & strMinute
End If
ConvertToWMIdate = strYear & strMonth & strDay & strHour & strMinute & "00.000000+***"
End Function

Enumerating fields returned with a WMI query

Sun, 04 Oct 2009 18:42:38 Z

There are lots of good examples out there of using VBScript to run a query and write the results to the screen.
For each obj in col
wscript.echo obj.property
next

What I want to do is enumerate all the fields which are returned and echo the property and value to the screen. In ADO you would do something like:
for each fld in rs.fields
wscript.echo fld.name & " = " & fld.value
next

I nearly lost my mind reading about ExecQuery and the objects it returns. If anyone has some sample code it would be greatly appriciated. The reason for this is to allow me to be able to modify my SCCM query without having to then modify the code which writes it out to the screen.

Thanks!

Rob

--edit--
I found the code I was experimenting with, this is the relevant bit:
For Each qres In qresults
        set qw = qres.subclasses_
        for each qw in qobs
                for each qprop in qw.properties_
                        wscript.echo qprop.name & "=" & qprop.value
                next
        next

What I get out is a whole bunch of:
SMS_G_System_COMPUTER_SYSTEM =
(one for every field being returned).

Someone please help!

PackageFlags / ProgramFlags Assistance

Wed, 28 Oct 2009 04:47:09 Z

Hi,

I just need to know how to set the Program flags for a program that I'm creating.

the SDK explains the available Hex and bit values for the properties but I'm not sure how to specify them in code (vbscript), the programs I've looked at the properties for aren't giving anything away, can someone please explain this to me?

I thought the number could be concatenated together but this doesn't look like it would work given the available values below..

    Sub ModifyProgram(connection, existingpackageID, existingProgramNameToModify, programFlags, durationtoRun)  

          	Dim program

	     ' Load the specific program to change (programname is a key value and must be unique).
	     Set program = connection.Get("SMS_Program.PackageID='" & existingPackageID & "'" & ",ProgramName='" & existingProgramNameToModify & "'")
	     program.ProgramFlags = ??????
	     program.Description = "Application Installation"
	     program.Duration = durationtoRun   

	     ' Save the program with the modified properties.
	     program.Put_

	     ' Output program name.
	     wscript.echo "Modified program: "  & program.ProgramName & " for package " & existingpackageID           

     End Sub

ProgramFlags

Data type: UInt32

Access type: Read/Write

Qualifiers: [bits, ResID(914), ResDLL("SMS_RSTT.dll") ]

Flags identifying the installation characteristics of the program. Possible values are listed below. The default values are EVERYUSER, USEUNCPATH, USERCONTEXT, and UNATTENDED

Note
When using SMS_Program programmatically, ensure that no conflicting values are selected. For example, NOUSERLOGGEDIN and USERCONTEXT should not be used together.

Possible values are:

Hex (Bit)	Description
0x00000001 (0)	AUTHORIZED_DYNAMIC_INSTALL. The program is authorized for dynamic install.
0x00000002 (1)	USECUSTOMPROGRESSMSG. The task sequence shows a custom progress user interface message.
0x00000010 (4)	DEFAULT_PROGRAM. This is a default program
0x00000020 (5)	DISABLEMOMALERTONRUNNING. Disables MOM alerts while the program runs.
0x00000040 (6)	MOMALERTONFAIL. Generates MOM alert if the program fails.
0x00000080 (7)	RUN_DEPENDANT_ALWAYS. If set, this program's immediate dependent should always be run.
0x00000100 (8)	WINDOWS_CE. Indicates a device program. If set, the program is not offered to desktop clients.
0x00000200 (9)	This value is not used.
0x00000400 (10)	COUNTDOWN. The countdown dialog is not displayed.
0x00000800 (11)	FORCERERUN. This value is not used.
0x00001000 (12)	DISABLED. The program is disabled.
0x00002000 (13)	UNATTENDED. The program requires no user interaction.
0x00004000 (14)	USERCONTEXT. The program can run only when a user is logged on.
0x00008000 (15)	ADMINRIGHTS. The program must be run as the local Administrator account.
0x00010000 (16)	EVERYUSER. The program must be run by every user for whom it is valid. Valid only for mandatory jobs.
0x00020000 (17)	NOUSERLOGGEDIN. The program is run only when no user is logged on.
0x00040000 (18)	OKTOQUIT. The program will restart the computer.
0x00080000 (19)	OKTOREBOOT. Configuration Manager restarts the computer when the program has finished running successfully.
0x00100000 (20)	USEUNCPATH. Use a UNC path (no drive letter) to access the distribution point.
0x00200000 (21)	PERSISTCONNECTION. Persists the connection to the drive specified in the DriveLetter property. The USEUNCPATH bit flag must not be set.
0x00400000 (22)	RUNMINIMIZED. Run the program as a minimized window.
0x00800000 (23)	RUNMAXIMIZED. Run the program as a maximized window.
0x01000000 (24)	HIDEWINDOW. Hide the program window.
0x02000000 (25)	OKTOLOGOFF. Logoff user when program completes successfully.
0x04000000 (26)	RUNACCOUNT. This value is not used.
0x08000000 (27)	ANY_PLATFORM. Override check for platform support.
0x10000000 (28)	STILL_RUNNING. This value is not used.
0x20000000 (29)	SUPPORT_UNINSTALL. Run uninstall from the registry key when the advertisement expires.
0x40000000 (30)	The platform is not supported.
0x80000000 (31)	SHOW_IN_ARP. This value is not used.

Calling AddMembershipRule method of sms_collection using iresultObject and vb.net

Thu, 29 Oct 2009 18:01:44 Z

Is it possible there is a bug in the executemethod function of iresultobject when used under vb.net?

                '==============================
                'add the rule to the collection
                '==============================
                Dim oNewRule As IResultObject = oWMI.CreateEmbeddedObjectInstance("SMS_CollectionRuleDirect")
                oNewRule("ResourceClassName").StringValue = "SMS_R_UserGroup"
                oNewRule("ResourceID").StringValue = <resourceID>
                oNewRule("RuleName").StringValue = <groupname>

                ' Add the direct rule to the collection.
                Dim oDictParameters As New Dictionary(Of String, Object)
                oDictParameters.Add("SMS_CollectionRule", oNewRule)

                oCollection = oWMI.GetInstance("SMS_Collection.CollectionID='" & strCollectionID & "'")
                oCollection.ExecuteMethod("AddMembershipRule", oDictParameters)

I get the error:

10/29/2009 1:18:32 PM Error: Microsoft.ConfigurationManagement.ManagementProvider.WqlQueryEngine.WqlQueryException: Not found , Method = AddMembershipRule ---> System.Management.ManagementException: Not found

I know from the c# examples that this shoudl work, but it doesn't.

SCCM client side message

Mon, 26 Oct 2009 08:54:05 Z

Hi,

I want to change client Software Update Management message to our local language. I found in SCCM SDK: http://msdn.microsoft.com/en-us/library/cc143473.aspx but its too difficult. Can someone help me?

Thanks,

Kaido

RUN_DEPENDANT_ALWAYS when creating a program does not work?

Sat, 24 Oct 2009 19:18:35 Z

Hi,

I'm trying to create a program with a dependent program and that dependent program should always run. I have no issues to set the dependent program but I can not manage to set the "Always run the dependent program" checkbox.

I've tried using the RUN_DEPENDANT_ALWAYS as according to the SDK but the checkbox was never marked.

I ended up extracting the program option value from another program that I've created and that worked, at least in the GUI the dependent program was correct and the checboxk was checked. The problem is that when I run the program, its dependent program does not run unless I go into the program properties and redo the dependent program in the GUI and save the changes.

This leads me to believe that there is something that my code does not set right which makes it appear ok in the GUI but not when executed.

I'm running this piece of code against ConfigMgr 2007 SP1 and I utilize the newest version of the SDK and the code is written in C#.

Code that does not set the checkbox:

newProgram["ProgramFlags"].IntegerValue =(int)ProgramFlags.AdminRights + (int)ProgramFlags.UserContext + (int)ProgramFlags.UseUncPath + (int)ProgramFlags.RunDependantAlways;

Code that does set the checkbox but does not work when executing the program (integer value is extracted with WQL from a program that is configured excatly as I want it and that works):

newProgram["ProgramFlags"].IntegerValue = 1097856;

Anyone experience any issues with the RUN_DEPENDANT_ALWAYS? Anyone that could provide me with an example of the correct and working way to code this?

How to obtain PackageIDs?

Fri, 13 Jun 2008 16:51:14 Z

While trying to follow the “How to Create a Package” example, I notice that it does not provide you with the PackageID. You need the PackageID to add programs to a package and the example within the SDK does not show you how to do this in VB.NET (VS 2008). After I digging deeper, I found the example for creating a package with a PDF, “How to Create a Package by Using a Package Definition File Template“

Following this example with the SDK, I modified the original example code to the following, however this does not give me the PackageID (tmp,tmp2,tmp3,tmp4) So how can I get the package ID, so that a program can be created?

Function CreatePackage(ByVal connection, ByVal newPackageName, ByVal newPackageDescription, ByVal newPackageSourceFlag, ByVal newPackageSourcePath)

Dim newpackage

Dim tmp

Dim tmp2

Dim tmp3

Dim tmp4

' Create the new package object.

newPackage = connection.Get("SMS_Package").SpawnInstance_

' Populate the new package properties.

newPackage.Name = newPackageName

newPackage.Description = newPackageDescription

newpackage.PkgSourceFlag = newPackageSourceFlag

newpackage.PkgSourcePath = newPackageSourcePath

newpackage.ForcedDisconnectDelay = 5 '5 minutes

newpackage.ForcedDisconnectEnabled = True 'disconnect clients

newpackage.ForcedDisconnectNumRetries = 7 ' 7 retries

newpackage.manufacturer = "SMSUG.ca"

newpackage.Packagetype = PT_R

'newpackage.PreferredAddressType = ADR_LAN(MS_LAN) **** Dig deeper into the SDK for this.

newpackage.priority = 2 'Normal

newpackage.Sharetype = 1 'Common

tmp4 = newpackage.packageid

' Save the package.

tmp = newpackage.Put_()

tmp3 = newpackage.packageid

tmp2 = tmp.Keys("PackageID")

' Output the new package name.

MsgBox("Created package: " & tmp2)

CreatePackage = tmp2

End Function

programming with SCCM/SMS

Thu, 11 Sep 2008 16:49:32 Z

I'm going to have to program against SCCM/SMS for a customer. I've downloaded the SCCM 2007 SDK. They are using SCCM 2007. I am currently reading through the documentation. I'm trying to understand what are the steps I need to do to tell SMS to install a piece of software onto a user's computer at a given time. I need to do this programatically in .NET. I'm not even sure where to start, so any pointers/suggestions would be very helpful.

Wally

Package / Collection Migration script - SMS to SCCM (vbscript or Powershell)

Tue, 13 Oct 2009 23:38:10 Z

Hi,

I'm currently doing a side by side migration of SMS to SCCM. I'm currently building the new SCCM site at the moment, due to a few issues with the current SMS site I don't want to do a typical side by side migration (building a sms 2003 box and making it a child to replicate packages etc..), however there are over 200 packages all of which need migrated.

I'd like to create a script to read the package configuration from the sms 2003 primary then create the same packages in the SCCM primary site.. (maybe dumping to a text file or similar in between).

It'd be great to do the same with collections too.. although there's not that many so can do manual export / import for those if req'd.

I'd like to use either vbscript or powershell..

does anyone have anything that might help me get started?

thanks!

Script to check Allow Basic Authentication

Fri, 01 Feb 2008 23:24:48 Z

I posted this in the Software Updates Management forum earlier today and Wally recommended that I post it here so that I could receive notification on a sample script that will resolve the problem.

My SCCM server sits behind a proxy server that requires a username and password. the password is passed in clear text. WSUS has a check box to allow for this: Allow Basic Authentication, but SCCM does not have the same, so everytime SCCM updates the WSUS proxy settings, the check box is cleared.

How can I tell SCCM to use the Allow Basic Authentication?

Thanks!!

Tom

Thanks in Advance!! Look forward to testing the script.

Tom

Script to execute non mandatory assignments?

Wed, 07 Oct 2009 15:58:16 Z

I am looking to create a script that would query the list of non mandatory assignments that are pending and execute them one by one. Taking into consideration that the code might not be downloaded yet so I assume I would need to check and if needed make a content request prior to execution. Anyone have anything like this yet?

Thanks!

IProgram2::GetNextMandatoryTime

Fri, 16 Oct 2009 13:35:31 Z

I am setting up a script that will display specific data with regards to Programs and Advertisements that are available to be installed on a workstation.

I am having alot of trouble getting the IProgram2::GetNextMandatoryTime action to return any data. I see that the next run time is displayed in the RAP but it does not appear to be stored in any readable format in the registry or WMI. I assume from the description in the SDK for GetNextMandatoryTime that it will do what I am looking for. I am not all that familiar with writing scripts and learning as I go, so any suggestions or examples to access this method would be very helpful.

OSD- Task sequence: Any one have vbscript to read the steps for Task sequence in SCCM

Tue, 25 Aug 2009 10:21:26 Z

hi my query is to read the Task sequence and there corresponding Groups (Steps) which has been created inside the tasksequence editor. Any one faced or done similar thing using vbscript please help me.
or
If any one have any idea how we can export the Groups / Steps in Task sequence with the help of any script or any command line to be used to export the .xml file from teh Tasksequence Editor.

Any help appreciated.... thank you

Memory Sccm and managed code

Tue, 06 Oct 2009 16:40:05 Z

Hi
We are using a mix between managed code c# and Vb scripts to perform integration and changes for Sccm Sp1

Ex, adding/removing computer objects as direct members to collections. Syncronize package, program, collection info to other SQL etc.

Now and then the mmc console stops responding, (no exact time table interval between incidents). Most of the times a restart of the WMI service resolves the issue. if not a reboot of the server is needed.

No specific solution is presented when searcing for MMC and console related errors.

I suspect that this might be the case
http://social.technet.microsoft.com/Forums/en-US/configmgrsdk/thread/942db779-fafe-4f38-adee-b200758816b4

Question:
1. Could this be the issue with the console becomming unresponsive
2. If so, can I check if thats the case, (memory leak application finder, wmi trace log, etc etc)
- I have no access to source code

Env:
Sccm 2007 Sp1 / R2
Sql 2005 Sp3
Windows Srv std x64 12GB RAM

Br
erik

How to Read a Task Sequence from a Task Sequence Package

Mon, 02 Mar 2009 09:31:44 Z

I want to Read a Task Sequence from a Task Sequence Package.

The, I use SDK and I found this code :

Function ReadTaskSequence(connection, taskSequencePackage) ' Get the parameters object.
    Set packageClass = connection.Get("SMS_TaskSequencePackage")
    Set objInParam = packageClass.Methods_("GetSequence")._ inParameters.SpawnInstance_()
    ' Add the input parameters.
    objInParam.Properties_.Item("TaskSequencePackage") = taskSequencePackage
    ' Get the sequence.
    Set objOutParams = connection.ExecMethod("SMS_TaskSequencePackage", "GetSequence", objInParam)
    Set ReadTaskSequence = objOutParams.TaskSequence
End Function

With VBScript, this code is working perfectly, but when I use this code with VB.Net, I have an error on : "objInParam.Properties_.Item("TaskSequencePackage") = taskSequencePackage"

Error is : "Exception from HRESULT: 0x80020003 (DISP_E_MEMBERNOTFOUND)"

Below the VB.Net functionning I am using :

Public Function SCCM_TaskSequenceFromTaskSequencePackage(ByVal Server, ByVal SiteCode, ByVal Username, ByVal Password)
Dim Locator As Object = CreateObject("WbemScripting.SWbemLocator")

Dim WbemServices As Object = Locator.ConnectServer(Server, "ROOT\SMS\SITE_" & SiteCode, Username, Password)

Dim taskSequencePackages As Object = WbemServices.ExecQuery("Select * from SMS_TaskSequencePackage WHERE PackageID = 'AA000016'")

Dim taskSequencePackage As Object = Nothing

For Each taskSequencePackage In taskSequencePackages

'MsgBox(taskSequencePackage.Name)

' Get the parameters object.

Dim packageClass = WbemServices.Get("SMS_TaskSequencePackage")

Dim objInParam = packageClass.Methods_("GetSequence").inParameters.SpawnInstance_()

' Add the input parameters.

objInParam.Properties_.Item("TaskSequencePackage") = taskSequencePackage

' Get the sequence.

Dim objOutParams As Object = WbemServices.ExecMethod("SMS_TaskSequencePackage", "GetSequence", objInParam)

Dim TS : TS = objOutParams.TaskSequence

MsgBox(TS.SchemaVersion)

'Set ReadTaskSequence = objOutParams.TaskSequence

NextSCCM_TaskSequenceFromTaskSequencePackage = True

End Function

Thanks for your help.

ExecuteProgram

Mon, 12 Jan 2009 03:18:21 Z

I am creating my own UI to list available programs for users and when they click on the program to install i want the program to check if the package source is available for download before installing.
All my packages will run directly from the DPs. I tried using uiResMgr.ExecuteProgram(prog.Id, prog.PackageId, 1) to execute the program but the problem is that if the package is not available on the DP, the program will just hang in downloading state forever. I want to know if there is a way to check to see if the package is available before running ExecuteProgram. Thanks

Import OSD Task Sequence via XML - 0xC00CE556 using SDK script

Wed, 05 Mar 2008 13:19:41 Z

I have attempted to import a Task Sequence into ConfigMgr using the following function within the SDK:

'=================================================================

Function ImportTaskSequence(connection, taskSequenceXml)
    Dim taskSequenceClass
    Dim inParams
    Dim outParams

    ' Obtain the class definition object of a SMS_TaskSequence object.
    Set taskSequenceClass = connection.Get("SMS_TaskSequence")

    Set inParams = _
        taskSequenceClass.Methods_("LoadFromXML").InParameters.SpawnInstance_
     inParams.Xml = taskSequenceXml

    ' Call the method.
    Set outParams = _
        connection.ExecMethod( "SMS_TaskSequence", "LoadFromXML", inParams)

    Set ImportTaskSequence=outParams.ReturnValue

End Function

'=================================================================

I exported the Task Sequence from ConfigMgr and have tried importing it using this function and receive an error when calling the method - SWbemSericesEx : 0xC00CE556.

I have looked around and this seems to mean 'Invalid at the top level of the document'. Unfortunately I can't seem to find anything regfading this when using "LoadFromXML"

For info I am using MSXML 6.0, running the script directly on the site server

Has anyone come across this problem or can help me?

Much appreciated

Steve

SCCM WoL with SDK

Fri, 02 Oct 2009 09:20:20 Z

Is it possible to use the WoL-function of SCCM in an external tool (SDK, C#) to start an individual PC?
Or i have to use other tools to implement WoL?

thanks.

Problems connecting to SCCM 2007 Provider and create a package from PDF Template.

Thu, 19 Mar 2009 13:38:03 Z

Hi,

1. Is there a C# equivalent of the following?

"How to Create a Package by Using a Package Definition File Template"
http://msdn.microsoft.com/en-us/library/cc143469.aspx

2. Problems connecting with the SCCM 2007 provider.

I am using C# and having trouble connecting to the provider.

   Article:

   How to Connect to an SMS Provider in Configuration Manager by Using Managed Code
   http://msdn.microsoft.com/en-us/library/cc146404.aspx


   Error 1 The type or namespace name 'WqlConnectionManager' could not be
   found (are you missing a using directive or an assembly reference?) ...

   Where is this symbol defined?


   using System;
   ..
   ..
   using Microsoft.ConfigurationManagement.ManagementProvider;

   // I also have a reference to: the DLL:
   // ..AdminUI\bin\microsoft.configurationmanagement.managementprovider.dll

   using System.Management;
   ..
   ..

        private void button1_Click(object sender, EventArgs e)
        {
            SmsNamedValuesDictionary namedValues = new SmsNamedValuesDictionary();
            WqlConnectionManager connection = new WqlConnectionManager(namedValues);

}

   Thanks,

   Ward

Querying currently running advert in C#

Tue, 29 Sep 2009 06:21:07 Z

Hi All,

I've been trying to convert some VBS into a C# app for 2 days now, I thought it time to ask for some help..

I've used the VBS from this thread..

http://social.technet.microsoft.com/Forums/en-US/configmgrsdk/thread/d0222501-0086-4018-ac4b-4593572225a9

Which works wonderfully if just running as a vbs, alas I need to work it into a C# app.

I have given up on anything complex and now I am just trying to connect to the CCM_ExecutionRequestEx class, but when it gets to the foreach loop it just comes up invalid class. This is really really frustrating and must be something simple as 1) It works in vbs and 2) I'm sure im connecting to the right namespace and class...

In the interest of keeping minimilist I've just coped some code from MS website about connecting to the CCM Client Agent and just modified it.

Any help would be really appreciated :)

-Dan

// Define the scope (namespace) to connect to.
ManagementScope inventoryAgentScope = new ManagementScope(@"root\ccm\SoftMgmtAgent");
inventoryAgentScope.Connect();
// Load the class to work with (CCM_Client).
ManagementClass inventoryClass = new ManagementClass("CCM_ExecutionRequestEx");

// Query the class for the objects (create query, create searcher object, execute query).
ObjectQuery query = new ObjectQuery("SELECT * FROM CCM_ExecutionRequestEx");
ManagementObjectSearcher searcher = new ManagementObjectSearcher(inventoryAgentScope, query);
ManagementObjectCollection queryResults = searcher.Get();

// Loop through the available objects (only one) and display the ClientId value.

foreach (ManagementObject result in queryResults)
{
//Console.WriteLine("ClientId (GUID): " + result["RunningState"]);
}

Query SCCM Services object for server and site code

Thu, 27 Aug 2009 09:05:00 Z

This may be a bit of a chicken vs egg question.

I create a connection to my sccm site using code similar to the following (vbscript):

Set objWBemLoc = CreateObject( "WBemScripting.SWBemLocator" )
Set objSMSServices = objWBemLoc.ConnectServer( strServer, "root\SMS\Site_" & strSite )

I then pass the objSMSServices object to various functions and subs while doing what I need to do.

Without resorting to global variables, from within a function, how can I determine what the current connection object's server and site code is?

I've looked at the SMS_ProviderLocation object but that only seems to work if the current services object has not been connected to a specific SMS namespace.

i.e. this works:

      Set swbemLocator = CreateObject("WbemScripting.SWbemLocator")
      Set swbemServices = swbemLocator.ConnectServer("<server name>", "root\sms")
      Set providerLoc = swbemServices.InstancesOf("SMS_ProviderLocation")
      For Each Location In providerLoc
          If location.ProviderForLocalSite = True Then
            WScript.Echo Location.Machine
            WScript.Echo Location.SiteCode
              Set swbemServices = swbemLocator.ConnectServer(Location.Machine, "root\sms\site_" + Location.SiteCode)
              Exit For
          End If
      Next

But this doesn't (where objSCCM is my SCCM services object passed into the function)

	Dim objProviderLoc : Set objProviderLoc = objSCCM.InstancesOf( "SMS_ProviderLocation" )
	Dim objLocation, strSiteCode, strServer
	For Each objLocation In objProviderLoc
		If objLocation.ProviderForLocalSite Then
			strServer = objLocation.Machine
			strSiteCode = objLocation.SiteCode
			Exit For
		End If
	Next

What am I missing?

Thanks in advance.

Blah Blah Blah

VBScript runtime error: Object required: from oWbemLocator.ConnectServer

Tue, 07 Oct 2008 17:50:48 Z

So I am kind of new to SCCM but need to automate the installation of applications in a task sequence for OSD but I am receiving the error above. I am just trying to get the insert to work before I move to an application install with SMS_TaskSequence_InstallSoftwareAction. Here is a code I have thus far: Red part is where the error arises.

Code Snippet

'***************** Declare input parameter values ***************
Dim ArgObj, oPackageID
Set ArgObj = WScript.Arguments

'************* First parameter which is *************************
'************* _SMSTSPackageID environmental variable ***********
oPackageID = ArgObj(0)

'************ Declare varibles **********************************
Dim oWbemLocator
Dim oWbemService
Dim oProviderLoc
Dim oLocation
Dim oSvc
Dim oUserName
Dim oPassword
Dim strComputer

'************** Need credentials to connect to SCCM Server ******

Set oUserName = "DOMAIN\First.Last"
Set oPassword = "Password"
Set strComputer = "ServerName"

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=Impersonate}!\\" _
& strComputer & "\root\cimv2")

'************** Connect to SCCM MP *****************************
Set oWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set oWbemService = oWbemLocator.ConnectServer(strComputer, "root\sms",oUserName,oPassword)
oWMIServices.Security_.ImpersonationLevel = 3
Set oProviderLoc = oWbemService.InstancesOf("SMS_ProviderLocation")
For Each oLocation in oProviderLoc
If oLocation.ProviderForLocalSite = True Then
Set oSvc = oWbemLocator.ConnectServer(oLocation.Machine, "root\sms\site_" + oLocation.SiteCode)
Exit For
End If
Next

Set oTSP = oPackageID
set TS = GetTSSequence(oSvc, oTSP)

'********** Call's to sub functions ****************************

Call AddTSStep (oSvc, TS)

Call SetTSSequence (oSvc, oTSP, TS)

'********** Function's *****************************************
'********** ***********
'********** What step to add to Task Sequence *****************

Function AddTSStep(oCon, oTS)
Dim action
Dim steps

Set action = oCon.Get("SMS_TaskSequence_RunCommandLineAction").SpawnInstance_

action.CommandLine = "cmd /c echo Hello"
action.Name = "Test"
action.Enabled = true
action.ContinueOnError = false

If IsNull(oTS.Steps) Then
steps = Array(action)
ElseIf UBound(oTS.Steps) = -1 Then
steps = Array(action)
Else
steps = oTS.Steps
Redim Preserve steps(UBound(steps) + 1)
Set steps(UBound(steps)) = action
End If

oTS.Steps = steps

End Function

'************* Insert step into identified Task Sequence *********

Function SetTSSequence(oCon, oTSPackage, oTS)
On Error Resume Next
Set inParams = oTSPackage.Methods_("SetSequence").InParameters.SpawnInstance_
inParams.TaskSequencePackage = oTSPackage
inParams.TaskSequence = oTS
Set outParams = oSvc.ExecMethod("SMS_TaskSequencePackage", "SetSequence", inParams)

If outParams.ReturnValue = 0 Then
SetTSSequence = True
Else
SetTSSequence = False
End If
On Error Goto 0
End Function

'************ Get current Task Sequence info *********************

Function GetTSSequence (oCon, oTSPackage)
Dim oPkgClass
Dim oParam
Dim oOutParam

Set oPkgClass = oCon.Get("SMS_TaskSequencePackage")
Set oParam = oPkgClass.Methods_("GetSequence").inParameters.SpawnInstance_()

oParam.Properties_.Item("TaskSequencePackage") = oTSPackage

Set oOutParam = oCon.ExecMethod("SMS_TaskSequencePackage", "GetSequence", oParam)

Set GetTSSequence = oOutParam.TaskSequence
End Function

The SMSTS*.log file has the error <![LOG[C:\_SMSTaskSequence\Packages\HOU000BF\SMSSWD.VBS(22, 1) Microsoft VBScript runtime error: Object required: '[string: "Domain\First.Na"]

the user name is being cut off at 20 characters where it is actually 25 characters long. is there a limitation on lenght for user name but any help would be greatly appreciated.

Thxs

How to disable an advertisement using SCCM SDK

Fri, 18 Sep 2009 05:13:22 Z

Hi,

There is an option in the SCCM console where you right click on the advertisement and select: Disable Program. I would like to know how can I disable the program using SKD.

Tks in advance,
Giancarlo.

Configuration Manager SDK Forum

Scripting address creation

VBScript & ImportSequence

Function to set Parent Site,

How to monitor a SCCM (SMS 4) Machine Policy Retrieval & Evaluation Cycle

How to READ Collectionrules ?

Computers added programmatically (vbscript) into SCCM collection, do not PXE boot...

How to determine what type a step is, from the list of task sequence steps

No TaskSequence Variables were set

How to create a branch Distribution Point using de SDK

How do I create a new Driver Category using managed code.

SCCM 2007 and remote steering --> Power Shell or what?

How to Read a Task Sequence from a Task Sequence Package

Missing DDRPropertyFlagsEnum for "Full Replace" in SMSResGen

Security around console plugin

Package Flags

VBScript Package Creation - Creating in a folder

Show up scripted advertisements in configmr console

Modify collection update schedule via vbscript

Enumerating fields returned with a WMI query

PackageFlags / ProgramFlags Assistance

Calling AddMembershipRule method of sms_collection using iresultObject and vb.net

SCCM client side message

RUN_DEPENDANT_ALWAYS when creating a program does not work?

How to obtain PackageIDs?

programming with SCCM/SMS

Package / Collection Migration script - SMS to SCCM (vbscript or Powershell)

Script to check Allow Basic Authentication

Script to execute non mandatory assignments?

IProgram2::GetNextMandatoryTime

OSD- Task sequence: Any one have vbscript to read the steps for Task sequence in SCCM

Memory Sccm and managed code

How to Read a Task Sequence from a Task Sequence Package

ExecuteProgram

Import OSD Task Sequence via XML - 0xC00CE556 using SDK script

SCCM WoL with SDK

Problems connecting to SCCM 2007 Provider and create a package from PDF Template.

Querying currently running advert *in C#*

Query SCCM Services object for server and site code

VBScript runtime error: Object required: from oWbemLocator.ConnectServer

How to disable an advertisement using SCCM SDK

Querying currently running advert in C#