Jump to content

Cybquest

Expert Member
  • Gesamte Inhalte

    1.886
  • Registriert seit

  • Letzter Besuch

Alle erstellten Inhalte von Cybquest

  1. Der INSERT ist so schon ok. "VALUES" steht in der nächsten Zeile ;) Wenn man nur bestimmte Spalten ansprechen will, muss man die vorher angeben. Allerdings fehlt in dem INSERT-String ein Leerzeichen vor der Klammer! ...strcomputer & "(Category... Richtig wäre: ...strcomputer & " (Category...
  2. @bergesel Zum Anpinkel-Thema: Ich bin durchaus auch der Meinung, dass Du Nils gegenüber extrem überreagiert hast! Zum Script: Wie man ein einfaches Debugging mittels "Msgbox" durchführt, hab ich jetzt hinreichend erwähnt. Wenn du Fehlermeldungen bekommst, bau halt einfach mal welche ein und lass dir die entspr. zusamengebastelten Strings ausgeben. Poste diese dann gleich mit, dann können wir nach "incorrect syntax" fahnden.
  3. Der Punkt ist übrigens keine Variable, sondern ein Punkt! Und der funktioniert nur für "GetObjekt" um auf den lokalen Computer zuzugreifen! Für deine SQL-Statements solltest du dir auf jeden Fall eine korrekte Variable hernehmen. EDIT: Schau Dir die Scripte von "damals" nochmal genau durch. Irgendwo wird die Variable Computername gesetzt! Und den Teil hast du vermutlich bei diesen Scripten vergessen. EDIT2: Nur mal so als "Anregung" aus einem alten Post strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") Set colItems = objWMIService.ExecQuery( _ "SELECT * FROM Win32_ComputerSystem",,48) For Each objItem in colItems strComputer = objItem.DNSHostName Next [/Code]
  4. Dass das eine Variable aus einer Software ist, glaub ich gerne. Dass man auf Umgebungsvariablen aus einem VB-Script genauso zugreift, wie mittels DOS-Batch... glaub ich jedoch nicht! Mach doch vorsichtshalber mal unter die Zeile mit der strComputer-Zuweisung eine MsgBox strComputer Steht da dann wirklich der korrekte Computername?
  5. Weil die Netzwerkadresse (alle Hostbits auf 0) sowie die Broadcastadresse (alle Hostbits auf 1) abgezogen werden müssen.
  6. Wie wär's mit Oracle Software Downloads ? Allerdings... um die Unterschiede "sehen" zu können muss man sich m.E. schon ziemlich mit Oracle auskennen bzw. beschäftigen.
  7. D.h. die Meldungen kommen nur ab und zu? Schon mal von dem WuG-Rechner aus nen Dauerping laufen lassen, ob da Aussetzer kommen?
  8. Sowas in einem Intranet z.B. unten drin zu machen ist ein Ding, be jeder Anmeldung solche "Gimmicks" zu bringen ein anderes! Ich würde es an deiner Stelle lassen! Ansonsten, wie bereits gesagt wurde, per Login-Script.
  9. OK, dann würde ich mal davon ausgehen, dass die Korruption nicht durch defekte Platten oder sowas entstanden ist. So wie's aussieht, ist der defekt ja nur mit der entspr. Applikation festzustellen. D.h. wenn Du per Script da was machen willst, müsstest du jedes Mal die entspr. Applikation (bzw. ein entspr. OLE-Objekt) starten, die dir dann ggf. einen Errorcode zurückliefern kann. In wieweit Access z.B. solche Codes zurückliefert, weiß ich aus dem Stehgreif grad nicht.
  10. Zunächst mal ein paar Fragen: - WER gibt die Dateien als "defekt" an? Windows? Ein Programm? - Du hast's getestet und festgestellt, dass gar nicht alle defekt sind? Oder ist das eine Vermutung? - Lassen sich die Dateien nur mit dem entspr. Prg. nicht öffnen, oder grundsätzlich? (Also z.b. mit Notepad, auch wenn's nur wirre Zeichen dann sind) - Lassen sich die def. Dateien kopieren?
  11. Kannst auch in der ISA-Verwaltung unter "Überwachung - Protokollierung" Einfach mal die IP von deinem Rechner filtern, die entspr. Seite aufrufen und zuschauen, was da alles kommt. EDIT: Um welchen ISA geht es denn eigentlich? 2000? 2006?
  12. Möglicherweise beinhaltet "dieseite" Grafiken oder eingebettete Objekte aus anderen Domänen (Werbebanner z.B.)
  13. Ach.. hab ich ganz übersehen, dass in dem String mehrere URLs sind. Hier ne Möglichkeit (ich geh mal davon aus, dass Du den Teil zwischen // und . haben willst): strDomains="http://server1.net.com; http://domain2.net http://svr3.domain.de" do lngpos1=instr(strDomains,"//")+2 lnglen=instr(lngpos1,strDomains,".")-lngpos1 strServer=strServer & mid(strDomains,lngpos1,lnglen) & chr(13) strDomains=mid(strDomains,lngpos1,len(strDomains)-lngpos1) loop until instr(strDomains,"//")=0 MsgBox strServer
  14. Versuchs doch mit der Mid- und Instr-Funktion: lngpos1=instr(strDomain,"//")+2 lnglen=instr(strDomain,".")-lngpos1 strDomain=mid(strDomain,lngpos1,lnglen) ...aber eigentlich sind URLs so aufgebaut ;) server.domain.rootdomain
  15. Da würde ich mal sowas wie "Device Lock" oder "Sanctuary Device Control" anschauen.
  16. D.h. "0.00 0.00" ist nur ein Teil der Zeile, die kpl. Zeile soll aber gelöscht werden? Ich würde vorschlagen, in diesem Fall die Datei Zeilenweise einzulesen und in eine 2.Datei wieder rauszuschreiben, ohne die entspr. Zeile eben. Hier ein entspr. Codefragment: Set MyFiles = CreateObject("Scripting.FileSystemObject") Const ForReading = 1, ForWriting = 2 varDatei="C:\Temp\DateiIn.txt" varTmpDatei="C:\Temp\Dateiout.txt" Set fin = MyFiles.OpenTextFile(varDatei, ForReading) Set fout = MyFiles.OpenTextFile(varTmpDatei, ForWriting, True) strSearch = "0.00 0.00" do while not fin.AtEndOfStream strline = fin.readLine() if instr(1,strline, strSearch) = 0 then 'Zu entfernende Zeile nicht gefunden, also Zeile ausgeben fout.writeline strline end if loop Ggf. hinterher dann noch Originaldatei löschen und neu erstellte umbenennen...
  17. Cybquest

    EBook VB 2008 Crashkurs

    Neues aus'm Tecchannel: Microsoft verschenkt eBook Microsoft verschenkt eBook | Home - News - Themenüberblick - Windows | TecChannel.de Kostenloser Download unter Microsoft Press Shop Ich als "Coder" habs natürlich gleich gezogen :)
  18. Ich würde sagen, bei der Regel als Quelle Deinen Mailserver und als Ziel einen URL-Satz, der "mail.mydomiane.de" enthält.
  19. Mal als Anregung: MSXFAQ.DE - VBS:AddContact
  20. Hä :confused: ...um ein Shell-Fenster, dass aus einem Anmeldescript aufgerufen wird, zu verstecken, muss man eben den Befehl im Anmeldescript entspr. anpassen! Erwartest du jetzt, dass wir für jede Art Scripting den Befehl hier hinschreiben? Oder versteh ich deine Anfrage nicht? Beispiel in VB-Script: Set WSHShell = CreateObject("WScript.Shell") WSHShell.Run "MeinShellScript.cmd", 0, False die Null als Parameter gibt in diesem Beispiel an, das Fenster zu verstecken.
  21. Welche Art Anmeldescript? VBScript? Batch?...
  22. Vielen Dank! Das 2. liegt bereits im Einkaufswagen! Da liegt auch noch Amazon.de: Windows PowerShell Scripting Guide, w. CD-ROM: Automating Administration of Windows Vista and Windows Server (PRO-Other): Ed Wilson: English Books Kennst Du das auch?
  23. Nur mal so ne Zwischenfrage an Ronon: War das eigentlich wirklich eine ersthafte Frage? Oder wolltest du einfach mal sehen, wie die Leute hier so darauf reagieren? ;)
  24. @Sunny61 Wir haben, ich glaub mit Winstall LE, das MSI selber erstellt. Aktualisierungen gabs bisher noch nicht (wie gesagt: ne Testinstallation. Läuft noch nicht so lange) Kürzlich hab ich zudem im Tecchannel das hier gelesen: IBM veröffentlicht Lotus Symphony 1.0 | Home - News - Themenüberblick - Windows | TecChannel.de Will ich evtl. auch mal anschauen...
  25. @blub Mal ne Frage am Rande: Hast ne Buchempfehlung für PS? :D
×
×
  • Neu erstellen...