d.stegemann

Hallo MAJEG,

:) Die 2 Codes sind mir klar, diese hab ich verstanden.

 

:confused:

Nur wie kann ich die gefundenen Dateien der schleife an das Script (siehe Code so übergeben das dieser Code durchgeführt wird, dann die Schleife die nächste Datei findet, und wieder den Code durchführt?

 

Den ich habe z.B. die Dateien:

service.ini

service2.ini

service3.ini

usw.

 

 

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 :)

Nun hätt ich da noch 4 fragen:

 

ist es überhaupt noch sinnvoll für die 2616A prüfung für XP zu machen?

Ich mein alleine das buch ist schon aus dem jahre 2001.

Und da XP ja auch nicht mehr das allerneueste ist (zukunft 7?)

Schaden kann so eine Prüfung auf keinen Fall. Wenn du dich gut mit dem OS auskennst, sollte das auch kein Problem sein.

welche ist die dazugehörige prüfung?

70-270

Welches Buch brauch ich um diese prüfung zu bestehn?

Da ich gehört habe das MOC alleine nicht ausreicht.

k.A...

Gibt es da unterschiede? XP, Vista, 7, Server?

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

Beim Kunden wird ein Initialbackup gefahren. Ja das kann Tage dauern...

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