Script to fix duplicate SMS/SCCM GUID’s

'###########################################################################
'## VB Script: FixSMSGUID.vbs ##############################################
'## Purpose: Delete SMS.ini and restart SMS service. #######################
'## Author: Stephen Leuthold http://www.blogmynog.com #####################################
'## Created: 2008-04-22 ####################################################
'## Last Modified: 2008-09-30 ##############################################
'###########################################################################
'## Changelog

On Error Resume Next
 
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
Const ForReading = 1
Const strOutputFile = "c:\FixSMSGUID_Results.csv"
'****************************************************************************
' Obtain CSV list of file.
'****************************************************************************

'Set objArgs = WScript.Arguments
'If objArgs.Count > 0 Then
'	Set str = WScript.Arguments.Item(1)
'	Set intMode = WScript.Arguments.Item(2)
'ElseIf objArgs.Count = 0 Then

'Via browse dialog box if cmd line arguments null

MsgBox "Select duplicate GUID CSV"
Set objDialog = Createobject("Useraccounts.Commondialog")
objDialog.Filter = "Duplicate GUID CSV|*.csv"
'objDialog.Flags = &H0200
objDialog.Filterindex = 1
objDialog.InitialDir = "C:\"
'objDialog.dialogTitle = "Select a file"
intResult = objDialog.Showopen
If(intResult = 0) Then
	Wscript.Echo "No duplicate GUID CSV file selected! Exiting.."
	Wscript.quit
Else
  strHostList = objDialog.FileName
End If
 
'****************************************************************************
'END CSV file.
'****************************************************************************

'****************************************************************************

Dim arrDupGUID(1)
Dim i, sleepDur, intSleep, strService, objService, errReturn, strMsg
intSleep = 10000
sleepDur = 0
intSleepRetry = 1000
strService = "ccmexec"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile _
	(strHostList, ForReading)
Wscript.echo "Removing duplicate GUID's...."
Wscript.echo
 
'Create Fix SMS GUID status CSV
If objFSO.FileExists(strOutputFile) Then
	objFSO.DeleteFile(strOutputFile)
End If
Set objOutputFile = objFSO.CreateTextFile(strOutputFile, True)
 
'Loop through each line of file
Do Until objTextFile.AtEndOfStream
	strNextLine = objTextFile.Readline
	i = 0
	For Each strItem In CSVParse(strNextLine)
		arrDupGUID(i) = strItem
		i = i + 1
	Next
 
	strHost = arrDupGUID(0)
	strStatus = arrDupGUID(1)
 
	Wscript.Echo "Hostname: "& strHost
 
	'Wscript.echo "Machines status: "& strStatus
	'If machines GUID has not already been fixed.
	If strStatus = "Done" Then
		Wscript.echo "Host already done, skipping: "& strHost
		strMsg = "Done"
		Wscript.echo
	Else
		If fctIsAlive(strHost) = False Then
			strMsg = "Ping timeout"
			Wscript.echo strMsg
			Wscript.echo
		Else
			If Len(strHost) = 0 Then
				Wscript.echo "Hostname string is null, check your IMPORT file!...Exiting..."
				Wscript.quit
			End If
 
			Set objWMIService = GetObject("winmgmts:" _
				& "{impersonationLevel=impersonate}!\\" & strHost)
			If Err.Number Then
				'Wscript.Echo Err.Number
				Wscript.Echo "Error: "& Err.Description
				'Wscript.Echo "Could not connect to the WMI Service"
				Wscript.Echo
				strMsg = Err.Description
			Else
				Set objService = objWMIService.Get("Win32_Service.Name='" & strService & "'")
 
				'Get Windows Directory
				Set objOS = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
				For Each colOS In objOS
					strWindowsDir = colOS.WindowsDirectory
				Next
				'Wscript.Echo "Windows Dir: "& strWindowsDir
				Set objIniDel = GetObject("winMgmts:CIM_DataFile.Name='" & strWindowsDir & "\SMSCFG.INI'")
 
				'##########################################################
				'Stop the service, delete SMSCFG.INI and start the service.
				'##########################################################

				'Stop SMS Host Agent Service
				Wscript.Echo "Stopping SMS Agent Host service"
				errReturn = objService.StopService()
				If errReturn > 0 Then
					'Wscript.Echo "Error: " & errReturn
					strMsg = errReturn.Description
					Wscript.Echo strMsg
				End If
				Wscript.Echo "Waiting..."
				'Wscript.Echo "State: "& objService.State
				Wscript.Sleep intSleep
				strState = objService.State
 
				'Make sure service is stopped before continuing
				Do Until strState = "Stopped"
					Wscript.Echo "Service still stopping, waiting..."
					Wscript.Sleep intSleepRetry
					Set objState = objWMIService.Get("Win32_Service.Name='" & strService & "'")
					strState = objState.State
					sleepDur = sleepDur + 1
					If sleepDur = 30 Then
						strMsg = "Timeout Could not stop SMS Agent service"
						strState = "Stopped"
					End If
					'Wscript.Echo "State: "& strState
				Loop
 
				'Delete SMSCFG.ini file
				Wscript.Echo "Deleting SMSCFG.ini file"
				errReturn = objIniDel.delete
				If errReturn > 0 Then
					'Wscript.Echo "Error: " & errReturn
					Wscript.Echo "Could not delete SMSCFG.ini file"
					strMsg = "Could not delete SMSCFG.ini file"
				End If
 
				'Start SMS Host Agent Service
				Wscript.Echo "Starting SMS Agent Host service"
				errReturn = objService.StartService()
				If errReturn > 0 Then
					'Wscript.Echo "Error: " & errReturn
					Wscript.Echo "Service could not start"
				End If
 
				'Reset sleep duration
				sleepDur = 0
 
				'Make sure service is started before continuing
				Do Until strState = "Running"
					Wscript.Echo "Service still starting, waiting..."
					Wscript.Sleep intSleepRetry
					Set objState = objWMIService.Get("Win32_Service.Name='" & strService & "'")
					strState = objState.State
					'Wscript.Echo "State: "& strState
					sleepDur = sleepDur + 1
					If sleepDur = 30 Then
						strMsg = "Timeout Could not Start SMS Agent service"
						strState = "Running"
					End If
				Loop
				Wscript.echo "SMS Host Service is Running"
				'Wscript.echo "Done with: "& strHost
				If Len(StrMsg) = 0 Then
					strMsg = "Done"
				End If
 
				Wscript.echo
			End If 'END If cannot connect
		End If ' If cannot ping
	End If 'END If machines GUID has not already been fixed.
	Err.Clear
	objOutputFile.Writeline strHost & ","& strMsg
	StrMsg = ""
Loop 'END - Loop through line of file
'END - Reading CSV
'Close file for Writing
objOutputFile.Close
Wscript.quit
 
Function fctIsAlive(strHostOrIP)
	'Function to make sure machine is pingable.
	'Stolen from http://www.fpschultze.de/uploads/wmiping.vbs.txt
Dim objSh, objCmd, strCmd
	strCmd     = "%ComSpec% /C %SystemRoot%\system32\ping.exe -n 1 " & strHostOrIP & " | " _
			   & "%SystemRoot%\system32\find.exe /c /i " & Chr(34) & "ttl=" & Chr(34)
	Set objSh  = WScript.CreateObject("WScript.Shell")
	Set objCmd = objSh.Exec(strCmd)
	fctIsAlive = CBool(Trim(objCmd.StdOut.ReadAll))
	Set objCmd = Nothing
	Set objSh  = Nothing
End Function
 
Function CSVParse(ByVal strLine)
    ' Function to parse comma delimited line and return array
    ' of field values.
	' Stolen from http://www.rlmueller.net/Programs/ReadCSV.txt

    Dim arrFields
    Dim blnIgnore
    Dim intFieldCount
    Dim intCursor
    Dim intStart
    Dim strChar
    Dim strValue
 
    Const QUOTE = """"
    Const QUOTE2 = """"""
 
    ' Check for empty string and return empty array.
    If (Len(Trim(strLine)) = 0) then
        CSVParse = Array()
        Exit Function
    End If
 
    ' Initialize.
    blnIgnore = False
    intFieldCount = 0
    intStart = 1
    arrFields = Array()
 
    ' Add "," to delimit the last field.
    strLine = strLine & ","
 
    ' Walk the string.
    For intCursor = 1 To Len(strLine)
        ' Get a character.
        strChar = Mid(strLine, intCursor, 1)
        Select Case strChar
            Case QUOTE
                ' Toggle the ignore flag.
                blnIgnore = Not blnIgnore
            Case ","
                If Not blnIgnore Then
                    ' Add element to the array.
                    ReDim Preserve arrFields(intFieldCount)
                    ' Makes sure the "field" has a non-zero length.
                    If (intCursor - intStart > 0) Then
                        ' Extract the field value.
                        strValue = Mid(strLine, intStart, _
                            intCursor - intStart)
                        ' If it's a quoted string, use Mid to
                        ' remove outer quotes and replace inner
                        ' doubled quotes with single.
                        If (Left(strValue, 1) = QUOTE) Then
                            arrFields(intFieldCount) = _
                                Replace(Mid(strValue, 2, _
                                Len(strValue) - 2), QUOTE2, QUOTE)
                        Else
                            arrFields(intFieldCount) = strValue
                        End If
                    Else
                        ' An empty field is an empty array element.
                        arrFields(intFieldCount) = Empty
                    End If
                    ' increment for next field.
                    intFieldCount = intFieldCount + 1
                    intStart = intCursor + 1
                End If
        End Select
    Next
    ' Return the array.
    CSVParse = arrFields
End Function