Set application = WScript.CreateObject("PowerPoint.Application")

' Get arguments
If WScript.Arguments.Length > 0 Then
	layoutIndex = WScript.Arguments(0)
Else
	Call Err.Raise(60003, , "Section title is not provided")
End If

' Get current slide number
currentSlide = application.ActiveWindow.Selection.SlideRange.SlideNumber
Set newSlide = application.ActivePresentation.Slides.Add(currentSlide + 1, layoutIndex)
application.ActiveWindow.View.GotoSlide currentSlide + 1