Versionsnummer på officepakke/ Access installleret på maskinen
Hej er der nogen der kan hjælpe mig med at et script eller et Visual Basic program, som kan vise hvilken version af Access der ligger på maskinen. Det behøver ikke at være et vbs script .Noget i den stil
OPTION EXPLICIT On Error Resume Next 'Global variables Dim shell Dim strVerKey,strVersion,Currentversion Dim sngWaitTime, CD
'Pause for 2 second to wait for system to load script sngWaitTime = Timer() + 2 Do Loop While Timer() < sngWaitTime
Set WshShell = WScript.CreateObject("WScript.Shell")
' Her sættes en variabelværdi for det aktuelle CD-R drev, hvor VBS filen ligge er usikker på hvordan det skal være CD = CurrentDir
'Create references to system objects (ddls) Set Shell = CreateObject("WScript.Shell")
'Henter oplysninger om Currentversion=Shell.RegRead("HKLM\SOFTWARE\Microsoft\Office\CurrentVersion")
Select case Currentversion Case 1 Currentversion="2002" WshShell.run CD &"\install_1.exe" Case 2 Currentversion="2000" WshShell.run CD &"\install_2.exe" Case 3 Currentversion="1997" WshShell.run CD &"\install_3.exe"
I et inbound callcenter, hvor identiteten på den, der ringer ind, skal bekræftes, kan kontrollen nu foregå i telefonkøen. Det understøtter fem centrale KPI'er for callcentre.
Har selv fundet løsningen, så sparer jeg de points.
'OPTION EXPLICIT On Error Resume Next 'Global variables Dim shell Dim strVerKey,strVersion,Currentversion2002, Currentversion2000, Currentversion1997 Dim sngWaitTime, CD
'Pause i 2 sekunder for at vente på systemet loader script sngWaitTime = Timer() + 2 Do Loop While Timer() < sngWaitTime
Set WshShell = WScript.CreateObject("WScript.Shell")
MsgBox WshShell.CurrentDirectory
' Finder det aktuelle drev CD = WshShell.CurrentDirectory Cd1 = CD & "\P1.exe" Cd2 = CD & "\P2.exe" Cd3 = CD & "\P3.exe"
MsgBox CD ' reference tol system objecter Set Shell = CreateObject("WScript.Shell")
'Henter oplysninger om Currentversion2002=Shell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Access\UserData") Currentversion2000=Shell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Access\UserData") Currentversion1997=Shell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Office\8.0\Access\UserData")
If Currentversion2002 = "1" Then MsgBox "2002" WshShell.run CD1 End If
If Currentversion2000 = "1" Then MsgBox "2000" WshShell.run CD2 End If If Currentversion1997 ="1" Then MsgBox "1997" WshShell.run CD3 End If 'flush set Shell=nothing
Hilsen Tballe
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
