' Start the SMS 2003 Hardware Inventory Cycle



On Error Resume Next

sActionName="Hardware Inventory Collection Cycle"

' Create a CPAppletMgr instance

Dim oCPAppletMgr
Set oCPAppletMgr = CreateObject("CPApplet.CPAppletMgr")

' Get the available ClientActions

Dim oClientActions
Set oClientActions = oCPAppletMgr.GetClientActions()

' Loop through the available client actions

Dim oClientAction
For Each oClientAction In oClientActions

    ' Is this the action we want to start?

     If oClientAction.Name = sActionName Then

    ' Start the action

        oClientAction.PerformAction  
    End If
Next

search for scripts

VbsEdit contains all these sample scripts!





Home   Scripts

Copyright © 2001-2019 adersοft