Here is the full code:
Okay, here comes the full code:
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Developer Studio">
<META HTTP-EQUIV="Content-Type" content="text/html; charset=iso-8859-1">
<TITLE>DICOMWeb Image Database Regenerator</TITLE>
</HEAD>
<BODY>
<H1>DICOMWeb Image Database Refrigerator</H1>
Press Regenerate Database to regenerate all images in the database.<br>
<font color=red>Only for service personnel. If inadvertently used may result in loss of data.</font>
<script language="JScript">
function outMessage(amsg)
{
var completemsg;
completemsg = document.forms.choice.OutputArea.value;
completemsg += (amsg + "\n"

;
choice.OutputArea.value = completemsg;
}
function outDot()
{
var completemsg;
completemsg = document.forms.choice.OutputArea.value;
completemsg += ("."

;
choice.OutputArea.value = completemsg;
}
function regenerate()
{
var cmpConfig = new ActiveXObject("CmpDicomWebConfig.DicomWebConfig"

;
//get image root folder
var ImageRootFolder;
ImageRootFolder = cmpConfig.getParam("Common", "ImageRootFolder"

;
outMessage("ImageRootFolder = " + ImageRootFolder);
//get number of compression levels
CompressionLevels = cmpConfig.getParam("Common", "CompressionLevels"

;
var nLevel;
var ofs = new ActiveXObject("Scripting.FileSystemObject"

;
var cmpManager = new ActiveXObject("cmpDicomWebStoragemanager.DWStorageManager"

;
if(cmpManager == null)
{
outMessage("Cannot instantiate Storagemanager component"

;
return;
}
//for all CompressionLevels
for(nLevel = 1; nLevel <= CompressionLevels; nLevel++)
{
outMessage("\n****************************************"

;
outMessage("Processing Compression Level " + nLevel);
outMessage("****************************************"

;
var FolderSpec = ImageRootFolder + "\\" + "Level" + nLevel;
var oFolder = ofs.GetFolder(FolderSpec);
if(oFolder == null)
{
outMessage("Cannot find folder" + FolderSpec);
continue;
}
var fc = new Enumerator(oFolder.files);
//for all files in one level
for (; !fc.atEnd(); fc.moveNext())
{
if(choice.ListNames.checked)
{
outMessage(fc.item());
}
else
{
outDot();
}
cmpManager.addImage(fc.item(), 1); //1 = regenerate
}
}
outMessage("Finished"

;
}
</script>
<form name="choice">
<input type=button value="Regenerate Database" onclick="regenerate()"><br>
Output<br>
<input type=checkbox id="ListNames">List FileNames
<br>
<textarea rows=25 cols=90 name="OutputArea">
Okay, here comes the full code:
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Developer Studio">
<META HTTP-EQUIV="Content-Type" content="text/html; charset=iso-8859-1">
<TITLE>DICOMWeb Image Database Regenerator</TITLE>
</HEAD>
<BODY>
<H1>DICOMWeb Image Database Refrigerator</H1>
Press Regenerate Database to regenerate all images in the database.<br>
<font color=red>Only for service personnel. If inadvertently used may result in loss of data.</font>
<script language="JScript">
function outMessage(amsg)
{
var completemsg;
completemsg = document.forms.choice.OutputArea.value;
completemsg += (amsg + "\n"

;
document.forms.choice.OutputArea.value = completemsg;
}
function outDot()
{
var completemsg;
completemsg = document.forms.choice.OutputArea.value;
completemsg += ("."

;
document.forms.choice.OutputArea.value = completemsg;
}
function regenerate()
{
var cmpConfig = new ActiveXObject("CmpDicomWebConfig.DicomWebConfig"

;
//get image root folder
var ImageRootFolder;
ImageRootFolder = cmpConfig.getParam("Common", "ImageRootFolder"

;
outMessage("ImageRootFolder = " + ImageRootFolder);
//get number of compression levels
CompressionLevels = cmpConfig.getParam("Common", "CompressionLevels"

;
var nLevel;
var ofs = new ActiveXObject("Scripting.FileSystemObject"

;
var cmpManager = new ActiveXObject("cmpDicomWebStoragemanager.DWStorageManager"

;
if(cmpManager == null)
{
outMessage("Cannot instantiate Storagemanager component"

;
return;
}
//for all CompressionLevels
for(nLevel = 1; nLevel <= CompressionLevels; nLevel++)
{
outMessage("\n****************************************"

;
outMessage("Processing Compression Level " + nLevel);
outMessage("****************************************"

;
var FolderSpec = ImageRootFolder + "\\" + "Level" + nLevel;
var oFolder = ofs.GetFolder(FolderSpec);
if(oFolder == null)
{
outMessage("Cannot find folder" + FolderSpec);
continue;
}
var fc = new Enumerator(oFolder.files);
//for all files in one level
for (; !fc.atEnd(); fc.moveNext())
{
if(choice.ListNames.checked)
{
outMessage(fc.item());
}
else
{
outDot();
}
cmpManager.addImage(fc.item(), 1); //1 = regenerate
}
}
outMessage("Finished"

;
}
</script>
<form name="choice">
<input type=button value="Regenerate Database" onclick="regenerate()"><br>
Output<br>
<input type=checkbox id="ListNames">List FileNames
<br>
<textarea rows=25 cols=90 name="OutputArea">
<br>
<textarea rows=25 cols=90 name="OutputArea"></textarea>
</form>
</BODY>
</HTML>