On Error Resume Next

Const HKEY_CURRENT_USER = &H80000001

strComputer = "."
Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}\\" & strComputer & "\root\default:StdRegProv")

strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\webfleetlog.com"
objReg.CreateKey HKEY_CURRENT_USER,strKeyPath
strValueName = "*"
dwValue = 2
objReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue

strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2"
objReg.CreateKey HKEY_CURRENT_USER,strKeyPath
strValueName = "1406"
dwValue = 0
objReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue

msg1 = "Aanpassing beveiligingsinstellingen succesvol uitgevoerd. Successfully updated internet explorer patch for WebFleetLog online screen." & vbcrlf & vbcrlf 

set WshShell = WScript.CreateObject("WScript.Shell")
DesktopFolder = WshShell.SpecialFolders("Desktop")

set URLShortcut = WshShell.CreateShortcut(DesktopFolder & "\WebFleetLog.url")
URLShortcut.TargetPath = "http://www.fieldlog.eu"
URLShortcut.Save

If Err.Number <> 0 Then 
	Wscript.Echo msg1	
Else
	Wscript.Echo msg1 & "Er is een snelkoppeling toegevoegd aan uw bureaublad. A shortcut has been added to your desktop"
End If