Set application = WScript.CreateObject("PowerPoint.Application")
Set presentation = application.ActivePresentation
Set slideshow = application.SlideShowWindows.Item(1)

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.SendKeys "^i"