Zum Inhalt springen

13lack4angle

Mitglieder
  • Gesamte Inhalte

    7
  • Benutzer seit

  • Letzter Besuch

Letzte Besucher des Profils

Der "Letzte Profil-Besucher"-Block ist deaktiviert und wird anderen Benutzern nicht angezeit.

  1. Vielen Dank erstmals für die Antwort... Aber was sind dedizierte Gruppenrichtlinien? Und wie erstellt man solche? Vielen Dank im Vorraus und liebe Grüße 13lack4ngle
  2. Hi @ all, ich habe folgendes Problem: Ich möchte bei ca. 50 Servern automatisch einen WSUS-Server via Batchdatei eintragen. set key=HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate reg add %KEY% /v WUServer /d "http://servername" /t REG_SZ reg add %KEY% /v WUSta*****rver /d "http://servername" /t REG_SZ set key=HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU reg add %KEY% /v AUOptions /d "3" /t REG_DWORD reg add %KEY% /v NoAutoUpdate /d "0" /t REG_DWORD reg add %KEY% /v ScheduledInstallDay /d "1" /t REG_DWORD reg add %KEY% /v ScheduledInstallTime /d "3" /t REG_DWORD reg add %KEY% /v UseWUServer /d "1" /t REG_DWORD pause Die Regitry-Einträge werden soweit auch gemacht. Mein Problem ist, dass die Automatischen Updates in der Group Policy trotzdem "Not Configured" sind und daher die Einstellungen nicht genommen werden. Kann man die Group Policy irgendwie über die .bat-Datei bearbeiten? Weil für jeden Server einzeln die GP ändern wird echd viel Arbeit Danke im Vorraus und liebe Grüße 13öack4ngle
  3. also habs doch noch hinbekommen: Dim oExcel As Object Dim dateiname As String dateiname = "d:\ex2.xlsx" Dim row As Integer Dim column As Integer Dim anrede As String row = 1 column = 1 On Error Resume Next Set oExcel = GetObject(, "Excel.Application") 'Get or open excel application If Err.Number <> 0 Then Err.Clear Set oExcel = CreateObject("Excel.Application") End If oExcel.workbooks.Open FileName:=dateiname anrede = oExcel.cells(row, column) 'MsgBox (oExcel.ActiveWorkbook.cells(1, 1).Value) 'oExcel.workbooks("c:\1.xlsx").Close savechanges:=True oExcel.Quit 'Workbooks("d:\ex1.xlsx").Close False '(False speichert nicht, True speichert) Dim oMail As Object Dim Name As String Set oMail = CreateObject("Outlook.Application") With oMail.CreateItem(0) 'Empfänger .Recipients.Add "darja.ferber@hp.com" 'Betreff .Subject = "Test-Mail" 'Nachricht .Body = "Hallo " & anrede & Chr(13) & _ "Viele Grüße..." & Chr(13) & Chr(13) 'Lesebestätigung aus .ReadReceiptRequested = False 'Dateianhang '.Attachments.Add "c:\Dok1.doc" .Send End With Set oMail = Nothing
  4. Hallo Leute, ich möchte folgendes machen: Über VBA (In Outlook) eine Excel-Tabelle öffnen (kann alternativ auch CSV sein), die erste Zelle auslesen und den Wert dieser Zelle in eine Mail mit einbinden. Leider habe ich noch absolut keine Erfahrung in VBA. ICh habe folgendes versucht - vielleicht kann mir ja jemand weiterhelfen... Sub Mail_senden() Dim xlObj As Object On Error Resume Next Set xlObj = GetObject(, "Excel.Application") 'Get or open excel application If Err.Number <> 0 Then Err.Clear Set xlObj = CreateObject("Excel.Application") End If Set xlObj = xlObj.Workbooks.Open("d:\ex1.xlsx") xlObj.Activate Name = xlObj.cells(1, 1) Dim olApp As Object Dim Name As String Set olApp = CreateObject("Outlook.Application") With olApp.CreateItem(0) 'Empfänger .Recipients.Add "name@bla.com" 'Betreff .Subject = "Test-Mail" 'Nachricht .Body = "Hallo " & Name & Chr(13) & _ "Viele Grüße..." & Chr(13) & Chr(13) 'Lesebestätigung aus .ReadReceiptRequested = False 'Dateianhang '.Attachments.Add "c:\Dok1.doc" .Send End With Set olApp = Nothing End Sub Vielen Dank für eure Hilfe, 13lackAngle
  5. Danke, das mit dem Zertifikat war ne super Idee, hat funktioniert! LG, 13lack4ngle
  6. Hallo alle zusammen, Ich soll etwas in VBA programmieren (wo unter anderem eine Mail verschickt wird) und hab noch nie was mit VBA gemacht... Jetzt habe ich also gerade angefangen mich in VBA einzuarbeiten - wollte gerade mein erstes Programm ausführen - da kommt folgende Fehlermeldung: "The macros in this project are disables. Please refer to the online help or documentation of the hostz application to determine how to enable macros." Hat irgendjemand ne Ahnung, wie ich die Makros aktiviert bekomm? Hab ma gegoogellt, aber nicht wirklich was gefunden. (Ich verwende Outlook 2007) LG, 13lack4ngle
  7. Hey Leute, hat jemand ne Ahnung, wie man sich in ner Shell anzeigen lassen kann, welche Shell man gerade verwendet? Wechseln kann man die Shell ja mit exec, oder? LG 13lack4angle

Fachinformatiker.de, 2024 by SE Internet Services

fidelogo_small.png

Schicke uns eine Nachricht!

Fachinformatiker.de ist die größte IT-Community
rund um Ausbildung, Job, Weiterbildung für IT-Fachkräfte.

Fachinformatiker.de App

Download on the App Store
Get it on Google Play

Kontakt

Hier werben?
Oder sende eine E-Mail an

Social media u. feeds

Jobboard für Fachinformatiker und IT-Fachkräfte

×
×
  • Neu erstellen...