www.IT-Visions.de-Diskussionsforen (Version 2.1)
(Diese Seite wurde noch nicht auf das neue Layout umgestellt!)


Diese Foren stehen den Lesern unserer Bücher und allen anderen registrieren Benutzern dieser Website zur Verfügung. Wir würden uns freuen, wenn viele Nutzer dieser Website hier nicht nur Fragen stellen, sondern auch die Fragen anderer Nutzer beantworten. Diese Foren sind ein ehrenamtlicher, nicht-kommerzieller, unmoderierter Community-Dienst von www.IT-Visions.de. Wenn Sie kommerzielle Unterstützung für .NET/Scripting/PowerShell suchen, schauen Sie bitte auf unser Support-Angebot und unsere Schulungsangebote für Scripting und Schulungsangebote für .NET.



Kapitel 15 Script: Install_Software.vbs
Autor:  Bussmann
E-mail:  Antworten bitte nur in das Forum!
Datum:  03.11.2004 15:33:22
Subject:  Kapitel 15 Script: Install_Software.vbs
Bezug zum Buch:  Windows Scripting lernen (Auflage 2003)
Message:  Hallo,

ich versuche Software (MSI Packet ist voll funktionsfähig) in einer NT4.0(Server)/Win2K(Clients) Domain mit dem o.g. Script zu installieren. Bekomme allerdings meistens Fehlermeldung 1620 zurück.
Der PC an dem das Script gestartet wird ist weder der MSI Quellserver, noch der Rechner auf dem das MSI installiert werden soll.
Wo kann ich die Doku der Fehlermeldungen einsehen?

Anbei das Script:
----------------------------------------------------
Dim objWBemLocator, objConnection, objSoftware
Dim User, Password, Computer, Software, Error

User = "DomainAdmin"
Password = "DomainPasswort"

' PC, auf den das MSI Packet installiert werden soll
Computer = "PCName"

' Pfad zum Server, auf dem das Packet liegt
Software = "\\Servername\TotalCommander\TotalCommander.msi"

Set objWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objConnection = objwbemLocator.ConnectServer(Computer, "root\cimv2", User, Password)

Set objSoftware = objConnection.Get("Win32_Product")

Error = objSoftware.Install(Software,,True)

If Error = 0 Then
    WScript.Echo "Die Installation war erfolgreich."
Else
    WScript.Echo "Bei der Installation ist " &_
    "folgender Fehler aufgetreten: " & Error
End If
----------------------------------------------------
Ich habe volle Domainadminrechte in unserer Domain.
Wenn ich den Softwarepfad über "C:\programme..." anspreche (also das MSI Packet lokal von dem Script ausführenden Rechner nehmen will, bekomme ich anstatt Fehler 1620, Fehler 3 zurück.

Kann mir bitte jemand behilflich sein?
Vielen Dank im Voraus für Eure Mühe.

Gruß
Ch. Bussmann

Antworten

  Zurück zum Forum



 Klassische Programmierung (Scripting, COM) -- Windows Scripting, VBScript, VB6, u.a.
 Kapitel 15 Script: Install_Software.vbs von Bussmann  am 3.11.2004 3:33:22 PM
 Re: Kapitel 15 Script: Install_Software.vbs von Dr. Holger Schwichtenberg  am 7.12.2004 10:33:56 AM


www.IT-Visions.de - Dr. Holger Schwichtenberg / 1998-2019