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

If application.SlideShowWindows.Count > 0 Then
	Set slideshow = application.SlideShowWindows.Item(1)
End If

If IsNull(slideshow) Or IsEmpty(slideshow) Then
	Call Err.Raise(60003, , "SlideShow not running")
Else
	Set WshShell = WScript.CreateObject("WScript.Shell")
	WshShell.SendKeys "g"
End If