Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Meldung bei hinzufügen einer Datei in den Ordner come

Frage Netzwerke

Mitglied: Peter161

Peter161 (Level 1) - Jetzt verbinden

25.06.2007, aktualisiert 26.06.2007, 6852 Aufrufe, 7 Kommentare

Ich habe auf meinem Server Ordner mit dem name come z.b. \\server\come_%username% dies benutze ich zum Dateiaustausch zwischen den Benutzern, da nicht jeder Benutzer dem anderen in den Eigenen Dateien vorwerken kann. Also fügt der Benutzer1 einfach die Datei in das come verzeichnis von Benutzer2 also dann in \\server\come_Benutzer2 ein. Nun bräuchte ich eine script oder etwas anderes, was eine Meldung auf den Bildschirm gibt, sobald eine neue Datei in das come Verzeichnis eingeht. Danke für eure Hilfe.
Mitglied: macadmin
25.06.2007 um 23:02 Uhr
Hi!

An was für eine Script Sprache hast Du gedacht.
Welche art von Benachrichtigung ?

Mit PHP könnte es was werden.
Bitte warten ..
Mitglied: bastla
25.06.2007 um 23:29 Uhr
Hallo Peter161!

Basierend auf http://www.microsoft.com/technet/scriptcenter/resources/qanda/feb07/hey ... könnte es etwa so gehen:
01.
strLW = "N:" 
02.
strUserFolder = """" & strLW & "\\\\""" 
03.
strComputer = "." 
04.
Set objShell = CreateObject("Wscript.Shell") 
05.
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") 
06.
Set colMonitoredEvents = objWMIService.ExecNotificationQuery _ 
07.
    ("SELECT * FROM __InstanceCreationEvent WITHIN 10 WHERE " _ 
08.
        & "Targetinstance ISA 'CIM_DirectoryContainsFile' and " _ 
09.
            & "TargetInstance.GroupComponent= " _ 
10.
                & "'Win32_Directory.Name=" & strUserFolder & "'") 
11.
 
12.
Do 
13.
    Set objLatestEvent = colMonitoredEvents.NextEvent 
14.
    strNewFile = objLatestEvent.TargetInstance.PartComponent 
15.
    arrNewFile = Split(strNewFile, "=") 
16.
    strFileName = arrNewFile(1) 
17.
    strFileName = Replace(strFileName, "\\", "\") 
18.
    strFileName = Replace(strFileName, Chr(34), "") 
19.
    MsgBox strFileName, vbExclamation, "Neue Datei ..." 
20.
Loop
Da das Script clientseitig läuft, ist Voraussetzung, dass die Freigabe "\\server\come_%username%" auf einen Laufwerksbuchstaben, im Beispiel oben "N:" (siehe erste Zeile), gemapped wurde.

Es wird alle 10 Sekunden (siehe "WITHIN 10") geprüft, ob im angegebenen Laufwerk eine Datei (nicht Ordner) neu erstellt wurde und gegebenen Falls in einer Messagebox darauf hingewiesen.

Das Script läuft in einer Endlosschleife, sollte aber beim Abmelden / Herunterfahren problemlos beendet werden. Im Register "Prozesse" des Task-Managers ist es als "wscript.exe" zu finden (und zu beenden).

Zum Starten könntest Du es (oder eine Verknüpfung damit) im "Autostart" des Users platzieren.

Grüße
bastla
Bitte warten ..
Mitglied: Peter161
26.06.2007 um 14:14 Uhr
ich habe es probiert, im Editor eingefügt und als wscript.exe gespeichert, das war doch so richtig, oder??? Dann habe ich es ausprobiert, erstens kommt keine Meldung und 2. kommt beim versuch zu schließen keine Rückmeldung Danke trozdem schonmal
Bitte warten ..
Mitglied: bastla
26.06.2007 um 14:51 Uhr
Hallo Peter161!

Speichern musst Du mit Typ ".vbs", etwa "CheckFolder.vbs" - "wscript.exe" ist der Interpreter, der das Script ausführt (und deswegen im Taskmanager aufscheint).

Grüße
bastla
Bitte warten ..
Mitglied: Peter161
26.06.2007 um 15:37 Uhr
hallo, danke erst einmal für die hilfe, jetzt geht es. Noch eine Frage: geht es das diese Fenster im Hintergrund ist oder gar nicht, weil es nervig ist das immer diese Fenster da ist. zumindesten auf der Taskleiste, aber das nervt auch
Bitte warten ..
Mitglied: bastla
26.06.2007 um 16:55 Uhr
Hallo Peter161!

Verwende zum Starten des eigentlichen Scripts (im Beispiel "C:\Scripts\CheckFolder.vbs") dieses weitere VBScript:
01.
R = WScript.CreateObject("WScript.Shell").Run("C:\Scripts\CheckFolder.vbs", 0, False)
Grüße
bastla
Bitte warten ..
Mitglied: Peter161
26.06.2007 um 17:12 Uhr
Hallo, danke für deine schnelle Hilfe! Damit ist der Fall erledigt!
Bitte warten ..
Ähnliche Inhalte
Windows 10
Löschen von Ordner mit Dateien (3)

Frage von jerry32 zum Thema Windows 10 ...

VB for Applications
gelöst Jede Datei eines Ordners zu aktueller Arbeitsmappe in Excel hinzufügen (2)

Frage von Bacchida zum Thema VB for Applications ...

Windows Server
gelöst Freigegebener Ordner "Eigene Dateien" (8)

Frage von JensDND zum Thema Windows Server ...

Neue Wissensbeiträge
Windows Update

Microsoft Update KB4034664 verursacht Probleme mit Multimonitor-Systemen

(2)

Tipp von beidermachtvongreyscull zum Thema Windows Update ...

Viren und Trojaner

CNC-Fräsen von MECANUMERIC werden (ggf.) mit Viren, Trojanern, Würmern ausgeliefert

(4)

Erfahrungsbericht von anteNope zum Thema Viren und Trojaner ...

Windows 10

Windows 10: Erste Anmeldung Animation deaktivieren

(3)

Anleitung von alemanne21 zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Netzwerkprotokolle
gelöst Leiten "dumme" Switches VLAN-Tags mit durch? (26)

Frage von coltseavers zum Thema Netzwerkprotokolle ...

Netzwerkgrundlagen
Kann auf Freigabe nicht Zugreifen (16)

Frage von leon123 zum Thema Netzwerkgrundlagen ...

Windows Server
gelöst Neues KB für W10 1607 und W2K16 wieder mal nicht im WSUS 3.0, hat das noch jemand? (16)

Frage von departure69 zum Thema Windows Server ...

Router & Routing
FTTH bzw FTTB Router (13)

Frage von ukulele-7 zum Thema Router & Routing ...