VB Script : Repair SCCM Client Remotely

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

Related posts

Leave a Comment