Cybquest

Warum jemand noch in Pascal programmiert, würde mich schon auch interessieren ;) Nichtsdestotrotz... hab grad mal gegoogelt: Mode13hGraphics-Pascal Reference for unit 'Graph' Vielleicht ist da was hilfreiches dabei. Ich programmiere seit ca. 1990 nicht mehr in Pascal (bin damals dann irgendwann auf Delphi umgestiegen ;) )

Jou, das Script sollte ganze Ordner löschen. Ich dachte, als Basis für eigene Anpassungen konnte es ja dennoch herhalten :) Da ja jetzt nur noch Dateien gelöscht werden, bleiben natürlich ggf. leere Ordner übrig. Um die zu löschen, müsste das Script überprüfen, ob ein Ordner leer ist (in der Art "objFolder.Files.Count = 0" oder so) und dann den Ordner löschen (wenn das denn gewünscht ist).

Hoi, die Löschroutine sollte recursiv durch die Unterverzeichnisse gehen und löschen. Dein Script löscht nur die Dateien im aktuellen Ordner und in den Unterordnern 1.Ebene. Sollten sich darin weitere Unterordner befinden, wird nicht gelöscht. Kannst Dir ja mal das Script, welches ich hier gepostet hab, anschauen: http://www.mcseboard.de/windows-forum-scripting-71/ordner-batch-xx-tagen-loeschen-5-150449.html Grüße, Frank

Wenn beide DHCP-Server laufen (80/20), müssen die Reservierungen auf beiden eingetragen werden. Wenns viele sind, hilft evtl. das hier weiter: http://www.mcseboard.de/windows-forum-lan-wan-32/dhcp-reservierungen-per-script-94432.html

Was spricht dagegen, eine Vertrauensstellung einzurichten?

Denn ma: Herzlichen Glückwunsch, Esta :)

Auch angemeldet :) Apropopopo: Wer buchts Hotel?

Wenn ich das richtig verstehe, geht es um "Stand-Alone" Rechner, nicht Netzwerk, oder? Dann würde sich bei Vista bzw. W7 z.B. der öffentliche Ordner dafür anbieten. (z.B. C:\Benutzer\Öffentlich\Öffentliche Dokumente bzw. C:\Users\Public\Documents) Edit: Entspr. Umgebungsvariable: %PUBLIC%

Bissle arg verwirrend Dein Text da oben :( Ich würde sagen, schau lieber mal nach dem DNS. Ich vermute ja schwer, dass da zwischen den Standorten geroutet wird. Da hilft WINS und NetBIOS wenig!

Wenn die "Step2.cmd" beim ersten und zweiten Durchlauf wirklich genau gleich aussieht, würde ich vermuten, man müsste den Fehler in der inst.jar suchen. Da sitzt ja wohl die eigentliche Setuproutine drin.

Und wie wärs, wenn Du Dein vbs-Script mit jenem "test.vbs" einfach kombinierst in einer einzigen VBS-Datei? Eine VBS, die eine Batch, welche dann eine VBS aufruft... klingt wie'n nicht gestandener doppelter Rittberger :D

Du weisst doch besimmt, dass ich in der Psychiatrie arbeite ;) ...aber eigentlich meinte ich meinen Kollegen und mich :)

...Punkt 0:00 Uhr ;) Wir werden auf jeden Fall wieder kommen.

Kann man mit entspr. Abfragen bestimmt händeln ;) Kannst Du ein Beispiel geben, wie das dann aussieht?

Mit kommaseparoierte Liste meine ich das hier: strIPAddress = Join(objitem.IPAddress, ",") Damit werden alle IP-Adressen eines Adapters mit Komma getrennt aneinandergehängt. Merkst Du nur nicht, weil Du vermutlich nicht mehrere IP-Adressen an einem Adapter hast ;) Mal ne kurze Erklärung. Hiermit... Set colitem = objWMIService.ExecQuery _ ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True") ...werden alle Adapter, die ne IP-Adresse haben, ausgewählt. D.h. in dem colItem stehen sämtliche Adapter-Objekte. Hiermit... for each objitem in colitem ...durchläufst Du diese Collection. D.h in objItem stehen nacheinander (für jeden Durchlauf der "FOR EACH"-Schleife) die einzelnen Adapter. Rest, wie gehabt. Wie gesagt, das Problem hierbei ist, dass nur die letzte Adapterinfo hinterher in den Variablen I bzw. MAC stehen. Sollte der letzte Adapter in der Collection mal der WLAN-Adapter sein, kommen nur dessen Daten! strIPAddress = Join(objitem.IPAddress, ",") IP = stripaddress MAC= objItem.MACAddress next Daher meine Empfehlung, dein Script wie Du es anfangs gepostet hast, entspr. umzubauen: For Each objAdapter in colAdapters clientlog.writeline "Adapter: " & objAdapter.Caption clientlog.WriteLine "MAC: " & objAdapter.MACAddress If Not IsNull(objAdapter.IPAddress) Then For i = 0 To UBound(objAdapter.IPAddress) clientlog.WriteLine "IP: " & objAdapter.IPAddress(i) Next End If If Not IsNull(objAdapter.DNSServerSearchOrder) Then For i = 0 To UBound(objAdapter.DNSServerSearchOrder) clientlog.WriteLine "DNS: " & objAdapter.DNSServerSearchOrder(i) Next End If Next

Ich versteh die Frage leider nicht so ganz... Aber eine Anmerkung zu dem Codeschnippsel: Für jeden Gimmick immer wieder die gleiche WMI-Abfrage auszuführen... das ist eher nicht performant ;) ...ansonsten gibt es doch keine Unterschied? Die Abfrage ist doch in beiden Fällen per "ExecQuery" ?!? Den Part mit den Collections solltes Du ggf. mal nochmal genauer recherchieren. Momentan bekommst Du IP's als kommaseparierte Liste, MACs ebenfalls nur die letzte...

Nu ja... wie gesagt... die Antwort steht oben schon ;) objAdapter.DNSServerSearchOrder ist in diesem Fall ein Array mit mehreren Einträgen, welche mit der FOR...NEXT-Schleife einzeln ausgegeben werden. Ebenso sieht's mit IP und MAC aus. Daher nochmal: Am einfachsten die Ausgabe in Deine Textdatei jeweils direkt in die FOR...NEXT-Schleife mit einbauen.

Für einen blutige Anfänger hast Du Dir aber schon mächtig was vorgenommen ;) Du musst das schon innerhalb der For - Next-Schleife in Deine Datei ausgeben. For i = 0 To UBound(objAdapter.DNSDomainSuffixSearchOrder) clientlog.WriteLine "DNS" & i & " : " & objAdapter.DNSDomainSuffixSearchOrder(i) Next

Hallo, möglich ist es schon mit Bordmitteln. Allerdings sollte man dazu vermutlich scripten können! Mit Powershell könnte man z.B. die Anzahl Dateien mit einem Erstelldatum > Heute - 1 Monat (o.ä.) ausgeben lassen...

Kannst die Ports ja hinterher wieder ins "Default-VLAN" untagged reinhängen. Wenn alle Ports wieder dort sind, kann das VLAN dann auch wieder gelöscht werden.

Am besten liest du dich erst mal in die VLAN-Thematik ein: Virtual Local Area Network ? Wikipedia Bei Portbasierten VLANs einfach die entspr. Ports im gewünschten VLAN als "untagged" definieren.

Die korrekte Syntax wäre Reg Query HKU /v Settings /s

Ich vermute, die Funktion die du suchst, ist möglicherweise "RegEnumKeyEx" Registry Functions (Windows)

Hi, mit KIX kenn ich mich zwar nicht aus, aber wenn ich mir das anschau, würde ich sagen, der Registrystring am Ende ( Software\Microsoft\Office\$OfficeVer\Outlook\Security) ist falsch. In der Registry heisst der Unteschlüssel der Officeversionen 11.0, 12.0 etc. nicht, wie in Deiner Variable $Officever 2007 etc.

Nettes Script :) @f.toepelm: Im Script steht doch die Aufrufsyntax. D.h. Du musst es vom Commandprompt mit "openshare 192.168.1.0" aufrufen.