Software via VBS im Systemstart installieren

Ja, das Problem habe ich immer noch, habe es aber erstmal auf Seite gelegt, da ich ja z.H. nur übe.
Das Script sieht vielleicht etwas skuriel aus, aber es funktioniert.
Leider kann ich, wenn ich Office installieren möchte keine Einstellungen vornehmen, z.B. "ohne Outlook"

Wenn jemand eine Anregung hat wie es einfacher geht immer her damit!

Besten Gruß
Sam

'
'
' Autor: Sam
' Datum: 06.03.2007
' Sprache: VB-Script
'
' Beschreibung:
' Installiert folgende Anwendungen im Hintergrund!
' - Acrobat Reader 8
' - Prüfung ob Acrobat Reader oder Acrobat Pro installiert ist.
' - MS Outlook 2003 Standart
' - Prüfung ob MS Outlook 2003 installiert ist.
'
' Erweiterbar auf andere Anwendungen
'
' HINWEISE:
' Adminrechte erforderlich!!!
'
' (C) 2007 by Dirk Lenzing
'
'

Option Explicit
On Error Resume Next

'Deklarierung
Const DEBUGMODE = false 'Debugmodus true/false

Dim objshell
Dim objapp
Dim objnetwork
Dim objfso


Dim varmachine 'lokaler Rechnername

'Abschnitt "Softwareistallation"
Dim rtcheckkey 'Returncode von CheckKey
Dim arrothersoftwarekey(6,6)'Array für Regestrierungsschlüssel die auf vorhandensein geprüft werden sollen. Müssen immer auf einen Wert bezogen sein! z.B. ("HKLM\...\Displayname")
'Ist einer von ihnen vorhanden wird die Software aus dem Array "arrsoftwarekey" nicht installiert!
'Registrierungsschlüssel der Software: OtherSoftwarekey(x, )
'Softwaretitel: OtherSoftwarekey( ,x)
Dim varothersoftwarekeyindex'Zähler in der Abfrageschleife des Othersoftwarekey-Arrays
Dim varsoftwarekeyindex 'Zähler in der Abfrageschleife des Softwarekey-Arrays
Dim arrsoftwarekey(2,2,2) 'Array für Software; Die Abfrage beginnt bei 1,0,0; Jede neue Software bekommt eine eigene Ziffer im ersten Block!!!
'Softwaretitel: Softwarekey(x, , )
'Installpfad mit Parametern: Softwarekey( ,x, )
Dim arrstringparts 'In dieser Variablen werden Werte in Form eines Strings übertragen. Das Array, der Startwert und der Endwert im Array(arrothersoftwarekey).
'Extrahiert die einzelnen Werte aus dem String z.B. "1,1,2" = Array 1 (In diesem Fall der Adobe Acrobat 8.0 Reader)
'Im Array(OtherSoftwarekey) wir nun von Schlüssel 1 bis 2 nach vorhandener Software gesucht.
'Ist diese vorhanden wird die Installation in Array 1 nicht durchgeführt!!!
'Installation JA / NEIN steht in: Softwarekey( , ,x)
Dim button 'Messageboxabfragevariable

'------------------------------------------------------------------------------------------------------------------------------------------


'Objekte & Variablen initiieren
Set objshell = CreateObject("wscript.shell")
Set objapp = CreateObject("Shell.Application")
Set objnetwork = CreateObject("wscript.network")
Set objfso = CreateObject("scripting.filesystemobject")

varmachine = objnetwork.computername


'------------------------------------------------------------------------------------------------------------------------------------------ Quit auf Server


'Abbruch auf Server!
if lcase(varmachine) = "server" then WScript.quit


'------------------------------------------------------------------------------------------------------------------------------------------ Softwareinstallation


'Array OtherSoftwarekey bestücken
'Erste Ziffer: Zu prüfender Registrierungsschlüssel
'Zweite Ziffer: Anzuzeigender Name für den Debugmode

arrothersoftwarekey(1,0) = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{AC76BA86-1033-F400-7760-000000000002}\Displayname"
arrothersoftwarekey(1,1) = "Adobe Acrobat 7.0 Professional"
arrothersoftwarekey(2,0) = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{AC76BA86-7AD7-1031-7B44-A80000000002}\Displayname"
arrothersoftwarekey(2,2) = "Adobe Acrobat 8.0 Reader"
arrothersoftwarekey(3,0) = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\F-Secure Product 444\DisplayName"
arrothersoftwarekey(3,3) = "F-Secure Internet Security 2007"
arrothersoftwarekey(4,0) = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{90110407-6000-11D3-8CFE-0150048383C9}\Displayname"
arrothersoftwarekey(4,4) = "Microsoft Office 2003 Professional"
arrothersoftwarekey(5,0) = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{90E00407-6000-11D3-8CFE-0150048383C9}\Displayname"
arrothersoftwarekey(5,5) = "Microsoft Office Outlook 2003 Standart"
arrothersoftwarekey(6,0) = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{4781569D-5404-1F26-4B2B-6DF444441031}\Displayname"
arrothersoftwarekey(6,6) = "Ahead Nero 7 Premium"

'Noch nicht im Array eingetragen!!!
'arrothersoftwarekey(7,0) = "\Displayname"
'arrothersoftwarekey(7,7) = "Alcohol 120%"

'Array Softwarekey bestücken
'Erste Ziffer: Anzuzeigender Name
'Zweite Ziffer: Zu prüfender Registrierungsschlüssel
'Softwarecontrolarray: (a,b,c)
' a = Laufende Nummer aus dem Softwarekeyarray
' b = Begin in OhterSoftwarekeyarray
' c = Ende in OtherSoftwarekeyarray
'
'---------------------
'Index1
arrsoftwarekey(1,0,0) = "Adobe Acrobat 8.0 Reader"
arrsoftwarekey(1,1,0) = "\\Server\ClientApps\acroread8\Setup.exe /sall /norestart"
softwarecontrol("1,1,2")

'---------------------
'Index2
arrsoftwarekey(2,0,0) = "Microsoft Office Outlook 2003 Standart"
arrsoftwarekey(2,2,0) = "\\Server\ClientApps\outlook2003\setup.exe /noreboot /q /PIDKEY=xxx"
softwarecontrol("2,5,5")


'------------------------------------------------------------------------------------------------------------------------------------------

'Abfragen auf Aktualisierungsbedarf
softwarecodes
For varsoftwarekeyindex = 1 To UBound(arrsoftwarekey)
if DEBUGMODE = true then MsgBox ("Software zur Installation:" & vbCr & vbCr & "Softwaretitel: " & arrsoftwarekey(varsoftwarekeyindex,0,0) & vbCr & _
"Installationspfad mit Parametern: " & arrsoftwarekey(varsoftwarekeyindex,varsoftwarekeyindex,0) & vbCr & vbCr & _
arrsoftwarekey(varsoftwarekeyindex,0,0) & " installieren? " & arrsoftwarekey(varsoftwarekeyindex,varsoftwarekeyindex,varsoftwarekeyindex)& "!")
If Not arrsoftwarekey(varsoftwarekeyindex,varsoftwarekeyindex,varsoftwarekeyindex) = "Nein" Then
if DEBUGMODE = true then MsgBox (arrsoftwarekey(varsoftwarekeyindex,0,0) & " kann installiert werden.")
if DEBUGMODE = true then objshell.popup arrsoftwarekey(varsoftwarekeyindex,0,0), 3, "Softwareaktualisierung", vbOKOnly
Dim objsetup 'Dieses Object wird initialisiert um auf den Returncode der Installation zu warten und danach wieder gelöscht.
Set objsetup = objshell.exec(arrsoftwarekey(varsoftwarekeyindex,varsoftwarekeyindex,0))
Do Until objsetup.status = 1
WScript.sleep 100
Loop
objsetup = Nothing
if DEBUGMODE = true then objshell.popup "Die Installation von " & arrsoftwarekey(varsoftwarekeyindex,0,0) & " ist abgeschlossen!", 3, "Softwareaktualisierung",vbOKOnly
Else
if DEBUGMODE = true then MsgBox (arrsoftwarekey(varsoftwarekeyindex,0,0) & " oder eine im Array(OtherSoftwarekey) hinterlegte Anwendung ist bereits installiert!")
End If
Next


'
' ENDE DES SCRIPTS
'


'------------------------------------------------------------------------------------------------------------------------------------------ SUBs


'Überprüft Registrierungsschlüssel auf existens und gibt einen Returncode zurück; Existiert der Schlüssel ist der Returncode 0;


Sub checkkey(keystring)
'<--------------------------option explicit
On Error Resume Next
Err.number = 0
if DEBUGMODE = true then MsgBox ("Der Errorcode wird vor dem Auslesen des Schlüssels auf 0 gesetzt." & vbCr & "Errorcode: " & Err.number)
objshell.regread (keystring)
if DEBUGMODE = true then MsgBox ("Der Schlüssel wurde ausgelesen:" & vbCr & vbCr & "Errorcode: " & Err.number & vbCr & vbCr & "Wenn der Errorcode 0 ist, ist der Schlüssel vorhanden!")
rtcheckkey = Err.number
End Sub


'------------------------------------------------------------------------------------------------------------------------------------------


'Überprüft ausgewählte Registrierungsschlüssel auf existens. Existiert einer der Registrierungsschlüssel so wird in das jeweilige
'Array "arrsoftwarekey(_,_,x) ein Wert eingetragen, dieser führt ggf. dazu das die Software aus dem Array "arrsoftwarekey"
'nicht installiert wird.


Sub softwarecontrol(strwerte)
On Error Resume Next
'<--------------------------option explicit
arrstringparts = Split(strwerte, ",",3)
For varothersoftwarekeyindex = arrstringparts(1) To arrstringparts(2)
if DEBUGMODE = true then MsgBox ("Prüfe auf Software: " & arrothersoftwarekey(varothersoftwarekeyindex,varothersoftwarekeyindex))
checkkey(arrothersoftwarekey(varothersoftwarekeyindex,0))
If rtcheckkey = 0 Then
if DEBUGMODE = true then MsgBox ("Software gefunden! Schreibe nach: arrsoftwarekey" & "(" & arrstringparts(0)& "," & arrstringparts(0) & "," & arrstringparts(0) & ")")
arrsoftwarekey(arrstringparts(0),arrstringparts(0),arrstringparts(0)) = "Nein" 'Gefunden: JA / Installieren: NEIN
Exit For
Else
arrsoftwarekey(arrstringparts(0), arrstringparts(0), arrstringparts(0)) = "Ja" 'Gefunden: NEIN / Installieren: J
End If
Next
End Sub


'------------------------------------------------------------------------------------------------------------------------------------------


'
' ENDE DER SUBS
'


'
'* ENDE *
'**

Danke für den Hinweis .... werde mich mal damit beschäftigen!

Aber ich hab da noch ein, zwei Fragen.

1. Was meinst du mit dem Abschluss der Installation?
Das Setup wird als "Silent" gestartet und unternimmt nach Abschluss nichts ...

2. Warum ist das Script im Userkontext? Es liegt doch laut Richtlinie im Systemstart.
Nicht im Benutzer- oder Autostart!!! Demnach müsste es doch Adminrechte haben!?

- Mit so einem MSI-Packer habe ich mich schon mal beschäftigt, habe mir zu dem Zweck extra
eine saubere VM mit nur XP erstellt. Ging anfangs auch ganz gut, nur beim 2. Scan kam dann
immer eine Fehlermeldung, so das ich es nachher drangegeben habe...

- Der einzige Grund für das Script ist das was einen Absatz weiter oben steht. Ich habs nicht
hinbekommen so ein MSI zu erstellen...

Hoffe das ich mit den Tools aus Deinen Links mehr Glück habe!
Danke.

Gruß Sam