Dim Shell, ProgrammName
Set Shell = CreateObject("WScript.Shell")

Dim Fi, Fso

Set WshShell = WScript.CreateObject("WScript.Shell")
Set WshProcessEnv = WshShell.Environment("Process")

local_ddb = WshProcessEnv("pdm_ldb_path") & "\.proi\local.ddb"

'WScript.Echo local_ddb

Set Fso = CreateObject("Scripting.FileSystemObject")
Set Fi = Fso.GetFile(local_ddb)

Dim Frage
Dim Rueckgabe
Dim Meldung
Dim Dateigroesse

Dateigroesse = round ( Fi.Size / (1024*1024),1)

IF Dateigroesse > 75 Then
Frage = "Ihre locale Datenbank ist zu groß (" & Dateigroesse & " MB)" & Chr(10) & "Wollen Sie diese jetzt komprimieren?" & Chr(10) & "(Hinweis: Sie sollten - aus Sicherheitsgründen - nur dann mit JA antworten, wenn Sie alle geänderten Objekte eingecheckt haben)" & Chr(10) & "JA - Komprimiert die locale Datenbank und startet Intralink" & Chr(10) & "NEIN - Startet Intralink (ohne Komprimierung)" 

Rueckgabe = MsgBox (Frage, +vbYesNo +vbDefaultButton3 +vbQuestion, "Locale Datenbank jetzt Komprimieren?")

Select Case Rueckgabe

   Case vbYes

	Meldung = "Sie haben auf Ja geklickt!"  & Chr(10) & "Bitte warten, bis die Datenbank komprimiert ist und Intralink gestartet wird!"
	'MsgBox Meldung, vbExclamation, "Achtung!"
		
		Set oExec = WshShell.Exec("ilink_compact.bat")
		Do While oExec.Status = 0
		     WScript.Sleep 100
		Loop
		'WScript.Echo oExec.Status

   Case vbNo

     	Meldung = "Intralink wird gestartet"

   Case vbCancel

	Meldung = "ABBRUCH! Intralink wird NICHT gestartet!" 
	MsgBox Meldung, vbExclamation, "INFO"

End Select

Else

End if

WScript.Quit()