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

Dim isLaserPointerEnabled

isLaserPointerEnabled = slideshow.View.LaserPointerEnabled

slideshow.View.PointerType = 4
If isLaserPointerEnabled Then
	slideshow.View.LaserPointerEnabled = 0
	slideshow.View.PointerType = 4
Else
	slideshow.View.LaserPointerEnabled = 1
End If