SetRegistry and GetRegistry Script Replacement

[AdamWoodland]

Since the introduction of Virtual ViewX and the way Set/GetRegistry stores its data values has changed, it has caused some of the customers I talk to issues when those registry settings have also been used by external applications for various purposes. As a temporary workaround, the scripts below could be helpful to someone.

Provided without any warranty, use at own risk, etc.

Option Explicit

Const ROOT = "HKEY_CURRENT_USER\SOFTWARE\Schneider Electric\ClearSCADA\ViewX/Mimics"

Public Function GetRegistry2(Key, DefaultValue)
	Dim ScriptObject
	Dim ErrNumber
	
	Set ScriptObject = CreateObject("WScript.Shell")
	
	On Error Resume Next
	GetRegistry2 = ScriptObject.RegRead(ROOT & "\" & Key)
	ErrNumber = Err.Number
	On Error Goto 0
	
	If ErrNumber <> 0 Then
		SetRegistry2 Key, DefaultValue
		GetRegistry2 = DefaultValue
	End If
	
End Function

Public Sub SetRegistry2(Key, Value)
	Dim ScriptObject
	
	Set ScriptObject = CreateObject("WScript.Shell")
	
	On Error Resume Next
	ScriptObject.RegWrite ROOT & "\" & Key, Value
	On Error Goto 0
End Sub

 I suggest that if you do use this script consider it a temporary solution and so consider a better and more permanent solution.

[BevanWeiss]

It might be nice if the Write did both a Write to the Geo SCADA Expert registry (Server.SetRegistry...) as well as writing to the local computer Windows registry.

And perhaps if the Read actually read from the Geo SCADA Expert registry (Server.GetRegistry..) and then wrote it back to the local computer Windows registry.

The GetRegistry could potentially even check the Geo SCADA Expert registry first, and if this registry entry didn't exist, then it could fall back to trying to read the Windows registry.. and updating the Geo SCADA Expert registry in that case.

Then the 'new' value of the registry could be written back to the Windows registry.

It would actually be nice if this behaviour had of been built into ViewX, and perhaps if the write back to the Windows Registry were able to be enabled/disabled via the ViewX options settings (so it could have been on a computer by computer basis).  The migration from Windows registry -> GSE registry caused me a little headache on one particular user upgrade.

[AdamWoodland · Accepted solution]

All fair ideas, anyone is welcome to update the code as they need and if posted here then people can choose which works best for them.