d.stegemann

Hallo MAJEG, du hast doch selbst geschrieben, das du den Code verstanden hast ;) Das könnte ungefähr so aussehen... 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 Set MyFiles = CreateObject("Scripting.FileSystemObject") varDatei= folder & "\" & file.name 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) & Chr(10)& "Ne Zeile unter Misc" varReplace = varReplace & CHR(13) & Chr(10)&"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 end if next Gruß Dirk

Hallo MAJEG, ist alles kein Problem... Set oFSO = CreateObject("Scripting.FileSystemObject") Set oFolder = oFSO.GetFolder(".") For Each oFile In oFolder.Files sEndung = Mid(oFile.Name, InStr(oFile.Name, "."), _ Len(oFile.Name)- InStr(oFile.Name, ".")+1) If sEndung = ".ini" Then MsgBox oFile.Name End If Next [/Code] Hier ein kleines Beispiel. Das Script sucht in dem Verzeichnis, in dem es liegt nach Dateien mit der Endung.ini. Wenn es einen Treffer gibt, kommt eine msgbox mit dem Dateinamen hoch. Das solltest du ohne große Mühe an deine Bedürfnisse anpassen können... -- Mist-- schon wieder zu langsam :( Gruß Dirk

Hallo Herke, willkommen an Board :) Schaden kann so eine Prüfung auf keinen Fall. Wenn du dich gut mit dem OS auskennst, sollte das auch kein Problem sein. 70-270 k.A... Off-Topic: Bin da in der gleichen Situation wie du.. MOC besucht, Prüfung nicht gemacht... Mit Sicherheit. Die Serverprüfungen zielen darauf ab, das du einen Server mit all seinen Facetten wie Diensten(DNS, DHCP...) ect. administrierst, Netzwerke planst... In diese Verlegenheit wirst du bei den Client OS nicht kommen. AFAIK gibt es auch noch keine Prüfung für Win7 Gruß Dirk

Hallo Jensman, meine Kenntnisse sind bei PS momentan eher rudimentär... :o Vielleicht hilft dir folgender Link weiter... Powershell Script to Enable/Disable Network Connection - Software Development Gruß Dirk

Hallo Brummbär, hast du ein selfsign Zertifikat benutzt? Wo hast du das Zertifikat hinzugefügt? Ist die RootCA für dieses Zertifikat bei vertrauenswürdige Stammzertifizierungsstellen drin? Vielleicht hilft der Link ein wenig weiter... Developer's Corner: Digitally Signing Office VBA Projects - The Naked PC Newsletter (#3.23) Gruß Dirk

Hallo, zu Norbert identischer Link Hmm da war Norbert schneller.... Microsoft Support Lifecycle Security Updates und Bezahlte Unterstützung wird es dann wohl doch noch geben, wenn ich das richtig interpretiere... --Edit-- Du würdest aber potentiellen Ärger aus dem Weg gehen, wenn die Systeme auf einen aktuellen SP Level gehoben werden. Macht auch aus Sicherheitssicht mehr Sinn. 2 Jahre sollten ja auch zum Testen reichen ;) -- Gruß Dirk

Tach, kann man auch so machen... Hängt aber m.E. auch von der Größe der Tabelle ab. Bei größeren sollte das Union All schneller sein, da anderer Ausführungsplan. Aber das ist eine Frage die SQL Gott Elmar in der Newsgroup mit Sicherheit besser beantworten kann ;) Gruß Dirk

Hallo avenger82, du könntest z.B. per wmi den Drucker abfragen und in einer Schleife warten, bis er Status Ready erreicht hat.. Getting Printer Information through WMI Aleem’s Weblog dazu dann sowas in der Art... Do while not printerisready = 1 wscript.sleep 1000 Loop [/Code] Dafür könntest du das wmi Zeug in eine Function(Nennen wir sie mal printerisready ;) ) packen und den Sleep ausführen. Gruß Dirk Bitte Code in Code Tags ;)

Hallo ChristianN4rf, die erste Antwort bezog sich auf die Frage zur Punkteverteilung... Da bin ich mir schon ziemlich sicher das die Antwort keiner geben wird, selbst wenn er oder sie es könnte ;) Gruß Dirk

Wenn der Name leer ist, aber nicht Null, könnte evtl. ein trim helfen... Das wäre dann sowas in der Richtung... select .... from Artikel where artikel.aktiv = -1 and Artikel.Name is Null union all select ..... from Artikel where artikel.aktiv = -1 and ltrim(rtrim(Artikel.Name)) = '' Gruß Dirk

Hallo, wie wärs mit folgendem... Select c.spalte, c.innen from( Select spalte, (Select count(*) from Tabelle as innen where innen.spalte = a.spalte) as innen from Tabelle as a ) c where c.innen > 1 Ich bin mir nicht ganz sicher... Vielleicht geht auch ein Subselect mit in Gruß Dirk

Hallo Stromi88, ein kleines Beispiel... Add Users to a Local Group Example Code for Adding a Domain User or Group to a Local Group (Windows) Bin ich wohl ein wenig spät dran :( Gruß Dirk

Hallo DocZenith, schau mal hier vorbei... Users. Da könnte schon was brauchbares bei sein. Es gibt natürlich auch noch dsquery, dsget... Gruß Dirk

Hi David, dynamische Updates können schon DNS Server unter W2K. Da war es, glaub ich, Bind 8.1.9.2 kann aber auch schon 8.2.1 gewesen sein. Ist halt schon ein bisschen her mit dem 2K DC... 2K3 ist 8.2.2 kompatibel. 2K8 hab ich auf die schnelle nichts gefunden(Habe hier auch keinen 2K8 laufen im Moment) Gruppenrichtlinien - Übersicht, FAQ und Tutorials http://www.mcseboard.de/windows-forum-lan-wan-32/bind-version-dns-servers-herausfinden-78466.html Gruß Dirk

Hallo steffenwoehlert, Anmeldescripts sind in der Regel userbezogen. Du kannst sie entweder im Userprofil verankern oder per GPO zuweisen. Du kannst eine batch machen oder ein vbs. Was war denn an den Antorten hier... http://www.mcseboard.de/windows-forum-ms-backoffice-31/netzlaufwerke-lockin-scripte-zuweisen-149142.html auszusetzen? Was möchtest du denn ganz genau? Auf Basis von Gruppenmitgliedschafen Laufwerke mappen oder...? Du musst dich da schon etwas klarer ausdrücken. Am besten wäre es, du würdest dir zuerst klar werden was du genau brauchst... Gruß Dirk

Hallo MrGenovese, ich denke der Logparser sollte eigentlich alle deine Wünsche befriedigen können... ScriptCenter Tools: Log Parser 2.2 Gruß Dirk

Eine davon war nicht zufällig Bruno mit der CA ;) Die ist durchaus lösbar... Gruß Dirk

Hallo Kevin, lies dir mal diesen Thread durch. http://www.mcseboard.de/windows-forum-scripting-71/mitglieder-verteilergruppe-text-datei-ausgeben-147717.html Da solltest du einige Impressionen bekommen. Gruß Dirk

Ich hänge mal meine Datei mit ran... Die Befüllung der Spalten a und g erfolgt beim letzten Durchlauf pro Zeile(iend) der Quelltabelle. Spalte b wird nach durchlauf der Schleifen auf Basis der letzten Zeile der Quelltabelle gefüllt. Vielleicht sieht dein Blatt doch ein wenig anders aus :) Vielleicht interpretiert dein Office den Code auch ein wenig anders. Hilfreich könnten auch die msgboxen im Code sein. Nimm einfach die Kommentare raus, dann siehst du ja was passiert. Gruß Dirk Neu Microsoft Excel-Arbeitsblatt.zip

Hallo MPA8, ich gehe mal davon aus, das selbst wenn dir jemand die Frage beantworten könnte, er/sie es nicht tun würde, da eine Verschwiegenheitsklausel unterzeichnet wurde. Mal ganz davon ab... bei mir waren es letzte Woche noch 5 Simulationen. Gruß Dirk

Hallo pfeffis, ich habe nur Office 2000 da... aber ich denke der Code sollte auch bei dir laufen... Sub Makro1() ' ' Makro1 Makro ' Makro am 16.03.2009 von Dirk aufgezeichnet ' ' istart = 1 'Bereich x-Achse Anfang iend = 7 ' Bereich x-Achse Ende izeilenew = 1 istartnew = 0 sheets_num = ActiveWorkbook.Sheets.Count Sheets(2).Select 'MsgBox sheets_num izeilenzahl = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row ' MsgBox izeilenzahl For izeile = 1 To izeilenzahl 'MsgBox izeile For ispalte = istart To iend Sheets(2).Select Range(Cells(izeile, istart), Cells(izeile, istart)).Select ' MsgBox istart, vbCritical, izeile Selection.Copy Sheets(1).Select Select Case istart Case iend 'MsgBox izeilenew Range(Cells(izeilenew - istartnew, istartnew + 1), Cells(izeilenew, istartnew + 1)).Select ActiveSheet.Paste ihelper = izeilenew - istartnew + 1 Do While ihelper <= izeilenew Cells(ihelper, 1).Value = Cells(izeilenew - istartnew, 1).Value ihelper = ihelper + 1 Loop izeilenew = izeilenew + 1 istart = istart + 1 Case Else If istartnew > 2 Then izeilenew = izeilenew + 1 Else istartnew = istartnew + 1 End If Range(Cells(izeilenew, istartnew), Cells(izeilenew, istartnew)).Select ActiveSheet.Paste istart = istart + 1 ' MsgBox istartnew, vbCritical, izeilenew End Select Next istart = 1 istartnew = 0 Next Sheets(2).Select Range(Cells(izeilenzahl, istart + 1), Cells(izeilenzahl, istart + 1)).Select Selection.Copy Sheets(1).Select Range(Cells(1, 2), Cells(izeilenew - 1, 2)).Select ActiveSheet.Paste Range(Cells(1, 1), Cells(1, 1)).Select End Sub [/Code] Ich habe halt von Tabelle2 auf Tabelle1 kopiert. Das sollte aber kein Problem sein... Gruß Dirk

Hallo pfeffis, eine wichtige Frage vorab... Unter welcher Office Version soll denn das Makro laufen? Gruß Dirk

Hallo zusammmen, erstmal Glückwunsch mr.toby. jetzt zu deiner Frage flippinger... das Buch sollte dieses hier sein: Transitioning Your MCSA/MCSE to Windows Server 2008 von Orin Thomas und Ian McLean erschienen bei Microsoft-Press kommt im April raus. Gruß Dirk

Das könnte man ja auch noch beschleunigen... Da gibts ja z.B. Riverbed zur Wan Kompression. Die kann man auch vorbefüllen. Leider nicht ganz preiswert, aber kommt gut. Gruß Dirk

Hallo zzeuzz, kannst ja mal mit wmi nachschauen... Win32_PrintJob sah zumindest auf den ersten Blick sehr vielversprechend aus. Ist aber ungetestet. Da gibt's nette Sachen wie JobID, Caption, Owner... Gruß Dirk