SCCM / SMS VBScript

Remote Systems Discovery Data Collection Cycle Client agent initiate

by

On Error Resume NextDim oCPAppletMgrSet oCPAppletMgr = CreateObject("CPApplet.CPAppletMgr")Dim oClientActionsSet oClientActions = oCPAppletMgr.GetClientActions()Dim oClientActionFor Each oClientAction In oClientActions If oClientAction.Name = "Discovery Data Collection Cycle" ThenoClientAction.PerformActionEnd IfIf oClientAction.Name = "Request & Evaluate Machine Policy" Then oClientAction.PerformAction End IfNext ——————-Thanks,https://paddymaddy.blogspot.com/

RoboCopy VBS Script

by

VBS script with source and destination folder input dialog boxes as well as hard coding the RoboCopy command line switches opposed to issuing the commands from the command prompt       Set objShell = CreateObject("Wscript.Shell")   objSource = InputBox("Enter Source") objDestination = InputBox("Enter Destination")   objCommand = "RoboCopy.Exe " & Chr(34) & objSource & … Read more

Dell recommend using SMS WOL BIOS Settings remote Enable

by

Dell recommend using SMS and Dell OpenManage Client Instrumentation (OMCI).  However, this requires WMI scripting which may be prevented if security lockdown settings prevent such scripts from running. Pros: Exposes the Dell BIOS to WMI and therefore enables almost any modification to be made by running VB script.  It also means SMS hardware inventory can … Read more

Modify the DNS Server Search Order for a Network Adapter

by

Modify the DNS Server Search Order for a Network Adapter Configures a TCP/IP-bound network adapter to use two DNS servers: 192.168.1.100 and 192.168.1.200. Note that even if a computer only uses one DNS server, the IP address of that server must still be passed to the SetDNSServerSearchOrder method as an array (in that case, an … Read more

Play with Script for Windows Firewall

by

Scripting for Windows Firewall   Add an Authorized Application Adds Freecell.exe to the list of authorized applications in the current Windows Firewall profile. Set objFirewall = CreateObject("HNetCfg.FwMgr") Set objPolicy = objFirewall.LocalPolicy.CurrentProfile Set objApplication = CreateObject("HNetCfg.FwAuthorizedApplication") objApplication.Name = "Free Cell" objApplication.IPVersion = 2 objApplication.ProcessImageFileName = "c:windowssystem32freecell.exe" objApplication.RemoteAddresses = "*" objApplication.Scope = 0 objApplication.Enabled = True Set … Read more

Vbs Script To Repair A Remote SMS Client With Error Handling

by

Vbs Script To Repair A Remote SMS Client With Error Handling This is a modified version of my original post from last year entitled: Vbs Script To Repair A Remote SMS Client with error handling provided for Advanced clients. Note: After the script has executed review the CcmRepair log file to verify its success. VBS … Read more