option explicit

dim kronosz, regroot, installed, sh, fso, strcomputer, objWMIService, colProcesses

Set sh = WScript.CreateObject("WScript.Shell")
set fso = CreateObject("Scripting.FileSystemObject")

regroot = "HKEY_CURRENT_USER\Software\kronosz\"

on error resume next

kronosz = sh.regread(regroot & "kronosz")

if kronosz = "" then
	installed = msgbox("The program is currently not installed. Would you like to install it now?",vbquestion+vbyesno,"Missing parameters")
	if installed = vbyes then
		sh.regwrite regroot & "kronosz", 0
	end if
	wscript.quit
else
end if

if kronosz = 1 then
	sh.run "D:\appz\clock\8rdavcore088\8rdavcore088\8rdavcore.exe -s FSB 66",7,true
	for x = 1 to 1000
	strComputer = "."
	Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
	Set colProcesses = objWMIService.ExecQuery _
    ("Select * from Win32_Process Where Name = '8rdavcore.exe'")
	If colProcesses.Count = 0 Then
	sh.run "D:\appz\clock\8rdavcore088\8rdavcore088\8rdavcore.exe -s VCore 1200",7,true
	exit for
	else
	wscript.sleep 1000
	end if
	next
	
	sh.regwrite regroot & "kronosz", 0
else
	sh.run "D:\appz\clock\8rdavcore088\8rdavcore088\8rdavcore.exe -s VCore 1400",7,true
	for x = 1 to 1000
	strComputer = "."
	Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
	Set colProcesses = objWMIService.ExecQuery _
    ("Select * from Win32_Process Where Name = '8rdavcore.exe'")
	If colProcesses.Count = 0 Then
	sh.run "D:\appz\clock\8rdavcore088\8rdavcore088\8rdavcore.exe -s FSB 133",7,true
	exit for
	else
	wscript.sleep 1000
	end if
	next
	
	sh.regwrite regroot & "kronosz", 1
end if

fso.CopyFile "D:\linktarolohely\kronosz_" & kronosz & ".lnk", "D:\kvikklauncs\90_kronosz.lnk"