Dim WshShell
Dim objFSO

Dim curVerion
Dim newVersion
newVersion = "0.3"

Dim VPNInstalled
Dim ChildrenVPNInstalled

Dim VPNExist
Dim ChildrenVPNExist

Dim sReturn 

Dim userIsAdmin


const KEY_QUERY_VALUE = &H0001 
const KEY_SET_VALUE = &H0002 
const KEY_CREATE = &H0032 
const KEY_CREATE_SUB_KEY = &H0004 
const KEY_DELETE = &H00010000 
const HKEY_LOCAL_MACHINE = &H80000002 
  
strComputer = "." 

Set objReg=GetObject("winmgmts:"_ 
    & "{impersonationLevel=impersonate}!\\" &_ 
    strComputer & "\root\default:StdRegProv") 
strKeyPath = "SYSTEM\CurrentControlSet" 
  
bHasAccessRight = False 

' Does the account under which the script runs have the 
'    right to query the SYSTEM\CurrentControlSet key 
objReg.CheckAccess HKEY_LOCAL_MACHINE, strKeyPath, _ 
    DELETE, bHasAccessRight 
If bHasAccessRight = True Then 
    userIsAdmin = true
Else 
    userIsAdmin = false
End If


Set WshShell = CreateObject( "Wscript.Shell")
On Error Resume next

Set objFSO      = WScript.CreateObject("Scripting.FileSystemObject")
On Error Resume next
WshShell.CurrentDirectory = objFSO.GetParentFolderName(WScript.ScriptFullName)

Dim RegTree
RegTree = "HKEY_CURRENT_USER"

if (InStr(LCase(WshShell.CurrentDirectory),"all users")) Then
	RegTree = "HKEY_LOCAL_MACHINE"
	if (not userIsAdmin) Then
		WScript.Quit 0
	end if
End If

curVersion = WshShell.RegRead(RegTree & "\Software\MgnService\VPNConnections\version")

if (curVersion <> newVersion) Then
	
	VPNInstalled = "1"
	If VPNInstalled = "1" Then
		sReturn = WshShell.Run("cmstp.exe vpn\mgn-vpn.inf /s", 1, TRUE)

		VPNExist = WshShell.RegRead(RegTree & "\Software\Microsoft\Connection Manager\Mappings\VPN соединение Магинфо")
		if VPNExist <> "" then
			MsgBox ("VPN соединение Магинфо успешно обновлено")
		End If
	End if
	
	ChildrenVPNInstalled = WshShell.RegRead(RegTree  & "\Software\MgnService\VPNConnections\Components\ChildrenVPN")
	If ChildrenVPNInstalled <> "1" AND RegTree = "HKEY_LOCAL_MACHINE" Then
		ChildrenVPNInstalled = WshShell.RegRead("HKEY_CURRENT_USER\Software\MgnService\VPNConnections\Components\ChildrenVPN")
	End If
	If ChildrenVPNInstalled = "1" Then
		sReturn = WshShell.Run("cmstp.exe vpn\mgn-ch.inf /s", 1, TRUE)
		
		ChildrenVPNExist = WshShell.RegRead(RegTree & "\Software\Microsoft\Connection Manager\Mappings\Детский интернет (Магинфо)")
		if ChildrenVPNExist <> "" then
			MsgBox ("Детский интернет (Магинфо) успешно обновлен")
		End If
	End if

	If not (VPNExist <> "" xor VPNInstalled = "1") and not (ChildrenVPNExist <> "" xor ChildrenVPNInstalled = "1") then
		WshShell.RegWrite RegTree & "\Software\MgnService\VPNConnections\version",newVersion,"REG_SZ"
	End If
else
	VPNExist = WshShell.RegRead(RegTree & "\Software\Microsoft\Connection Manager\Mappings\VPN соединение Магинфо")

	if VPNExist = "" Then
		VPNInstalled = "1"
		If VPNInstalled = "1" Then
			sReturn = WshShell.Run("cmstp.exe vpn\mgn-vpn.inf /s", 1, TRUE)

			VPNExist = WshShell.RegRead(RegTree & "\Software\Microsoft\Connection Manager\Mappings\VPN соединение Магинфо")
			if VPNExist <> "" then
				MsgBox ("VPN соединение Магинфо успешно восстановлено")
			End If

		End if
	End If

	ChildrenVPNExist = WshShell.RegRead(RegTree & "\Software\Microsoft\Connection Manager\Mappings\Детский интернет (Магинфо)")

	if ChildrenVPNExist = "" Then
		ChildrenVPNInstalled = WshShell.RegRead(RegTree & "\Software\MgnService\VPNConnections\Components\ChildrenVPN")
		If ChildrenVPNInstalled <> "1" AND RegTree = "HKEY_LOCAL_MACHINE" Then
			ChildrenVPNInstalled = WshShell.RegRead("HKEY_CURRENT_USER\Software\MgnService\VPNConnections\Components\ChildrenVPN")
		End If
		If ChildrenVPNInstalled = "1" Then
			sReturn = WshShell.Run("cmstp.exe vpn\mgn-ch.inf /s", 1, TRUE)
			
			ChildrenVPNExist = WshShell.RegRead(RegTree & "\Software\Microsoft\Connection Manager\Mappings\Детский интернет (Магинфо)")
			if ChildrenVPNExist <> "" then
				MsgBox ("Детский интернет (Магинфо) успешно восстановлен")
			End If
		End if
	End If
End If