Jump to content

Update Skript


Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Empfohlene Beiträge

Hi,

 

hat jemand oder kann jemand von euch ein Skript schreiben das nach dem Login automatisch überprüft ob das neuste

Service-Pack Installiert ist und wenn nicht das neuste was sich in einem Freigegeben Verzeichnis auf dem Server befindet Installiert .

 

Hab mal wo gelesen das es sowas geben soll aber noch nirgends eins gefunden.

 

 

MFG

Zw3rG

Link zu diesem Kommentar

Tach auch,

 

das Script fragt u.a. das SP-Level ab.

Du musst lediglich noch ´ne Abfrage einbauen, die bei nicht SPX die Installation vom Netzlaufwerk startet.

 

Gruß

THUMB

 

Beginn Script

 

Option Explicit

 

Const xMajorVer = 1

Const xMinorVer = 2

Const xBuild = 3

Const xPlatform = 4

Const xTxt = 5

 

Const VER_PLATFORM_WIN32s = 0

Const VER_PLATFORM_WIN32_WINDOWS = 1

Const VER_PLATFORM_WIN32_NT = 2

 

Dim objAdr, Text, Title, OSName

 

Title = "System Information"

Text = "Windows Properties" & vbCRLF

 

' Get a reference to the WSHExtend control

Set objAdr = WScript.CreateObject("WSHSystem.WinSys")

 

objAdr.WSHOsSysInfo ' Get Windows-OS-Info

 

Text = Text + "Platform "

' Estimate OS-Platform

Select Case objAdr.OsSysInfoValue(xPlatform)

Case VER_PLATFORM_WIN32_WINDOWS

If objAdr.OsSysInfoValue(xMajorVer) = 4 _

And objAdr.OsSysInfoValue(xMinorVer) = 0 Then

Text = Text & "Windows 95"

Else

Text = Text & "Windows 98"

End If

 

Case VER_PLATFORM_WIN32_NT

If objAdr.OsSysInfoValue(xMajorVer) = 5 _

And objAdr.OsSysInfoValue(xMinorVer) = 0 Then

Text = Text & "Windows 2000"

Else

Text = Text & "Windows NT 4.x"

End If

Case Else

Text = Text & "---"

End Select

 

Text = Text & vbCRLF

 

' Extract other Operating System Properties

Text = Text & "Version " & objAdr.OsSysInfoValue(xMajorVer)

Text = Text & "." & objAdr.OsSysInfoValue(xMinorVer) & vbCRLF

Text = Text & "Build " & (objAdr.OsSysInfoValue(xBuild) AND &HFFF)

Text = Text & " " & objAdr.OsSysInfoValue(xTxt) & vbCRLF

 

MsgBox Text, vbOkOnly + vbInformation, Title

 

WScript.Quit()

' End

 

Ende Script

Link zu diesem Kommentar

Tach auch,

 

na ein wenig genauer musst Du schon sagen was net geht, sonst kann ich Dir nicht helfen.

 

Mach mal folgendes:

 

Kopiere die Zeichen zwischen "Beginn Script" und "Ende Script" in eine Textdatei und benenne diese in Test.vbs um.

Starte die Datei test.vbs, Du solltest nun ein kleines Fenster mit den Infos zum BS, u.a. eben das SP-Level erhalten.

 

Geht das bei Dir ?

 

Gruß

THUMB

Link zu diesem Kommentar
  • 3 Wochen später...

Tach auch,

 

dann halt per CMD :

 

Du musst die Variable SP ( habe ich auf 2195, das ist die Buildnumber für w2k, SP3 ) anpassen und unter :install den Aufruf zur SP Installation einfügen ( ich habe da zum Test ein ECHO drin ), unter :installed musst Du natürlich ECHO ebenfalls enfernen ( war auch nur zum Test ).

Das W2k SP kannst Du mit folgenden Argumenten ( auch ) silent installieren :

 

http://support.microsoft.com/?kbid=262839

 

Gruß

THUMB

 

 

:: Fragt das W2k SP Level ab und installiert SP, wenn nötig

:: Build Number 2195 stellt W2k SP3 dar

 

::SP3 wird abgefragt

set SP=2195

 

 

@ echo off

 

::Version wird ermittelt und in temp. Datei geschrieben

ver > %temp%\ver.log

 

::String in Log Datei enthalten ?

find "%SP%" %temp%\ver.log

 

::Wurde der String gefunden ?

if %errorlevel% == 1 goto install

if %errorlevel% == 0 goto installed

 

::SP wird installiert

:install

 

echo "SP3 Installation"

pause

exit

 

::SP ist bereist installiert, Exit

:installed

 

echo "SP3 ist bereist installiert"

pause

exit

Link zu diesem Kommentar
Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Schreibe einen Kommentar

Du kannst jetzt antworten und Dich später registrieren. Falls Du bereits ein Mitglied bist, logge Dich jetzt ein.

Gast
Auf dieses Thema antworten...

×   Du hast formatierten Text eingefügt.   Formatierung jetzt entfernen

  Only 75 emoji are allowed.

×   Dein Link wurde automatisch eingebettet.   Einbetten rückgängig machen und als Link darstellen

×   Dein vorheriger Inhalt wurde wiederhergestellt.   Editor-Fenster leeren

×   Du kannst Bilder nicht direkt einfügen. Lade Bilder hoch oder lade sie von einer URL.

×
×
  • Neu erstellen...