Client actions for an entire collection

This page still isn't displaying correclty.
Here is a link on the SCCM tools website
http://www.sccm-tools.com/tools/rightclick/rightclick-clientactions.html


Ok I have deleted this whole section since I re-wrote this tool...

Files: (files names are case sensative)
clientactions.vbs : File that controls everything
Clearcache.vbs : Client clear cache file
Inventory.vbs: Client HW/SW inventory file
Policy.vbs: Client machine policy refresh
Computer.XML : This will be the xml file for right click on a computer
Collection.XML: This will be the xml file for right click on a collection
C:\Program Files\MCNS\ClientActions\ : Location where all the files are stored on the server

7ba8bf44-2344-4035-bdb4-16630291dcf6 - computers
fa922e1a-6add-477f-b70e-9a164f3b11a2 - this GUID is for first-level collections
dbb315c3-1d8b-4e6a-a7b1-db8246890f59 - this GUID is for all subcollections
---
x:\Program Files\Microsoft Configuration Manager\AdminUI\XmlStorage\Extensions
Under this folder create the guid and place the appropriate XML file
-------------------------------------------------------------------------
******Clientactions.vbs***************
<br />'sms-server = replace with your server name<br /><br />'site_XXX = replace the XXX with your site code.<br /><br />on error resume next<br /><br />Set objArgs = WScript.Arguments <br /><br />if (objArgs.count > 1) then <br /><br /> MyPos = InStr(objArgs(0), ":") <br /><br /> ToolType= wscript.arguments.item(0) 'C-collection I-individual<br /><br /> SMSID= wscript.arguments.item(1) <br /><br /> SMSAction= wscript.arguments.item(2) 'Clearcache, Inventory, Policy <br /><br />end if<br /><br />Const SW_NORMAL = 1<br /><br />Set Shell = CreateObject("Wscript.Shell") <br /><br />Set oFSO = CreateObject("Scripting.FileSystemObject") <br /><br />Set SWbemLocator=CreateObject("WbemScripting.SWbemLocator")<br /><br />set SWbemServices = SWbemLocator.ConnectServer("sms-server","root\SMS\site_XXX")<br /><br /><br /><br />''''''''' Collection based Tools ''''''''''''''''''''''''' <br /><br />'if we are looking at multiple computers:<br /><br />if ToolType="C" then<br /><br /> strQuery = "select * from SMS_CM_RES_COLL_" & SMSCollectionID<br /><br /> Set Computers= SWbemServices.ExecQuery(strQuery) <br /><br /> for each Computer in Computers<br /><br /> theAction Computer.Name,SMSAction<br /><br /> Next<br /><br />end if<br /><br /><br /><br /><br /><br /><br /><br />''''''''' Individual Tools ''''''''''''''''''''''''' <br /><br /><br /><br />'if a single computer was selected and clear cache was selected<br /><br />if ToolType="I" then <br /><br /> strQuery = "select Name from SMS_R_SYSTEM where ResourceID='"+ SMSID +"'" <br /><br /> set CompNAmes= SWbemServices.ExecQuery(strQuery) <br /><br /> for each strComputer in CompNAmes<br /><br /> theAction strComputer.Name,SMSAction<br /><br /> next<br /><br /><br /><br />End if<br /><br /><br /><br /><br /><br /><br /><br />' ********************* Actions ********************* <br /><br />sub theAction(strComputer,SMSAction)<br /><br /><br /><br />strCommand = "cscript c:\" & SMSAction & ".vbs"<br /><br />Set objWMIService = GetObject("winmgmts:" _<br /><br /> & "{impersonationLevel=impersonate}!\\" _<br /><br /> & strComputer & "\root\cimv2")<br /><br /><br /><br />'50<br /><br />Set objFSO = CreateObject("Scripting.FileSystemObject")<br /><br />'Launch folder for the Right click tool, change if you like<br /><br />Set objFileCopy = objFSO.GetFile("C:\Program Files\MCNS\ClientActions\" & SMSAction & ".vbs")<br /><br />objFileCopy.Copy ("\\" & strcomputer & "\c$\" & SMSAction & ".vbs")<br /><br /><br /><br />Set objStartup = objWMIService.Get("Win32_ProcessStartup")<br /><br />Set objConfig = objStartup.SpawnInstance_<br /><br />objConfig.ShowWindow = SW_NORMAL<br /><br /><br /><br />Set objProcess = objWMIService.Get("Win32_Process")<br /><br />intReturn = objProcess.Create (strCommand, Null, objConfig, intProcessID)<br /><br /><br /><br /><br /><br />wscript.sleep (2000)<br /><br />objFSO.DeleteFile ("\\" & strcomputer & "\c$\" & SMSAction & ".vbs")<br /><br />End sub<br /><br />' *********************************************************<br /><br />
******Clearcache.vbs***************
<br />on error resume next<br /><br />dim oUIResManager<br /><br />dim oCache<br /><br />dim oCacheElement<br /><br />dim oCacheElements<br /><br /><br /><br />set oUIResManager = createobject("UIResource.UIResourceMgr")<br /><br /><br /><br />if oUIResManager is nothing then<br /><br />wscript.echo "OK"<br /><br />wscript.quit<br /><br />end if<br /><br /><br /><br />set oCache=oUIResManager.GetCacheInfo()<br /><br /><br /><br />if oCache is nothing then<br /><br /> set oUIResManager=nothing<br /><br /> wscript.quit<br /><br />end if<br /><br /><br /><br />set oCacheElements=oCache.GetCacheElements<br /><br /><br /><br />for each oCacheElement in oCacheElements<br /><br /> oCache.DeleteCacheElement(oCacheElement.CacheElementID)<br /><br />next<br /><br /><br /><br />set oCacheElements=nothing<br /><br />set oUIResManager=nothing<br /><br />set oCache=nothing<br /><br />wscript.quit<br /><br />


******Inventory.vbs***************
<br /><br /><br />On Error Resume Next<br /><br /><br /><br />Dim oCPAppletMgr<br /><br />Set oCPAppletMgr = CreateObject("CPApplet.CPAppletMgr")<br /><br /><br /><br />Dim oClientActions<br /><br />Set oClientActions = oCPAppletMgr.GetClientActions()<br /><br /><br /><br />Dim oClientAction<br /><br />For Each oClientAction In oClientActions<br /><br /> If oClientAction.Name = "Software Inventory Collection Cycle" Then<br /><br /> oClientAction.PerformAction <br /><br /> End If<br /><br /> If oClientAction.Name = "Hardware Inventory Collection Cycle" Then<br /><br /> oClientAction.PerformAction <br /><br /> End If<br /><br /><br /><br />Next<br /><br />


******Policy.vbs***************
<br />On Error Resume Next<br /><br /><br /><br />Dim oCPAppletMgr<br /><br />Set oCPAppletMgr = CreateObject("CPApplet.CPAppletMgr")<br /><br /><br /><br />Dim oClientActions<br /><br />Set oClientActions = oCPAppletMgr.GetClientActions()<br /><br /><br /><br />Dim oClientAction<br /><br />For Each oClientAction In oClientActions<br /><br /> If oClientAction.Name = "Machine Policy Retrieval and Evaluation Cycle" Then<br /><br /> oClientAction.PerformAction <br /><br /> End If<br /><br /> <br /><br />Next<br /><br />


******Computer.XML***************
<br /><actiondescription class="Group" displayname="MCNS" mnemonicdisplayname="MCNS" description="MCN Tools" sqmdatapoint="100"><br /><br /> <actiongroups><br /><br /> <actiondescription class="Executable" displayname="Status Messages" mnemonicdisplayname="Status Messages" description="Display machine status messages"><br /><br /> <executable><br /><br /> <filepath>D:\Program Files\Microsoft Configuration Manager\AdminUI\bin\i386\statusmessages.exe</filepath><br /><br /> <parameters>##SUB:Name##</parameters><br /><br /> </executable> <br /><br /> </actiondescription><br /><br /> </actiongroups><br /><br /> <actiongroups><br /><br /> <actiondescription class="Executable" displayname="Collection Listing" mnemonicdisplayname="Collection Listing" description="Display machine Collection membership"><br /><br /> <executable><br /><br /> <filepath>C:\Program Files\MCNS\collections\compmain.vbs</filepath><br /><br /> <parameters>##SUB:ResourceID## 1</parameters><br /><br /> </executable> <br /><br /> </actiondescription><br /><br /> </actiongroups><br /><br /><br /><br /><actiongroups><br /><br /> <actiondescription class="Executable" displayname="Client Action: Inventory" mnemonicdisplayname="Client Action: Inventory" description="Run an inventory on the computer"><br /><br /> <executable><br /><br /> <filepath>C:\Program Files\MCNS\clientactions\clientactions.vbs</filepath><br /><br /> <parameters>I ##SUB:ResourceID## Inventory</parameters><br /><br /> </executable> <br /><br /> </actiondescription><br /><br /> </actiongroups><br /><br /> <br /><br /><br /><br /><actiongroups><br /><br /> <actiondescription class="Executable" displayname="Client Action: Machine Policy" mnemonicdisplayname="Client Action: Machine Policy" description="Run a machine policy refresh on the computer"><br /><br /> <executable><br /><br /> <filepath>C:\Program Files\MCNS\clientactions\clientactions.vbs</filepath><br /><br /> <parameters>I ##SUB:ResourceID## Policy</parameters><br /><br /> </executable> <br /><br /> </actiondescription><br /><br /> </actiongroups><br /><br /><br /><br /><actiongroups><br /><br /> <actiondescription class="Executable" displayname="Client Action: Clear Cache" mnemonicdisplayname="Client Action: Clear Cache" description="Run a clear cache on the remote machine"><br /><br /> <executable><br /><br /> <filepath>C:\Program Files\MCNS\clientactions\clientactions.vbs</filepath><br /><br /> <parameters>I ##SUB:ResourceID## Clearcache</parameters><br /><br /> </executable> <br /><br /> </actiondescription><br /><br /> </actiongroups><br /><br /><br /><br /></actiondescription><br /><br /><br /><br />


******Collection.XML***************
<br /><actiondescription class="Group" displayname="MCNS" mnemonicdisplayname="MCNS" description="MCN Tools" sqmdatapoint="53"><br /><br /> <actiongroups><br /><br /> <actiondescription class="Executable" displayname="Client Action: Inventory" mnemonicdisplayname="Client Action: Inventory" description="Run an inventory on the computer"><br /><br /> <executable><br /><br /> <filepath>C:\Program Files\MCNS\clientactions\clientactions.vbs</filepath><br /><br /> <parameters>C ##SUB:CollectionID## Inventory</parameters><br /><br /> </executable> <br /><br /> </actiondescription><br /><br /> </actiongroups><br /><br /> <br /><br /><br /><br /><actiongroups><br /><br /> <actiondescription class="Executable" displayname="Client Action: Machine Policy" mnemonicdisplayname="Client Action: Machine Policy" description="Run a machine policy refresh on the computer"><br /><br /> <executable><br /><br /> <filepath>C:\Program Files\MCNS\clientactions\clientactions.vbs</filepath><br /><br /> <parameters>C ##SUB:CollectionID## Policy</parameters><br /><br /> </executable> <br /><br /> </actiondescription><br /><br /> </actiongroups><br /><br /><br /><br /> <actiongroups><br /><br /> <actiondescription class="Executable" displayname="Client Action: Clear Cache" mnemonicdisplayname="Client Action: Clear Cache" description="Run a clear cache on the remote machine"><br /><br /> <executable><br /><br /> <filepath>C:\Program Files\MCNS\clientactions\clientactions.vbs</filepath><br /><br /> <parameters>C ##SUB:CollectionID## Clearcache</parameters><br /><br /> </executable> <br /><br /> </actiondescription><br /><br /> </actiongroups><br /><br /><br /><br /></actiondescription><br /><br />