vbs 6.0 ile pc de ms office 2003 ün yüklü olup olmadığı nasıl yazılır

[olymposss]

herkese iyi akşamlar

VBS 6.0 kullanıyorum. ufak programlar yazıyorum. ama şimdi bana bilgisayarda MS office 2003 ün yüklü olup olmadığını belirleyen kodlara ihtiyacım var.
excel de makro ile program yazıyorum. bu programa setup yapacağım. ancak eğer bilgisayarda excel2003 yüklü değilse ilk önce exceli sonra programı kuracak.bu başlangıcı ancak vbs 6.0 ile yapabilirim diye düşünüyoum.
bu kodlarda yardımcı olacak arkadaşlar var mı acaba?
yardımcı olacaklara şimdiden çok teşekkür ederim. saygılar:yardim:

 

[alpi]

Aşağıdaki kodu deneyin

Sub deneme()
    On Error GoTo 1
    Dim i As Object
    Set i = CreateObject("Excel.Application")
    If i.Version = "11.0" Then
        MsgBox "Excel Yüklü ve versiyonu 2003"
    Else
        MsgBox "Excel Yüklü fakat versiyonu 2003 değil"
    End If
    i.Quit
    Exit Sub
1     MsgBox "Excel yüklü değil"
End Sub

 

[Orion1]

Merhabalar.
versiyon 11 den küçükse şeklinde ayarlama yapabilirmiyiz."11.00" tırnak içersine alınmış, sanırım koşula string olarak bakılıyor.
Yani excel versiyonu 11 den küçükse ve excel yüklü değilse goto 1 olsun.
Ayrıca sayın Olymposss inndir.com 'da çok güzel setup programları var .Belirtmek isterim.
Ben oradan bir tane ücretsiz setup programı indirdim .Çok kullanışlı ve basit.
İyi çalışmalar.

 

[alpi]

Şöyle mi istiyorsunuz

Sub deneme()
    On Error GoTo 1
    Dim i As Object
    Set i = CreateObject("Excel.Application")
    If i.Version = "11.0" Then
        MsgBox "Excel Yüklü ve versiyonu 2003"
    ElseIf i.Version < "11.0" Then
        GoTo 1
    End If
    i.Quit
    Exit Sub
1   MsgBox "Excel 2003 y&#252;kl&#252; de&#287;il"
End Sub

 

[Orion1]

Sayın alpi teşekkür ederim.Yalnız v değişkenini tanıtıp onunla hiçbir işlem yapmamışsınız.
İyi geceler.