My VB is not great and I think this script was borrowed from somebody who knows what they were doing. The link is below.
'Repair SCCM Client '------------------------------------------------------------ Option Explicit On Error Resume Next Dim sComputer, sSCCMClient If WScript.Arguments.Count = 0 Then sComputer = InputBox("Enter computer name to repair") Else sComputer = WScript.Arguments(0) End If Set sSCCMClient = GetObject("winmgmts://" & sComputer & "/Root/Ccm:SMS_Client") If Err <> 0 Then MsgBox "Error:" & "(" & Err.Number & ")" & vbCrLf & Err.Description Else sSCCMClient.RepairClient MsgBox ("Repair started for " & UCase(sComputer)) End If WScript.Quit
https://community.spiceworks.com/scripts/show/2308-remotely-repair-sccm-client