'**********Ask user for permission**********
msgBoxText = "This will place an Innovative Solutions Support shortcut on your desktop." + CRLF + _
	     "Click OK to continue."
msgBoxTitle = "Process Druid"

result = MsgBox(msgBoxText, 1+32+4096, msgBoxTitle)

If result = 2 Then
	MsgBox "Cancelled!", 64+4096, msgBoxTitle
	WScript.Quit
End If

If result = 7 Then
	MsgBox "Cancelled!", 64+4096, msgBoxTitle
	WScript.Quit
End If
'**********Ask user for permission**********

Dim    WSHShell
Set    WSHShell = WScript.CreateObject("WScript.Shell")
strLocalFolder = WSHShell.SpecialFolders("Desktop")

Set shortCut = WSHSHell.CreateShortcut(strLocalFolder & "\Innovative Support.lnk")

shortCut.TargetPath = "\\app0\exports\innosol\UltraVNC SC\Innovative Solutions\helpdesk.exe"
shortCut.IconLocation = "\\app0\exports\innosol\UltraVNC SC\Innovative Solutions\helpdesk.exe,0"
shortCut.Save