Cybquest

Ungefähr so: SELECT IIf(KHKArtikel.bestand > 0, 1, 2) AS Lieferzeit

Statt varDatei= folder & "\" & file.name wäre etwas kürzer auch varDatei= file.Path moglich :)

So in der Art? Set fso = CreateObject("Scripting.FileSystemObject") Set folder = fso.GetFolder("C:\Programme\OCS Inventory Agent\") for each file in folder.Files if right(file.name,4) = ".ini" then ... ... end if next

Zu den entspr. LDAP-Abfragen sollte eigentlich genug zu finden sein. Google doch mal z.B. "LDAP ASP"

Ist in einer Signatur irgendwie ein Steuerzeichen (^A oder so) versteckt, das dann den Text autom. markiert?

Am besten mal eine möglichst detailierte Liste der möglichen Problemfelder erstellen. Also z.B. - wie viele und welche Vorlagen/Dokumente/Tabellen... sind in welcher Form automatisiert (eigene Makro's, Formularfelder) und mit welchem Aufwand können die umgestellt werden. - wie viele und welche Programmabhängigkeiten gibt es (so Funktionen wie "Analysieren mit Excel", OLE-Automation von Word durch andere Programme etc.) Die Liste kann dann als Diskussionsgrundlage dienen. Wg. Exchange: Ich vermute, Outlook wird dann bleiben, oder?

Wenns einfach nur 2 Zeilen direkt hinter dem zu ersetzenden "Miscancelous" sein soll: Set MyFiles = CreateObject("Scripting.FileSystemObject") varDatei="C:\Programme\OCS Inventory Agent\service.ini" Set f = MyFiles.OpenTextFile(varDatei, 1) Text = f.ReadAll varSearch="Miscellaneous= /S /server:test.net /pnum:80" varReplace="Miscellaneous= /S /server:test.net /pnum:80 /NB" varReplace = varReplace & CHR(13) & "Ne Zeile unter Misc" varReplace = varReplace & CHR(13) & "Noch ne Zeile unter Misc" If Instr(Text,varReplace)=0 then Set f = MyFiles.OpenTextFile(varDatei, 2, True) f.Write Replace(Text, varSearch, varReplace,1,-1,1) End If

Ja nu... dann mach's doch :D Set MyFiles = CreateObject("Scripting.FileSystemObject") varDatei="C:\Programme\OCS Inventory Agent\service.ini" Set f = MyFiles.OpenTextFile(varDatei, 1) Text = f.ReadAll varSearch="Miscellaneous= /S /server:test.net /pnum:80" varReplace="Miscellaneous= /S /server:test.net /pnum:80 /NB" If Instr(Text,varReplace)=0 then Set f = MyFiles.OpenTextFile(varDatei, 2, True) f.Write Replace(Text, varSearch, varReplace,1,-1,1) f.WriteLine "Ne Zeile am Ende" f.WriteLine "Noch ne Zeile am Ende" End If

Nur so aus Neugier: Hat das einen Grund mit den öff. Adressen? Einen privaten Adressraum und einen Proxy/Firewall/Router ins Internet fänd ich um einiges sicherer! Ansonsten noch viel Erfolg beim Aufsetzen üben :)

Hallo, Versteh ich nicht so ganz. Habt ihr für ale Clients öffentliche IP-Adressen? Per Remote Desktop kann man doch auch über den Namen zugreifen. Ein DNS-Server läuft doch. Z.B. mit einem einfachen "ping rechnername" an der Kommandozeile ;)

Aus dem Bauch heraus: - Beim Internet Mail Dienst unter Connectoren den Proxy als Smarthost eintragen - Beim virtuellen SMTP braucht nichts rein Ich kenn jetzt den Astaro-Proxy nicht, aber möglicherweise filtert der SMTP-Proxy dann nicht mehr, wenn die Mails nicht an ihn geschickt werden, sondern nur durchgeroutet, daher reicht m.E. die Einstellung des Gateway nicht. Aber wie gesagt, es ist schon nach Acht und einfach so aus dem Bauch ;)

Bleiben die Fileserver in den anderen Standorten? Soll nur das KIS über TS laufen, andere Programme aber weiterhin lokal? Dann würde ich ebenfalls die DCs beibehalten. Sollte jedoch kpl. auf TS umgestellt werden und auch die Fileserver verschwinden, wäre es auch denkbar, die kpl. Serverlandschaft zu zentralisieren und an den Standorten nur noch Thin Clients aufzustellen. Hätte den Vorteil, dass die Sicherung zentral läuft, die Standorte keinen Serverraum etc. benötigen, die Clients, wenn es z.B. IGEL o.ä. Terminals sind, sehr wartungsarm betrieben werden können... Zu bedenke ist natürlich, wie S.R. schon sagte: Wenn die Leitung ausfällt, geht nichts mehr! Je nach dem, wie Umfangreich euer KIS ist, könnte aber auch schon das Fehlen dieses für die Anwender einen GAU darstellen... Daher auf jeden Fall auch über mögliche redundante Pfade nachdenken.

Danke :) Ist immer wieder schön, wenn man mit ein paar Zeilen Code jemanden glücklich machen kann ;)

Like this? Sub CopyPrim() Dim varSpalte1 As Object Quelle = "Tabelle1" Ziel = "Tabelle2" YZiel = 1 With Sheets(Quelle) 'Durchlaufe alle Zeilen der Quelle For YQuelle = 1 To .Cells.SpecialCells(xlCellTypeLastCell).Row 'Durchlaufe 3. bis vorletzte Spalte der Quelle For XQuelle = 3 To .Cells.SpecialCells(xlCellTypeLastCell).Column - 1 'Zellinhalt umkopieren If .Cells(YQuelle, XQuelle) <> "" Then Sheets(Ziel).Cells(YZiel, 1) = .Cells(YQuelle, 1) Sheets(Ziel).Cells(YZiel, 2) = .Cells(YQuelle, 2) Sheets(Ziel).Cells(YZiel, 3) = .Cells(YQuelle, XQuelle) Sheets(Ziel).Cells(YZiel, 4) = .Cells(YQuelle, .Cells.SpecialCells(xlCellTypeLastCell).Column) YZiel = YZiel + 1 End If Next Next End With End Sub

Hier noch ne Möglichkeit, angelehnt an Deinen Beispielcode: Sub CopyPrim() Dim varSpalte1 As Object Quelle = "Tabelle1" Ziel = "Tabelle2" YZiel = 1 With Sheets(Quelle) 'Durchlaufe alle Zeilen der Quelle For YQuelle = 1 To .Cells.SpecialCells(xlCellTypeLastCell).Row 'Durchlaufe 3. bis vorletzte Spalte der Quelle For XQuelle = 3 To .Cells.SpecialCells(xlCellTypeLastCell).Column - 1 'Zellinhalt umkopieren Sheets(Ziel).Cells(YZiel, 1) = .Cells(YQuelle, 1) Sheets(Ziel).Cells(YZiel, 2) = .Cells(YQuelle, 2) Sheets(Ziel).Cells(YZiel, 3) = .Cells(YQuelle, XQuelle) Sheets(Ziel).Cells(YZiel, 4) = .Cells(YQuelle, .Cells.SpecialCells(xlCellTypeLastCell).Column) YZiel = YZiel + 1 Next Next End With End Sub

Du kannst ja die Abfrage zusammenklicken, dann auf SQL-Ansicht umschalten und diesen SQL-String als Pass-Through-Abfrage nehmen :)

Einfach mal so aus dem Bauch: Ich denke, Access versucht bei einer Abfrage selbst die Daten zu sperren, da man ja quasi dynamische Recordsets erzeugt. Möglicherweise könntest Du mit einer "Pass-Through"-Abfrage mit Deinem gewüschten Select-Statement mehr Erfolg haben.

In Access-Basic könnte man das MSComm-Object dafür nutzen. Bespielcode hab ich grad nicht, lässt sich aber bestimmt ergooglen ;)

Wenn's auch VBScript sein darf. Sowas in der Art: Set WshShell = WScript.CreateObject("WScript.Shell") strPath = WshShell.Specialfolders("Desktop") Set Link = WshShell.CreateShortcut(strPath & "\Verknüpfung1.LNK") Link.TargetPath = "explorer.exe" Link.Arguments = "G:\Pfad1" Link.Description = "Öffnet G:\Pfad1 im Explorer" Link.Save Ggf. als Function definieren und mit versch. Parametern aufrufen...

DotNet-Version: How to determine which versions of the .NET Framework are installed and whether service packs have been applied Bei den Bibliotheken auf die entspr. DLL Rechtsklick - Eigenschaften - Details (Z.B. bei oledb.dll oder oledb32.dll, printadmin.dll...)

Vielleicht doch einfach mal die Versionen der entspr. Bibliotheken (ado..., print...) vergleichen bzw. der DotNet-Versionen.

Hallo und Willkommen, zunächst einmal eine Frage: Wenn das Transaction-Log nur zu 3% gefüllt ist, wäre es dann nicht sinnvoll, erst mal diese Datei zu verkleinern?

?!? ... ich meinte eigentlich den TO. DER hat ja das Problem ;) Dass ein Create alleine i.Allg. geht, weiß ich schon. Bei mir gehts unter W2K, XP... Daher die Frage nach der MSADO-Version.

Ah... ok, so genau hab ich den Artikel nicht durchgelesen ;) Geht denn ein "Create(ADODB..." überhaupt? Also in einem kpl. leeren Script nur diese Zeile? Die Frage wäre vielleicht auch, welche Version der MSADO-Library du nutzt.

Hab grad das hier ergoogelt: FIX: The "Data area passed to a system call is too small" error message is logged when you call the CreateEx method at the same time in a multiple-thread application that uses the Virtual Device Interface feature of SQL Server 2000 Vielleicht was Hilfreiches dabei?