Jump to content

learner

Members
 Profil anzeigen  Aktivitäten des Benutzers anzeigen

  • Gesamte Inhalte

    71

  • Registriert seit

  • Letzter Besuch

 Inhaltstyp 

Beiträge erstellt von learner

  2. Frage an die Access Profis

    in Windows Forum — Allgemein

    Geschrieben

    Hi Luck0r,

     

    wenn ich mich ganz dunkel erinnere hatten wir mal das gleiche Problem.

    Ursache war damals der Kaspersky Virenscanner, der nach einem Update alle Makroaktionen ohne Benachrichtigung unterbunden hat.

     

    Mein Tipp:

    Wenn es in Eurer Umgebung vertretbar ist, würde ich den Virenscanner (wenn vorhanden Antispywaretools) mal kurz abschalten und testen, ob der Import dann geht...

     

    Grüße,

    learner

  4. Office-Version mit vbs auslesen

    in Windows Forum — Allgemein

    Geschrieben

    Danke für Euer Feedback und Lob! :)

     

    Zur Versionsnummer:

     

    Das Skript ließt ja die Versionsnummer der Datei MSWORD.EXE aus. Also sollte diese mit

    der Nummer in den Eigenschaften der Datei übereinstimmen. Ich vermute mal, dass diese

    Dateiversion der exe wohl nicht immer mit dem Patchlevel der Anwendung übereinstimmt.

    Aber das ist nur eine Vermutung... :confused:

     

    Zu den Buttons:

     

    Dies war auf die Frage nach dem Starten der Anwendung bezogen. Ich habe dies so

    verstanden, als sollte es möglich sein, eine Anwendung die das Skript auflistet direkt aus

    dem Skript zu starten. Meine Idee war somit, hinter der gelisteten Anwendung einen

    Button zu erzeugen, der den Start ausführt. Und ich habe leider keine Ahnung wie man

    dies machen könnte... Oder habe ich das falsch verstanden?

     

    viele Grüße aus Mannheim

    learner

  5. Office-Version mit vbs auslesen

    in Windows Forum — Allgemein

    Geschrieben

    Hallo zusammen,

     

    war ein paar Wochen weg, daher hab ich erst jetzt den Thread gelesen.

     

    Ich habe das Skript ein wenig erweitert, um eine detailierte Liste der installierten

    Office-Komponenten mit ausführlichen Versionsnummern auszugeben.

     

    ChkOffice.vbs

     

    Dim WSHShell, objFSO, textout
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set WSHShell = CreateObject("WScript.Shell")

Dim part(4,1)
part(0,0) = "Word"       : part(1,1) = "WINWORD.EXE"
part(1,0) = "Excel"      : part(2,1) = "EXCEL.EXE"
part(2,0) = "Outlook"    : part(4,1) = "OUTLOOK.EXE"
part(3,0) = "PowerPoint" : part(0,1) = "POWERPNT.EXE"
part(4,0) = "Access"     : part(3,1) = "MSACCESS.EXE"

textout = "Installierte Office-Anwendungen:" & vbCRLF & vbCRLF

Call ChkOffice("11.0","2003")
Call ChkOffice("10.0","XP")
Call ChkOffice("9.0", "2000")
Call ChkOffice("8.0", "97")

MsgBox textout,64,"CheckOffice.vbs"

Function ChkOffice(ver, verfull)
Dim pfad, res, helptext

On Error Resume Next
pfad = "HKLM\Software\Microsoft\Office\" & ver & "\Common\InstallRoot\Path"
res = WSHShell.RegRead(pfad)
If res <> "" Then 
 For i = 0 to 4
  If objFSO.FileExists(res&part(i,1)) Then 
   helptext = part(i,0) & Space(1) & verfull & "  (" & objFSO.GetFileVersion(res&part(i,1))&")"
   textout = textout & helptext & vbCRLF
  End If
 Next
 textout = textout & vbCRLF
End If

End Function

     

    Die Liste der Office-Anwendungen unter part(x,y) kann natürlich erweitert werden,

    dabei muss der Wert bei Dim part(4,1) auf part(5,1) erhöht werden,

    ebenso die 4 in der For Schleife...

     

    Das Starten der Anwendungen aus dem Skript heraus übersteigt meine Fähigkeiten,

    da dynamisch Buttons für jede Anwendung erzeugt werden müssten.

    Da bin ich überfragt... :rolleyes:

     

    Würde mich über ein kurzes Feedback freuen, da ich es auch wieder nur unter

    WinXP und Office 2003 testen konnte. :)

     

    Viele Grüße

    learner

  6. DSL Flatrate

    in Windows Forum — LAN & WAN

    Geschrieben

    Hallo Jörg,

     

    ich kann Dir http://www.congster.de empfehlen. Das ist eine 100% T-Com Tochter und die Qualität und Zuverlässigkeit des Zugangs sind top, meiner Erfahrung nach. Die Zugangsdaten hatte ich innerhalb von 2 Minuten, im Router umgestellt und "nahtlos" weitergesurft...

    Der Support ist auch gut ereichbar und die Hotliner recht freundlich und kompetent.

    Portbeschränkungen gibt es keine.

    Für einige Städte liegt die Flat bei 4,99€, für Rest Deutschland bei 7,99€.

     

    Weiß nicht, ob Dir das günstig genug ist... ;)

     

    viele Grüße

    learner

     

    [edit] Ich hoffe, dass dieser Post nicht gegen "Regel Nr. 4: Keine Werbung" verstößt [/edit]

  7. Office-Version mit vbs auslesen

    in Windows Forum — Allgemein

    Geschrieben

    Hallo mummi,

     

     

    Hab mal auf die Schnelle was gebastelt. Wenn auch nicht besonders elegant, glaub ich... ;)

     

    CheckOffice.vbs

    Dim WSHShell, office

    Set WSHShell = CreateObject("WScript.Shell")

     

    Select Case True

    Case ChkOffice("11.0") : office = "Office 2003 installiert"

    Case ChkOffice("10.0") : office = "Office XP installiert"

    Case ChkOffice("9.0") : office = "Office 2000 installiert"

    Case ChkOffice("8.0") : office = "Office 97 installiert"

    Case Else : office = "Kein Office installiert"

    End Select

     

    MsgBox office,64,"CheckOffice.vbs"

     

    Function ChkOffice(ver)

    Dim pfad, res

     

    On Error Resume Next

    pfad = "HKLM\Software\Microsoft\Office\" & ver & "\Common\InstallRoot\Path"

    res = WSHShell.RegRead(pfad)

    If res <> "" Then ChkOffice = True

     

    End Function

     

    Das Script prüft in welchem RegistrySchlüssel der Eintrag "Path" existiert, in Abhängigkeit der Versionsnummer

    des "erfolgreichen Pfads" kann man die installierte Version erkennen.

    Habe es allerdings nur unter WinXP mit Office 2003 testen können...

     

    Hoffe es hilft trotzdem! :)

     

    viele Grüße

    learner

  8. Nach Standby schaltet Rechner wieder ein

    in Windows Forum — Allgemein

    Geschrieben

    Hmm... Daran lag es bei mir...

     

    So sorry! :(

     

    Hätte sonst noch auf Bios-Einstellungen getippt, aber da es ja unter 2k lief, ist dies wohl eher unwahrscheinlich...

    Ansonsten kann es theoretisch an jedem Treiber liegen, der installiert ist. Aber das wird wohl die Suche nach der Nadel im Heuhaufen... ;)

     

    Zunächst würde ich die Chipsatztreiber aktualisieren.

    Falls das nicht hilft, alle zusätzlich installierten Treiber/Hintergrundprogramme deinstallieren und Schritt für Schritt probieren, ob der Standby dann klappt...

     

    Ist zwar nicht der Mega-Tipp, aber mehr wüßte ich auch nicht. :(

     

    Viel Erfolg!

     

    Grüße learner

  11. 3 Fragen zu T-Online

    in Windows Forum — LAN & WAN

    Geschrieben

    Hallo,

     

    noch zu 1. :

     

    Sobald eine Verbindung zu T-Online hergestellt wird, berechnen die schon 1 MB Traffic! Egal ob was übertragen wurden oder nicht... :mad:

    Daher sollte man mit der "automatischen Wiedereinwahl" bei Routern vorsichtig sein.

     

    Die Auskunft hab ich von der T-Online Hotline am 01.03.05 bekommen, da ich mich über deren Abrechnung gewundert habe.

     

    Grüße

    learner

  15. MS gibt nur noch Updates an Legale Windows User

    in Off Topic

    Geschrieben

    Dann ist es eine sinnvolle Sache, was MS da vorhat. :)

     

     

    Haben den Artikel bei zdnet.de so gelesen, als würden bald alle Patches und Updates von einer legalen Lizenz abhängen.

     

    Zitat von Deinem Link bei zdnet.de:

    "[..]Windows-Nutzer müssen ab Mitte des Jahres mit einem Tool prüfen, ob es sich bei ihrem Betriebssystem um eine korrekt lizenzierte Version handelt. Nur wenn dies der Fall ist, können weiterhin Updates und Patches heruntergeladen werden.[..]" :confused::confused::confused:

     

    Muss aber zu meiner Schande gestehen, dass ich mich ansonsten noch nicht weiter darüber informiert habe... :rolleyes:

     

    viele Grüße aus Mannheim

    learner

  16. MS gibt nur noch Updates an Legale Windows User

    in Off Topic

    Geschrieben

    Um auf die Ausgangsfrage mal zurückzukommen...

     

    Generell finde ich es von MS richtig nur noch ehrliche Käufer ordentlich zu unterstützen.

     

    Aber es macht mir Sorgen, dass in Zukunft Millionen illegaler Windows-Systeme (80% ?) keine Sicherheitslücken mehr schließen könnten. Angenommen durch eine in der Zukunft entdeckte Lücke würden sich DoS-Attacken starten lassen? Die Betreiber von Servern die Ziel einer solchen Attacke wären, würden sich bestimmt bedanken!

    Von zig-Millionen potenziellen Virenschleudern mal ganz zu schweigen... :shock:

     

    Meiner Meinung nach, hat MS schon jahrelang nicht genung gegen Raupkopien unternommen. Und jetzt da ihre Systeme soweit illegal verbreitet sind, einfach den (Sicherheits-)Hahn für Updates zuzudrehen, ist ein gefährliches Unterfangen für uns alle. Und da entzieht sich MS, finde ich, einer gewissen Mitverantwortung für die hohe Anzahl an illegalen Win-Installationen und deren möglichen Folgen...

     

    viele Grüße

    learner

     

    PS: Bei der vorherrschenden "Geiz-ist-Geil"-Mentalität im Land, würde noch viel mehr geklaut, wenn es so einfach wie ein (MS-)Raubkopie wäre... :)

  24. Welche Firewall kann Port per Batch öffnen?

    in Windows Forum — Security

    Geschrieben

    Hallo zusammen,

     

    ich suche eine Desktop-Firewall für Win2k Workstation SP4, bei der sich ein Port über einen DOS-Befehl öffnen bzw. schließen lässt.

     

     

    Hintergedanke:

     

    Der PC verügt über eine ISDN-Karte und kann anrufende Nummern identifizieren und je nach Anrufernummer ein Batch-File ausführen. Durch den Batch sollte nun ein Port in der Firewall für den Remotezugriff geöffnet werden. Ist der Remoteuser fertig, so soll der Port durch eine andere Batch wieder geschlossen werden.

     

    Hat jemand eine Idee, welche Firewall sich so steuern lässt?

     

    viele Grüße aus Mannheim

    learner

×
×
  • Neu erstellen...