Jump to content

Cybquest

Expert Member
  • Gesamte Inhalte

    1.886
  • Registriert seit

  • Letzter Besuch

Alle erstellten Inhalte von Cybquest

  1. Aus'm Bauch raus würde ich sagen, einfach ne Klammer drumrum und das wait hinten anhängen (ungetestet): for /L %%i in (W:\tmp\dir.log) do (W:\Tools\Robocopy\robocopy.exe w:\tmp\copy\%%i D:\temp\Copytest\End /tee /w:0 /r:0 /log:w:\tmp\copy\%%i.log & wait 10)
  2. Im Prinzip gehts schon, z.B. in der Art: @echo off & Setlocal EnableDelayedExpansion SET GRUPPEN= FOR /F %%a IN (D:\test.txt) DO SET GRUPPEN=!GRUPPEN! %%a echo %GRUPPEN% Was nicht geht: @echo off & Setlocal EnableDelayedExpansion SET GRUPPE= FOR /F %%a IN (D:\test.txt) DO (SET GRUPPE=%%a & echo %GRUPPE%) Warum das so ist, weiß ich allerdings selber nicht ;)
  3. Eigentlich müsste die Variable %%a doch nicht in eine neue Variable umgespeichert werden, oder? Das %%g in der 2. Schleife einfach mit dem %%a der ersten vergleichen sollte reichen (bei mir hier funktionierts zumindest): FOR /F "tokens=2 delims=\&." %%a IN ('%systemroot%\system32\ifmember.exe /list') DO (FOR /F "usebackq tokens=1-7 delims=;" %%g IN (D:\test.txt) DO (IF "%%a"=="%%g" (echo gruppe gleich) else (echo nein & echo gruppe ist leider %%a)))
  4. Grad ergoogelt: SNMPLink.org - End-User SNMP Software Da stehen ettliche MIB Browser zur Auswahl. Eine Empfehlung hab ich grad keine...
  5. Man kann FreePDF einfach mit dem Dateinamen als Parameter aufrufen. Allerdings muss entw. der Pfad zu FreePDF in den Umgebungsvariablen mit drin stehen oder das Ganze muss incl. Pfad aufgerufen werden. Z.B. C:\Programme\FreePDF_XP\freepdf.exe c:\meinedatei.doc
  6. Cybquest

    Switch VLan

    So ist es :) ...aber an beiden Switchen jeweils am Uplink (LWL) Port taggen
  7. Cybquest

    Switch VLan

    Hallo, du kannst auf den Uplink-Ports (die Glasfasern) alle VLANs taggen. "Tagged" können mehrere VLANs an einen Port.
  8. Da brauchts ne kleine Erweiterung: return = objShell.Run("cmd.exe /C c:\xcacls.exe C:\TEST >>C:\log.txt") Damit sollte es laufen.
  9. Hi, muss es unbedingt VBS sein? Mit Powershell ginge z.B.: Get-Acl -Path "\\server\pfad" Das Ganze kann man dann auch noch entspr. aufbereiten (Stichwort "Piping") Weiterhin wäre ein Aufruf von XCACLS.EXE möglich...
  10. Auf Computer verteilen klappt wunderbar. GPO an entspr. OU, in der die entspr. Computer sind, fertig.
  11. Stimmt so nicht ganz. Es werden nur die Dateien kopiert, die als Quelle angegeben sind. Im Beispiel also alle *.cfg-Dateien. Wenn man das weiter einschränken will, könnte man z.B. auch C:\Pfad\user*.cfg o.ä. kopieren lassen. Aber ich vermute, die Dateien sollen hinterher ohne Ordnerstruktur quasi flach in einem Verzeichnis liegen, oder?
  12. Wie wärs z.B. mit xcopy /S "c:/Dokumente und Einstellungen/*.cfg" c:\Sicherung
  13. Ansonsten wäre das vielleicht was? http://www.microsoft.com/downloads/details.aspx?familyid=2204a62e-4877-4563-8e83-4848dda796e4&displaylang=en
  14. Hab zwar grad keine Referenz zur Hand, aber zumindest einen kleinen Tip hierzu: In Excel den entspr. Vorgang als Makro aufzeichnen. Der Code passt zwar nicht 1:1 für VBS, aber mit kleinen Anpassungen funktionierts i.Allg. ;)
  15. Ich hab damals (1998) bei GfN in Heidelberg den MCSE gemacht und später dort Prüfungen abgelegt. Kann nichts negatives berichten :)
  16. Like this strPfad = "\\server\ordner\" Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(strPfad) varSize = objFolder.Size
  17. Wenn ich mich recht erinnere, geht auch dsquery server
  18. Du könntest Dir ja im Script ein festes Laufwerk (z.B. Y:) jeweils mappen, auslesen, Mapping wieder löschen... also mal grob so: Set wshnet = CreateObject("WScript.Network") wshnet.MapNetworkDrive strLW, strPath '... die Abfrage hier z.B. als Prozeduraufruf wshnet.RemoveNetworkDrive strLW Edit: Wenn Du einen Remotecomputer abfragen willst, muss der Pfad ein Pfad sein, den der Remotecomputer sieht (i.Allg. z.B. dessen Laufwerke)
  19. Mit Powershell wäre sowas in der Art möglich: if(Get-Content C:\error.txt | Select-String "Failed" –quiet) { "Fehler" $smtp = new-object Net.Mail.SmtpClient $smtp.Host = ”localhost” $smtp.Send(”Server@Firma.de”, “Verteiler@Firma.de”, “Betreff Text”, “Body Text”) } else { "Kein Fehler" } Ggf. kann der .NET-Mail Teil auch durch einen Aufruf von blat ersetzt werden.
  20. Hallo und Willkommen, eigentlich sollte es reichen, wenn am Server in der Computerverwaltung unter "Freigegebene Ordner - Offenen Dateien" (bzw. "Shared Folders - Open Files") die Datei geschlossen wird. Ein Serverneustart ist da eher nicht nötig.
  21. Zwischen a) und b) vielleicht auch noch die Firewallkonfiguration?
  22. Nur mal so aus'm Bauch: Evtl. mal mit If trim(itm.Body) = trim(ID) Then itm.Delete probieren, um mögliche Leer- oder Umbruchzeichen abzuschneiden.
  23. Änder Deinen Anfang mal so ab: set theApp = CreateObject("Outlook.Application") Set nms = theApp.GetNameSpace("MAPI") ... ok. Prima, wenns läuft :)
  24. Ah.. das fette hab ich übersehen. Lass mal in der Zeile das "Set" davor weg. Für ne einfache Stringzuweisung brauchts das m.W. nicht. Die Fehlermeldung deutet allerdings daruaf hin, dass Du bereits eine Zeile davor ein Problem hast! Immerhin meckert er ja Displayname an...
  25. Welche von den 16 Zeilen meinst Du? ;) Aber hier ist ein A zuviel: EMail1DisaplayName
×
×
  • Neu erstellen...