Cybquest

Grad beim googlen auf folgendes gestossen: Neue Seite 1 Da gibts nen USV Simulator als kleine Kiste. Evtl. ist die ja um einiges günstiger als ne USV. Selber programmieren: Die MSComm-Komponente wäre da in VB z.B. recht einfach dafür. Sieht dann in etwa so aus: 'Port 2 öffnen MSComm1.CommPort = 2 MSComm1.PortOpen = True 'Pin 8 (Power-Failure) -> CTS MSComm1.CTSHolding = True 'bzw. False (zum ein- ausschalten) 'Pin 4 (UPS Shutdown) -> DTR MSComm1.DTREnable = True 'bzw. False (zum ein- ausschalten) 'Pin 1 (Low Battery) -> DCD MSComm1.CDHolding = True 'bzw. False (zum ein- ausschalten)

Nu ja, diese kleine Software, die du meinst, muss ja nur den seriellen Port ansprechen und dort passende Signale schalten. How to Create a UPS Cable for the APC Smart-UPS Evtl. selber "gschwind" programmieren? Ein fertiges Simulationsprogramm hab ich bisher nirgends gefunden...

Wenn es nur nach Ordner-Erstelldatum gehen soll und ein VB-Script sein darf: http://www.mcseboard.de/windows-forum-scripting-71/ordner-batch-xx-tagen-loeschen-2-150449.html#post926135 Dort einfach nur den "For each..."-Teil innerhalb der Sub (quasi den recursiven Aufruf) auskommentieren/rausschmelssen, dann läuft das Script nur auf einer Ebene.

?!? was'n das? Ich denke, du hättest ja wenigstens die Parameter, die du verwendest, angeben können. Solange es ein unerklärliches Phänomen ist, kann es ja wohl an allem liegen. Hast du das Logging, wie olc schrieb, mal aktiviert?

Ich weiß jetzt nicht, ob das Ganze hier nur ein Spass wird nach dem Motto "Mal sehen, wie schmerzfrei die hier im Board sind"... Mit Scripten die Daten "abzuholen", die ein Katalogserver bereitstellt, ist nicht das Probem. Deine Workstation muss diese ja dann aber selbst wieder zur Verfügung stellen in einer LDAP-Datenbank o.ä. Aber einen RO-DC wirst du auf diese Art nie abbilden können!

Du hast nichts geschrieben, was du bisher eigentlich gemacht hast. - Geht über den ISA der "normale" Webverkehr, oder wird der auch schon geblockt? - Hast du auf dem ISA entspr. Regeln für SL eingerichtet? -Wie sehen die aus? - Was sagt das Log? (auf dem ISA bei Überwchung - Protokollierung mal mitlaufen lassen) -...

Auf irgend eine Art müssen diese falschen Daten ja dann rein kommen und egal ob du clusters, replizierst, o.ä. wirst du logische Fehler in den Datenbeständen so nicht abfangen können. Mal angenommen, deine Abfrage liefert irgendwelche Rechnungssummen, müssen die Rechnungen korrekt in der Datenbank stehen. Macht die Applikation da Mist, ist der Mist in allen Replikaten der Datenbank. Du könntest höchstens die Anwender alle Daten zweimal eingeben lassen ;) (Vorsicht: Ironie :D )

Hallo und Willkommen, so ganz verstehe ich Deine Frage nicht. Wozu soll das Ganze denn sein? Welche Art von Fehler versuchst Du damit abzufangen? Eine Abfrage mehrmals laufen zu lassen ist kein Problem. Viel wichtiger bei der Frage, ob die richtigen Daten zurückkommen, ist m.E. jedoch das korrekte Abfragedesign! Da wird gern mal ein Kriterium oder der passende Join übersehen und schon liefert die Abfrage zwar Daten, aber nicht alle bzw. nicht die richtigen.

Wenn dieser Dienst auf der selben physischen Maschine, auf der auch der SQL-Server läuft, installiert wird, ist es auf jeden Fall sinnvoll, diesen zu nutzen und nicht einen zusätzlichen Express-SQL zu installieren!

Hast du dir die "Keymaps" von Teraterm schon mal angesehen? CNF-Dateien im Programmverzeichnis. Die kann man anpassen und über "Load Keymap" laden. Ich denke, Du willst ja nur diese Tastenkombination auf F5 legen. Hat Teraterm-technisch ja eigentlich nichts mit Makro zu tun. Makros sind dort für die Automation.

Ich würde vorschlagen: Wende dich an Abacom. Ich finde, es ist sehr bedenklich, Einzelplatzversionen einfach auf Terminalserver zu installieren!

Hast Du es bei /tk „test.bat” auch mal mit kpl. Pfad versucht? Also z.B. /tk "C:\test.bat" Wir der Trigger korrekt angezeigt, wenn du am Prompt nur "eventtriggers" eingibst?

So auf Anhieb seh ich nur, dass oben Test.bag statt .bat steht. Und weiter unten hat Deine test.bat ein Leerzeichen... Oder sind das nur Übertragungsfehler beim Schreiben ins Forum?

Mal unabhängig von der grauenhaften Rechtschreibung... was soll denn das werden? Ich habe das Gefühl, das wird nur ne Spielerei, mit der du Kollegen ärgern willst...

Wo, bez. wann soll das Script laufen? Ist das ein Login-Script? Muss es VBS sein? Über ne Batch könnte man das z.B. mittels MSIEXEC machen.

Hier noch ein Ansatz für Batch: FOR /F %d IN ('DIR /B /A:D') DO DIR %d /B /A:D Nicht hübsch, die Ausgabe und noch Probleme mit Leerzeichen im Pfad, aber mal ein Ansatz :)

Mit Powershell z.B. in der Art? function RecDirs{ $d = $Args[0] $AktRec++ $dirs = dir $d | where {$_.PsIsContainer} if ($AktRec -lt 3) { foreach($di in $dirs) { $di.Fullname RecDirs($di.Fullname) } } } RecDirs("C:\") In der "$AktRec -lt 3"-Zeile kannst Du die Tiefe angeben... Ggf. $di.Fullname noch umleiten in ne Datei: $di.Fullname | Out-File "C:\RecDirs.txt" -Append

...sich Scripte zusammensuchen, keine Ahnung davon haben und dann von anderen umbauen lassen - typisch :D Hier mit Ausgabe in CSV. Die von mir eingefügten Zeilne stehen jeweils zwischen den Rauten-Kommentaren. ' VBScript program to enumerate all Domain Controllers in the domain. ' ' ---------------------------------------------------------------------- ' Copyright (c) 2002 Richard L. Mueller ' Hilltop Lab web site - Hilltop Lab ' Version 1.0 - November 10, 2002 ' Version 1.1 - February 19, 2003 - Standardize Hungarian notation. ' Version 1.2 - March 11, 2003 - Remove SearchScope property. ' ' Program enumerates all Domain Controllers, their DNS host name, and ' the name of the site they reside in. ' ' You have a royalty-free right to use, modify, reproduce, and ' distribute this script file in any way you find useful, provided that ' you agree that the copyright owner above has no warranty, obligations, ' or liability for such use. 'Option Explicit '########## strFileName = "C:\DC-Dienste.csv" strService = "wuauserv" Set MyFiles = CreateObject("Scripting.FileSystemObject") Set f = MyFiles.OpenTextFile(strFilename, 2, True) f.writeline "Server;Dienst;Status;Startart" '########## Set WSHShell = WScript.CreateObject("WScript.Shell") Dim objRootDSE, strConfig, adoConnection, adoCommand, strQuery Dim adoRecordset, objDC, objSite ' Determine configuration context from RootDSE object. Set objRootDSE = GetObject("LDAP://RootDSE") strConfig = objRootDSE.Get("configurationNamingContext") ' Use ADO to search Active Directory for ObjectClass nTDSDSA. Set adoCommand = CreateObject("ADODB.Command") Set adoConnection = CreateObject("ADODB.Connection") adoConnection.Provider = "ADsDSOObject" adoConnection.Open "Active Directory Provider" adoCommand.ActiveConnection = adoConnection strQuery = "<LDAP://" & strConfig _ & ">;(ObjectClass=nTDSDSA);AdsPath;subtree" adoCommand.CommandText = strQuery adoCommand.Properties("Page Size") = 100 adoCommand.Properties("Timeout") = 30 adoCommand.Properties("Cache Results") = False Set adoRecordset = adoCommand.Execute ' The parent object of each object with ObjectClass=nTDSDSA is a Domain ' Controller. The parent of each Domain Controller is a "Servers" ' container, and the parent of this container is the "Site" container. Do Until adoRecordset.EOF Set objDC = GetObject( _ GetObject(adoRecordset.Fields("AdsPath").Value).Parent) Set objSite = GetObject(GetObject(objDC.Parent).Parent) '########## strServer=mid(objDC.Name,4) On error resume next Set dienst = GetObject("WinNT://" & strServer & "/" & strService & ",service") If Err=0 then Select Case dienst.status case 1 strStatus ="gestoppt" case 4 strStatus ="gestartet" case else strStatus ="unbekannt" end select Select Case dienst.starttype case 2 strStartart ="Automatisch" case 3 strStartart ="Manuell" case 4 strStartart ="Deaktiviert" case else strStartart ="unbekannt" end select else 'Fehler strStatus = "nicht installiert" strStartart = "" end if f.writeline strServer & ";" & strService & ";" & strStatus & ";" & strStartart On error goto 0 '########## adoRecordset.MoveNext Loop adoRecordset.Close ' Clean up. adoConnection.Close Set objRootDSE = Nothing Set adoCommand = Nothing Set adoConnection = Nothing Set adoRecordset = Nothing Set objDC = Nothing Set objSite = Nothing '########## f.close Set MyFiles = Nothing Wscript.Echo "Fertig. Ausgabedatei: " & StrFilename '##########

In Deinem VBScript könntest du ggf. auch die SC-Zeile durch sowas in der Art ersetzen: strServer=mid(objDC.Name,4) strService = "wuauserv" On error resume next Set dienst = GetObject("WinNT://" & strServer & "/" & strService & ",service") If Err=0 then if dienst.status = 4 then wscript.echo "Dienst " & strService & " auf " & strServer & " gestartet" else wscript.echo "Dienst " & strService & " auf " & strServer & " nicht gestartet" end if else 'Fehler wscript.echo "Dienst " & strService & " auf " & strServer & " nicht installiert" end if On error goto 0 Statt wscript.echo wäre auch eine Ausgaben in eine Datei möglich. Die Startart (Autom./Manuell...) könnte man auch noch mit erfassen über "dienst.StartType".

auf den 2. Blick ausserdem: - wo ist "cmd" definiert? Meines Wissens ist das keine VBS-Funktion Da kenn ich nur sowas wie WShell.run... - In o.g. Fall liefert "sc query" aber nur die Daten des Rechners, von dem aus das Script aufgerufen wurde. Ist das hier so gewünscht?

Ah.. ok... wohl mein Fehler! So wie's aussieht, wartet das Script in der Zeile Set objLatestEvent = colMonitoredEvents.NextEvent bis tatsächlich das nächste Event auftritt! (die Events, die so auftreten können, stehen ja in dem MS-Link) Sorry, hab's hier nicht kpl. durchprobiert.

Momentan macht das kpl. Eventmonitoring in deinem Script keinen Sinn, da objLatestEvent ja nirgends ausgewertet wird! Dein Script startet eigentlich jedes Mal den Calc nach einer Sekunde, wenn er nicht läuft, mehr nicht. Warum die Loop irgendwann nicht mehr läuft: Möglicherweise ist in den Scripteigenschaften ein "Script nach x Sekunden beenden" definiert. Wenn auf das Event reagiert werden soll, kann das z.B. so aussehen: ... Do Set objLatestEvent = colMonitoredEvents.NextEvent If objLatestEvent.EventType = 7 Then 'Resume from Suspend ... Sie hierzu auch Microsoft Corporation

Welchen Inhalt? Nur die Namen der Prozesse? Z.B.: strProc="" For Each objProcess in colProcesses strProc = strProc & objProcess.name & chr(13) Next MsgBox strProc

In dem Select wird ja nur auf die 2 Prozesse gefiltert. D.h. wenn die nicht laufen, ist "colProcesses" leer und wird beim "Foreach" genau gar nix machen. Daher kommt er nie in den Else-Zweig.

Ich sag mal so: Nur den letzten Router interessiert es, ob die Zieladresse existiert! Alle anderen schicken die Pakete entspr. ihren Routing-Tabellen an den nächsten Router.