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, 6646 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 ..
Neuester Wissensbeitrag
Microsoft

Lizenzwiederverkauf und seine Tücken

(5)

Erfahrungsbericht von DerWoWusste zum Thema Microsoft ...

Ähnliche Inhalte
Heiß diskutierte Inhalte
Windows Server
Outlook Verbindungsversuch mit Exchange (15)

Frage von xbast1x zum Thema Windows Server ...

Microsoft Office
Keine Updates für Office 2016 (13)

Frage von Motte990 zum Thema Microsoft Office ...

Grafikkarten & Monitore
Tonprobleme bei Fernseher mit angeschlossenem Laptop über HDMI (11)

Frage von Y3shix zum Thema Grafikkarten & Monitore ...