VBSCRIPTS

Delete all packages from Distrubution Point

by

Did you get ever a situation to delete all the Packages from one Specific DP ? There are few tools/Scripts are available –          ConfigMgr 2007 Distribution Point Package Utility o   Can be downloaded from https://www.myitforum.com/inc/arts/12171Setup.zip –          Vbscript I like this tool as it is very quick o   https://blogs.msdn.com/cfs-file.ashx/__key/communityserver-components-postattachments/00-00-54-13-12/DPClean.zip For SCCM 2012 https://gallery.technet.microsoft.com/scriptcenter/Remove-Packages-from-5031a1b5 ‘Rslaten 03/2005’https://blogs.msdn.com/b/rslaten/archive/2006/03/01/removing-a-retired-dp-from-all-your-packages.aspx On … Read more

Disable services on list of servers

by

Below script will be useful for disabling the services ‘create a file called list.Txt Set Fso = CreateObject(“Scripting.FileSystemObject”)Set InputFile = fso.OpenTextFile(“list.Txt”)Do While Not (InputFile.atEndOfStream)sComputer = InputFile.ReadLineaTargetSvcs= Array(“WDSServer”)‘For list of services use below…‘arrTargetSvcs = Array(“service1”, “service2”, “service3”) Set oWMIService = GetObject(“winmgmts:” & “{impersonationlevel=impersonate}!” _ & sComputer & “rootcimv2”)Set cServices = oWMIService.ExecQuery(“SELECT * FROM Win32_Service”) For Each oService In … Read more

VBscript Configure Clients Internet based Management Point Setting

by

on error resume next ‘ Create variables.Dim newInternetBasedManagementPointFQDNDim client newInternetBasedManagementPointFQDN = “mp.contoso.com” ‘ Create the client COM object.Set client = CreateObject (“Microsoft.SMS.Client”) ‘ Set the Internet-Based Management Point FQDN by calling the SetCurrentManagementPoint method.client.SetInternetManagementPointFQDN newInternetBasedManagementPointFQDN ‘ Clear variables.Set client = NothingSet internetBasedManagementPointFQDN = Nothing