Zipfenklatscher

Hattest du Probleme mit Ausbilder, Chef o.ä.? Wenn Vorgesetzte nicht als erstes steht, dann wird das von deiner Firma wohl so gesehen...

So hier jetzt das komplette und lauffähige Skript. Es liest Rechner-IP-Adressen aus einer Datei aus, überprüft ob der Rechner überhaupt erreichbar ist. Falls ja werden die Einstellungen vorgenommen und in eine "OK-Datei" der Rechnername eingetragen. Falls der Rechner nicht erreichbar ist oder die Einstellungen nicht vorgenommen werden konnten, wird die IP-Adresse in eine "BAD-Datei" geschrieben und zusätzlich nochmals in eine "neue Rechner-Datei", die benutzt werden kann, um das Skript gezielt auf den fehlgeschlagenen IP-Adressen später nochmals auszuführen, z.B. weil einige Rechner beim ersten Durchlaufen des Skriptes aus waren. On Error Resume Next 'Ping Funktion, überprüft ob Rechner überhaupt erreichbar function Ping(byval strName) dim objFSO, objShell, objTempFile, objTS dim sCommand, sReadLine dim bReturn set objShell = WScript.CreateObject("Wscript.Shell") set objFSO = CreateObject("Scripting.FileSystemObject") 'Set default return value bReturn = false 'Create command line to ping and save results to a temp file sCommand = "cmd /c ping.exe -n 3 -w 1000 " & strName & " > D:\temp_dyndns.txt" 'Execute the command objShell.run sCommand, 0, true 'Get the temp file set objTempFile = objFSO.GetFile("D:\temp_dyndns.txt") set objTS = objTempFile.OpenAsTextStream(1) 'Loop through the temp file to see if "antwort" is found, 'if it is then the ping was successful do while objTs.AtEndOfStream <> true sReadLine = objTs.ReadLine if instr(lcase(sReadLine),"antwort") > 0 then bReturn = true exit do end if loop 'Close temp file and release objects objTS.close objTempFile.delete set objTS = nothing set objTempFile = nothing set objShell = nothing set objFSO = nothing 'Return value Ping = bReturn end function 'Hauptprogramm Dim hostname rechnerFile = "D:\...\dyndns_rechner.txt" Set objFileSystem = CreateObject("Scripting.FileSystemObject") If objFileSystem.FileExists(rechnerFile) Then Set objrechnerFile = objFileSystem.OpenTextFile(rechnerFile) End If Set objergebnis_ok_File = objFileSystem.CreateTextFile("D:\...\dyndns_ok.txt",true) Set objergebnis_bad_File = objFileSystem.CreateTextFile("D:\...\dyndns_bad.txt",true) Set objneuFile = objFileSystem.CreateTextFile("D:\...\dyndns_rechner_neu.txt",true) Do until objrechnerFile.atEndOfStream hostname = objrechnerFile.readLine bPingtest = ping(hostname) If bPingtest = TRUE Then Dim objItem, colItems strComputer = hostname blnFullDNSRegistrationEnabled = True blnDomainDNSRegistrationEnabled = True Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colNicConfigs = objWMIService.ExecQuery ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True") Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem") For Each objNicConfig In colNicConfigs intDynReg = objNicConfig.SetDynamicDNSRegistration (blnFullDNSRegistrationEnabled, blnDomainDNSRegistrationEnabled) If intDynReg = 0 Then For Each objItem in colItems objergebnis_ok_File.WriteLine(objItem.CSName & " - Erfolgreich!") ElseIf intDynReg = 1 Then For Each objItem in colItems objergebnis_ok_File.WriteLine(objItem.CSName & " - Erfolgreich! Neustart erforderlich") Else objergebnis_bad_File.WriteLine(hostname & " ----------- Fehlgeschlagen!") objneuFile.WriteLine(hostname) End If Next Else objergebnis_bad_File.WriteLine(hostname & " --- Host nicht erreichbar!") objneuFile.WriteLine(hostname) objergbnis_bad_File.Close End If Loop objergebnis_ok_File.close objergebnis_bad_File.close objneuFile.close objrechnerFile.close

Habe jetzt das Skript lauffähig, hier die Lösung: On Error Resume Next Dim hostname ConfigFile = "PFAD\rechner.txt" Set objFileSystem = CreateObject("Scripting.FileSystemObject") If objFileSystem.FileExists(ConfigFile) Then Set objFile = objFileSystem.OpenTextFile(ConfigFile) End If Do until objFile.atEndOfStream hostname = objFile.readLine strComputer = hostname blnFullDNSRegistrationEnabled = True blnDomainDNSRegistrationEnabled = True Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colNicConfigs = objWMIService.ExecQuery ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True") For Each objNicConfig In colNicConfigs intDynReg = objNicConfig.SetDynamicDNSRegistration (blnFullDNSRegistrationEnabled, blnDomainDNSRegistrationEnabled) If intDynReg = 0 Then WScript.Echo VbCrLf & " Successfully set dynamic DNS registration." ElseIf intDynReg = 1 Then WScript.Echo VbCrLf & " Successfully set dynamic DNS registration." & VbCrLf & " Must reboot." Else WScript.Echo VbCrLf & " Unable to set dynamic DNS registration." End If Next Loop objFile.close Was mir jetzt nur noch fehlt, wäre anstatt der Ausgabe eines Fensters mit der Meldung, das Schreiben, ob erfolgreich oder nicht in eine Datei. Hat da jemand eine Idee?

Hmm, ja, ich bin jetzt nicht so die Leuchte was Programmieren angeht. Wo genau fehlt denn das End If? So wie ich das jetzt umgestellt habe, springt er beim nächsten Durchlaufen der Schleife nicht automatisch in die nächste Zeile der Textdatei oder? Was müsste ich dafür noch ergänzen?

Danke, ich hab es jetzt mal so angepasst: On Error Resume Next Dim hostname ConfigFile = "PFAD\rechner.txt" Set objFileSystem = CreateObject("Scripting.FileSystemObject") If objFileSystem.FileExists(ConfigFile) Then Set objFile = objFileSystem.OpenTextFile(ConfigFile) Do until objFile.atEndOfStream hostname = objFile.readLine strComputer = hostname blnFullDNSRegistrationEnabled = True blnDomainDNSRegistrationEnabled = True Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colNicConfigs = objWMIService.ExecQuery ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True") For Each objNicConfig In colNicConfigs intDynReg = objNicConfig.SetDynamicDNSRegistration (blnFullDNSRegistrationEnabled, blnDomainDNSRegistrationEnabled) If intDynReg = 0 Then WScript.Echo VbCrLf & " Successfully set dynamic DNS registration." ElseIf intDynReg = 1 Then WScript.Echo VbCrLf & " Successfully set dynamic DNS registration." & VbCrLf & " Must reboot." Else WScript.Echo VbCrLf & " Unable to set dynamic DNS registration." End If Loop objFile.close Next Jetzt bekomme ich allerdings immer den Fehler, dass das Loop nicht ohne Do stehen darf...

Hi, ich möchte gerne ein Skript so anpassen, dass eine Variable sich Werte aus einer Datei holt (.txt oder .csv). Das Skript sieht bisher so aus: --------------------------------------- On Error Resume Next strComputer = "." blnFullDNSRegistrationEnabled = True blnDomainDNSRegistrationEnabled = True Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colNicConfigs = objWMIService.ExecQuery ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True") For Each objNicConfig In colNicConfigs intDynReg = objNicConfig.SetDynamicDNSRegistration (blnFullDNSRegistrationEnabled, blnDomainDNSRegistrationEnabled) If intDynReg = 0 Then WScript.Echo VbCrLf & " Successfully set dynamic DNS registration." ElseIf intDynReg = 1 Then WScript.Echo VbCrLf & " Successfully set dynamic DNS registration." & VbCrLf & " Must reboot." Else WScript.Echo VbCrLf & " Unable to set dynamic DNS registration." End If Next --------------------------------------- Damit kann man auf dem lokalen PC die DNS Registrierung aktivieren. Wenn ich unter strComputer einen Computernamen eintrage, dann auch für diesen PC. Ich würde das aber gerne automatisieren, so dass das Skript sich selbständig die Namen aus einer Datei holt und damit arbeitet. Was muss ich dafür tun?

Probier mal professionelle Software für solche Zwecke aus: http://www.hpinfomedia.de/000_html/00_haupt_html/unterpunkte-produkte/produkte_zeugnis.html Dort vergibst du nur noch Noten für deine Arbeit und der Generator produziert die dazu passenden Formulierungen.

Was hier noch nicht erwähnt wurde: Wie sieht es mit der Datensicherheit bei email-Bewerbungen aus? Schickt Ihr eure vertraulichen Zeugnisse, Lebenslauf etc. unverschlüsselt an die Firmen??? Wenn eine Firma von mir email-Bewerbung wünscht, dann möchte ich auch eine Ziel-email-Adresse bekommen z.B. mit öffentlichen PGP Schlüssel.

Vor allem die GH 1 hat bei den FISI zu den schlechten Leistungen beigetragen... Für die ganzen Rechnungen über Bildgröße, Speicherplatz, Sicherungsdauer bei inkrementellen und differentiellen Sicherungen etc. war die Zeit einfach zu knapp, meiner Meinung nach...

Klar kann man die Platte nach der Installation konvertieren, aber dadurch übernimmt NTFS die Rechte von FAT32, d.h. "Jeder" hat "Vollzugriff" auf alles. Und gerade da liegt doch ein Hauptvorteil von einem von Anfang an mit NTFS installiertem System, dass nicht jeder User die Systemdateien killen kann.

Hi, bisher installiert mein Kollege die Rechner mit Hilfe einer unattended.txt Datei und einer Startdiskette, die Netzwerkkartentreiber lädt und DOS startet. Dann wird über das Netzwerk aus installiert. Die Datei winnt.exe wird aufgerufen mit den Parametern für den angepassten Installationsordner und die Unattended-datei. Leider funktionert das nur wenn die Platte in FAT32 formatiert ist. Ist sie in NTFS formatiert, dann gibt es bei Aufruf von winnt.exe immer die Fehlermeldung, dass min. 241MB freier Speicher für die Installation benötigt wird. Er erkennt also gar nicht, dass die Platte bereits formatiert und frei ist. Gibt es eine Möglichkeit Windows 2000/XP vom Netz zu installieren, wenn die Festplatte in NTFS formatiert ist? RIS Server ist leider nicht vorhanden. Image gehen nicht, wegen Vielzahl unterschiedlicher Systeme.

Hi, OS: Windows XP SP1 ich habe ein Problem, bei einem Freund von mir sieht man in der Exploreransicht keine Ordnersymbole mehr. Die Ordner selbst sind da, aber diese gelben Symbole fehlen komplett. Anstatt dessen werden nur Striche angezeigt. Desweiteren aktualisieren die CD-Laufwerke nicht richtig. Sie zeigen die Namen von CDs an, die schon längst entnommen worden sind und auch wenn man andere CDs einlegt bleibt die alte Bezeichnung da stehen. Was kann das sein? Vielleicht der Freeware-Virenscanner AntiVirXP ?

Hi, hast du zufällig noch die c`t 07/03 rumfliegen? Da steht ein guter Test von Printboxen drin. Sehr gut abgeschnitten haben die Jetdirect von HP. Die kosten aber alle 150 € aufwärts. Bei uns in der Firma setzen wir Axis Boxen ein, sind etwas günstiger, aber von der Qualität relativ gut, ausgenommen im Verbund mit HP-Druckern, da gibt es öfter Probleme.

Hast dir die Antwort doch schon selbst gegeben. Guck doch mal bei Dell oder ähnlichen Anbietern, da bekommst du mit den Rechnern sowieso immer das Betriebssystem mitgeliefert zu OEM-Preisen. Da kannst du fertig konfigurierte Rechner kaufen oder selber am Konfigurator rumspielen.

Um nochmal kurz zu den Abschlüssen zu kommen: Ich war selbst auf der Realschule, hab die mit 1,3 abgeschlossen und hab dann auf einem Gymnasium Abi gemacht. Ich weiß, was mir alles nach der Realschule gefehlt hat! Vor allem in den Naturwissenschaften sah es sehr schlecht aus, was aber nicht an fehlender Lernbereitschaft meinerseits lag, sondern dass auf dem Lehrplan einfach nicht mehr vorgesehen war. Auf dem Gymnasium hatte ich in Mathe, Informatik und Physik echt Nachholbedarf, ohne freiwilliges "Nachlernen" hätte ich bestimmt kein Abi gemacht. Und gerade solche Fächer finde ich schon sehr wichtig für einen IT-Beruf. BWL hin oder her, als FISI kommt es darauf nicht wirklich an, vielleicht als IT-Systemkaufmann oder Informatikkaufmann... Vielleicht lag es auch daran, dass ich aus NRW komme, dass der Realschulabschluss "schlechter" ist als der aus Bayern. Bei uns war es z.B. bis zur 9. gang und gäbe sogar die Formeln in Mathearbeiten mit auf die Aufgabenzettel zu drucken, es war also nur ein einfaches Einsetzen von Zahlen und selbst dass haben die meisten nicht geschafft. Bei solchen Arbeiten darf es eigentlich keine Zensur schlechter als 3 geben, gabs aber. Also erzähl mir keiner, dass Realschule so schwer ist, zumindest bei uns im Norden. Auch ob ich mit 19 (Realschule + 3 Jahre Ausbildung) oder 23 (Abi+1 Jahr Dienst+ 3 Jahre Ausbildung) fertig bin, ist herzlich wurscht, es ist sogar den meisten Betrieben lieber, wenn man schon Bund oder Zivi hinter sich hat und wenn man mobil ist, also schon einen Führerschein hat, dass wurde mir nach der Realschule bei Bewerbungsgeprächen klar gemacht. Auch ein Grund warum ich Abi gemacht habe. Und das Argument von wegen, ein interessierter Hauptschüler ist besser als ein weniger interessierter Abiturient ist wohl auch etwas wackelig. Denn ob ein Azubi seine Arbeit interessiert und gut macht, kann man nicht beim Einstellungstest oder Bewerbungsgespräch sehen, sondern frühestens nach der Probezeit. Und jemand der kein Interesse an einem Job hat, der sollte wohl sowieso besser sich etwas anderes suchen. Es ist Fakt, dass immer mehr Betriebe Leute wollen, die min. Fachhochschulreife haben.

Hi, auch ich hab mich vor 2 Jahren dazu entschieden mit Abitur eine Ausbildung als Fisi anzufangen. Wenn ich mir so meine Kollegen in der Berufsschule angucke, dann war das die richtige Entscheidung. In meiner Klasse sind etwa 80% Abiturienten oder Handelsschüler mit FachAbi, dann etwa 15% mit Fachoberschulreife und der Rest hat nur Hauptschule geschafft. Man merkt recht deutlich die Unterschiede beim Lernen, den Real-und Hauptschülern fällt es oft schwer mitzukommen, sie haben ja auch 3 Jahre weniger Stoff gelernt. Auch die Art, wie man lernt, in Teams, mit Projektarbeit und Präsentationen, das geht Abiturienten einfach lockerer von der Hand. Mein Betrieb und auch viele andere, wo ich mich damals beworben habe, wollten auch nur Schulabgänger mit Fachabi oder Abi. Und wie oben schon gesagt wurde, mach das was dir jetzt Spaß macht, denn studieren kannst du wirklich noch mit 30 oder 40, wenn es dir in den Sinn kommt oder du es brauchst um die Karriereleiter zu erklimmen. Es gibt auch Studiengänge, die du an sogenannten Berufsakademien machen kannst, dass heißt du studierst während oder nach der Ausbildung. Damit kannst du zum Beispiel Dipl. Wirtschaftsinformatiker (BA) machen, dauert 3 Jahre, mit abgeschlossener Ausbildung als FISI nur 2 Jahre, wenn ich micht nicht irre. Also Kopf hoch....

Ja hab ich, s.o.

Tach zusammen, ich hab hier ein sehr seltsames Problem: - Windows 2000 mit Service Pack 3 und Internet Explorer 6SP1, Novell Client 4.83 Wenn ich mit dem Explorer auf gemappten Novell-Laufwerken arbeite und in der Leiste oben auf Bearbeiten klicke, dann erscheint eine Speicherfehlermeldung: "Die Anweisung in "0x77e79898" verweist auf Speicher in "0x0029023f". Der Vorgang "read" konnte nicht ausgeführt werden." Danach schmiert der Explorer ab, Dr.Watson probiert eine Analyse, es kommt aber nichts dabei raus. Wenn ich auf der lokalen Platte arbeite und auch im Explorer oben auf Bearbeiten klicke kommt kein Fehler. Auch wenn ich auf den Netzlaufwerken arbeite und die Ordneransicht links ausgeblendet lasse, kommt kein Fehler. Hab schon Speicher getauscht, umgesteckt; Festplatte gewechselt; Windows komplett neu installiert; Netzwerkkarte getauscht; Chipsatztreiber (Via 4in1 4.45) aktualisiert -> keine Besserung Hat jemand eine Idee, was das sein könnte? Vielleicht ein Fehler im Chipsatz des Boards? mfg Zipfenklatscher

Jetzt klappt gar nix mehr. Dieser RSW ist toll, wenn der Benutzer, den man manipulieren will Admin-Rechte hat, aber stellt man ihn im Nachhinein auf Gast oder Benutzer um, werden die Einstellungen verworfen und das ganze Profil erstellt sich bei jedem Anmelden wieder neu. Will man RSW aber als Benutzer starten und konfigurieren, dann verweigert dieser an einigen Stellen seinen Dienst, da man nicht genug Rechte hat. Den Policy Editor hab ich mittlerweile auch gefunden, aber damit kann man ja nicht wirklich viel sperren, oder ich bin zu dumm dazu. Weiß vielleicht jemand, eine gute Anleitung zum Umgang mit Policies oder dem Poledit? Was ich unter google gefunden habe, war mehr als dürftig. Danke schonmal. mfg Zipfenklatscher

Vielen Dank euch allen. Hab jetzt erstmal einen Gast-Benutzer mit beschnittenen Rechten erstellt. Dann den RSW (Registry System Wizard) von www.winfaq.de heruntergeladen + den MSCA (siehe winfaq) von Microsoft, dann die Registry damit bearbeitet und dem Benutzer alles genommen außer einem nackten Desktop und dem Internet Explorer, wo per Autostart im Kioskmodus die gewünschte Webseite läuft. Das einzige Problem ist nun noch, wenn der Benutzer auf einen mailto-Link auf der Seite klickt öffnet sich Outlook Express, was aber am besten nicht geschehen sollte. Deinstalliert bekomme ich OE nicht, gibt es noch andere Wege OE auszuschalten? Poledit kann ich irgendwie leider nicht finden... mfg Zipfenklatscher

Hi, also ich hab folgendes Problem. Ich soll 2 Rechner mit Touchscreen für eine Messe so konfigurieren, dass nur der Internet Explorer darauf läuft und eine lokal auf Platte liegende Webseite anzeigen soll. Die Benutzer sollen nur diese sehen können und sie nicht verlassen oder manipulieren können. Auch am OS soll niemand pfuschen können. Hat jemand Tipps für mich, ob es da irgendwelche Tools o.ä. gibt, um das zu realisieren? Vielen Dank schon mal. mfg Zipfenklatscher

Danke.

Habe gerade gesehen, dass man so eine Meldung bei Windows 2000 ganz einfach unter "Verwaltung->Lokale Sicherheitseinstellungen->Lokale Richtlinien->Sicherheitsoptionen->Nachricht für Benutzer die sich anmelden wollen" machen kann. So weit so gut, aber wo kann ich das bei NT 4.0 Server machen?? Hat jemand eine Idee?

Hast du es schon mal mit Kazaa Lite 2 probiert? http://www.kazaalite.com/

Hi Kollegen, hab da mal eine Frage: Wo kann ich in der Registry eine Warnmeldung eingeben, die bei jedem Start eines Servers angezeigt wird ala "Es sind nur ...berechtigt an diesem PC zu arbeiten...." Vielen Dank schon mal. mfg Thomas