set mypasswd {XXXXXXXX}
if {$argc != 1} {
  puts "Fehler Aufruf InsReg.exe Lw file.reg."
# Bsp.: InsReg.exe B: M:/Cr5V7010/cr5000-Install/BD.reg
  after 3000
  exit 1
} else { 
  if {[catch {set LW $env(CR5_DRIVE)}]} {set LW "M:"}
  if {![regexp -nocase {^[a-z]:$} $LW]} {set LW "M:"}

  set REG [lindex $argv 0]
  regsub -all {\\} $REG {/} REG
  if {![regexp -nocase "^($LW/|C:/Temp/)" $REG] || ![file exists $REG]} {
      puts "Fehler: Datei unzulaessig ($REG)."
      after 3000
      exit 1
  } else {
    if {[catch {exec $LW/AllgDir/ModPath/pcwRunAs3.exe /noprofile /u bw1wenr0@ww009.siemens.net /p $mypasswd /app "C:/WINNT/regedit.exe /f /s $REG"}] == 0} {
      puts "Reg Systemeintraege ($REG) modifiziert."
      after 3000
      exit 0
    } else {
      puts "Fehler ?Systemeintraege? ($REG)."
      after 3000
      exit 1
    }
  }
}