pfeffis

Ich werde wohl oder übel den Weg des Inplace Updates gehen, nicht nur wegen Exchange sondern auch wegen diverser anderer Programme.

Trotzdem vielen Dank für deine Anregungen.

Grüße

Nun ja, ganz so einfach ist das nun auch wieder nicht. Es laufen auf beiden DCs noch andere Dienste und Programme (Exchange 2003, etc....)

Bei zwei DCs ist das kein Grund.

Ich habe nur die beiden und muss auch die beiden updaten. Wie also soll ich das ganze sonst anstellen?

Grüße

Mhh, fehlende Hardware wäre für mich ein Grund ;)

Yepp, geht hier leider nur über ein Inplace Upgrade.

Vielen Dank für die sehr schnelle Info.

Grüße

Vielen Dank,

das heißt auf dem 2. brauche ich wirklich nur noch das setup drüber laufen lassen und that s it!?

Hallo Gemeinde!

Habe hier zwei W2k DCs (AD integriert) welche ich nun endlich mal auf W2k3 hochziehen möchte.

Dies Schritte würde ich auf dem 1. DC ausführen:

Voll Backup fahren auf beiden DCs

Voraussetzungen prüfen (checkupgradeonly, etc.)

Auf 1. DC

1. „ADPREP /FORESTPREP“ ausführen --> von der 2ten CD da Update auf R2

2. „ADPREP /DOMAINPREP /GPPREP"

3. Setup starten

Wie verhält es sich hier mit dem 2. DC? Danach auch einfach setup starten und auf geht s? Darf oder muss der 2. DC während des Updates des 1. DC online sein?

Vielen Dank vorab

Hallo Gemeinde!

Folgende Problematik...

Es kommen Files (SLSRPT) im EDIFACT Format an, werden in s inhouse Format umgewandelt und dann eingelesen vom ERP System. Soweit so gut.

Dieses inhouse File sieht ungefähr so aus:

SYNTAX;SLSRPT;D;96A;9999999999991;9999999999995
KOPSLS;0000087;20090525;;;9999999999995;9999999999991;EUR;
ORTSLS;9008477000005;;;1;4001111111111;;;;;;1+;PCE;674;;;;
ORTSLS;9008477000005;;;2;4001111111111;;;;;;1+;PCE;6744;;;;
KOPSLS;0000087;20090518;;;9999999999995;9999999999991;EUR;
ORTSLS;9008477000005;;;1;4001111111111;;;;;;1+;PCE;674;;;;
ORTSLS;9008477000005;;;2;4001111111111;;;;;;1+;PCE;6744;;;;
KOPSLS;0000087;20090519;;;9999999999995;9999999999991;EUR;
ORTSLS;9008477000005;;;1;4001111111111;;;;;;1+;PCE;674;;;;
ORTSLS;9008477000005;;;2;4001111111111;;;;;;1+;PCE;6744;;;;
ORTSLS;9008477000005;;;1;4001111111111;;;;;;1+;PCE;674;;;;
ORTSLS;9008477000005;;;2;4001111111111;;;;;;1+;PCE;6744;;;;
KOPSLS;0000087;20090520;;;9999999999995;9999999999991;EUR;
ORTSLS;9008477000005;;;1;4001111111111;;;;;;1+;PCE;674;;;;
ORTSLS;9008477000005;;;2;4001111111111;;;;;;1+;PCE;6744;;;;
ORTSLS;9008477000005;;;1;4001111111111;;;;;;1+;PCE;674;;;;

Alle KOPSLS bis auf die erste werden mit folgendem Script gelöscht:

Sub Main()

       Dim datei As String
       Dim datei2 As String
       Const pfad = "\\edi\import\"
       Dim kopfgefunden As Boolean


       'Dim i

       'datei = pfad & Right$(My.Application.CommandLineArgs.Item(1), 9)

       'MsgBox(datei)

       'For i = 1 To My.Application.CommandLineArgs.Count

       '    MsgBox(My.Application.CommandLineArgs.Item(i - 1))
       '    If File.Exists(datei) Then MsgBox("ja")

       'Next i

       If My.Application.CommandLineArgs.Count = 3 Then

           'datei = My.Application.CommandLineArgs.Item(0)
           datei = My.Application.CommandLineArgs.Item(0)
           datei2 = My.Application.CommandLineArgs.Item(1)
           kopfgefunden = False

           'datei2 = Left$(datei, Len(datei) - 4) & "_OK.inh"
           Try
               ' Create an instance of StreamReader to read from a file.
               Using sr As StreamReader = New StreamReader(datei)
                   Dim line As String
                   Dim sr2 = New StreamWriter(datei2, False)

                   ' Read and display the lines from the file until the end 
                   ' of the file is reached.
                   Do
                       line = sr.ReadLine()
                       If Left(line, 6) <> "KOPSLS" Then
                           sr2.writeline(line)
                       Else
                           If kopfgefunden = False Then
                               kopfgefunden = True
                               sr2.writeline(line)
                           End If
                       End If
                   Loop Until sr.EndOfStream
                   sr.Close()
                   sr2.close()

               End Using

               'File.Delete(pfad & datei)

           Catch E As Exception

               Console.WriteLine("The file could not be read:")
               Console.WriteLine(E.Message)
           End Try

       Else
           Console.WriteLine("Bitte geben sie den Dateinamen der  Salesreportdatei an !")
       End If
   End Sub

Ich möchte aber vorher, dass das Datum aus der 2ten und aus der letzten Kopfzeile in die 1te Kopfzeile geschrieben werden und erst dann alle KOPSLS außer natürlich der 1ten gelöscht werden.

Hintergrund:

In der 1ten Kopfzeile steht nur das Übertragungsdatum 20090525.

In der 2ten bis zur letzten stehen die jeweiligen Verkaufstage. Daher brauche ich die 2te und die letzte Kopfzeile in der 1ten Kopfzeile um den Zeitraum einlesen zu können. Ich hoffe ihr könnt mir folgen und habt hier einen Ansatz parat?

Viele Grüße

Hallo Gemeinde!

Habe hier einen Windows CE 4.2 Client vor mir. Diesen würde ich gerne so konfigurieren, dass er seine Zeiteinstellung automatisch von unserem Zeitserver holt. Leider klappen hier die mir bekannten Befehle (w32tm, net time, etc.) nicht. Hat jemand von euch schonmal Erfahrungen hinsichtlich dieser Problematik machen können? Der Zeitserver ist ein W2k DC.

Habe hierzu noch nichts passendes finden können.

PS: Die Synchronisation soll übers Netzwerk laufen, nicht über Active Sync.

Grüße

Au weh - Asche auf mein Haupt :rolleyes:

Vielen Dank - funktioniert prima.

Läuft auch unter W2k3. Lof File sieht gut aus, nur runterfahren lässt sich keiner :(

Vielen Dank erstmal. Ab hier macht er noch zicken:

Set oExec = WshShell.Exec(MyCmd)
Do While oExec.Status = 0
Loop
Do Until oExec.StdOut.AtEndOfStream 
	sLine = oExec.StdOut.ReadLine
	If InStr(sLine, "Reply from ") > 0  OR InStr(sLine, "Antwort von ") > 0 Then
		Ping = -1
		Exit Do
	End If
Loop	
Set oExec = Nothing
Set WshShell = Nothing
End Function

wäre mir letztendlich alles recht - was letzendlich bei der batch falsch läuft weiß ich dann aber trotzdem nicht :confused:

Vielen Dank für die Infos. Hat mir weiter geholfen.

Habe ich auch nichts dagegen, nur habe ich von der Powershell keine bis gar keine Ahnung :(

In der txt sind alle Client Namen untereinander aufgelistet.

PC1

PC2

PC3

etc.

Hallo!

folgendes kleines batch file läuft bei uns um alle rechner in pc.txt runter zu fahren. Schlagt mich bitte nicht, anscheinend sehe ich den Wald vor lauter Bäumen nicht :(

set rechner=pc.txt

set logfile=\\server\shutdown$\Protokoll\Meldung-vom-%date%.log

echo. > %logfile%

for /f %%i in (%rechner%) do (ping -n 1 %%i) && if errorlevel=0 (shutdown -r -f -m \\%%i -t 300 -c "Ihr PC wird in 5 Minuten herunter gefahren. 
Speichern Sie daher Ihre Arbeit und beenden alle Programme.") && echo PC %%i war noch eingeschaltet um %time% >>%logfile%

Leider schreibt er mir in das logfile alle PCs, sprich auch die welche nicht runtergefahren werden mussten, da sie aus waren. Ich denke mal dass dieser Fehler an dieser Zeile liegt:

&& echo PC %%i war noch eingeschaltet um %time% >>%logfile%

nur weiß ich nicht so recht wie das ohne && zu lösen ist.

vielen Dank erstmal für die Antworten.

Über welchen der beiden läuft denn die Kommunikation? Kann man das herausfinden? Ich habe hier nur einen Exchange im Einsatz und würde somit laut GuentherH

Es sollte eigentlich immer ein SMTP Connector konfiguriert werden.

einen SMTP Connector abschalten können.

Wo genau liegt denn der Unterschied zwischen den beiden Connectoren?

Hallo Gemeinde!

Habe hier ein kleines Verständisproblem mit den SMTP Connectoren. Ich habe einen virtuellen unter Protokolle - SMTP und einen Internet Mail Dienst unter Connectoren. Es handelt sich um Exchange 2003.

Nun habe ich des weiteren ein smtp proxy(astaro) - welcher die ein- und ausgehenden Emails nach Spam/ Viren etc. scannt (dienst auch als http proxy, etc.). Der Exchange Server hat als Gateway den smtp proxy hinterlegt. Muss ich dann noch bei den Connectoren diesen Proxy als Smarthost eintragen oder erübrigt sich das durch die Gateway Einstellung. Falls ja, warum und bei welchem der beiden Connectoren? :confused:

Vielleicht hat ja mal wieder jemand einen super tipp für mich!?

@cyberquest: Du bist ja mal geil :D

Vielen Dank nochmal an euch beide! Klappt super und spart mir mindestens einen Tag arbeit :cool:

Danke euch beiden.

Gibt es jetzt noch die Möglichkeit, wenn bspw. nur farbe1 und farbe2 in einer zeile stehen und farbe3, 4 etc. nicht befüllt sind gleich auf die nächste zeile zu springen?

Tausend Dank nochmal

WoW. vielen Dank. Kleines Problemchen noch:

Die Werte sehen statt so

A B C D

a1 b2 farbe1 g1

a1 b2 farbe2 g1

a1 b2 farbe3 g1

a1 b2 farbe4 g1

so

A   B    C       D
a1 b2 farbe1
       farbe2
       farbe3 
       farbe4 

aus.

Sprich spalte g wird gar nicht übernommen und die werte werden nur einmalig beim Sprung in die nächste zeile übernommen. bei spalte b steht nun auch immer eine 1 als wert drinnen.

Stand vorm umwandeln:

A   B      C       D       E        F     G
a1 b1 farbe1 farbe2 farbe3 farbe4 g1
a2 b2 farbe1 farbe2 farbe3 farbe4 g2

Stand nach dem umwandeln:

A       B      C        D
a1     1    farbe1   
       1    farbe2
       1    farbe3 
       1    farbe4
a2     1    farbe1
       1    farbe2
... 

ms office 2003 und/oder 2007

Hallo Gemeinde!

Es gibt eine Tabelle mit Spalten A-G.

Beispiel:

A B C D E F G

a1 b1 farbe1 farbe2 farbe3 farbe4 g1

a2 b2 farbe1 farbe2 farbe3 farbe4 g2

.

.

Diese Tabelle soll nach Ausführung eines Makros so aussehen:

A B C D

a1 b2 farbe1 g1

a1 b2 farbe2 g1

a1 b2 farbe3 g1

a1 b2 farbe4 g1

a2 b2 farbe1 g2

.

.

.

Das ganze soll nach dem Schema in Tabelle2 kopiert werden.

dieses makro schnipsel habe ich als vorlage genommen, komme aber nicht so recht weiter :(

Sub CopyPrim()

Quelle = "Tabelle1"

Ziel = "Tabelle2"

Yziel = 1

With Sheets(Quelle)

'Durchlaufe alle Zeilen der Quelle

For Yquelle = 1 To .Cells.SpecialCells(xlCellTypeLastCell).Row

'Durchlaufe 23x alle Spalten der Quelle

For i = 1 To 23

For Xquelle = 1 To .Cells.SpecialCells(xlCellTypeLastCell).Column

'Zellinhalt kopieren

Sheets(Ziel).Cells(Yziel, Xquelle) = .Cells(Yquelle, Xquelle)

Next

Yziel = Yziel + 1

Next

Next

End With

End Sub