Beiträge von Concara

#include <File.au3>
Global $i_ProcessCount = 10 ; Angabe wieviele Abfragen "gleichzeitig" gestartet werden sollen
Global $s_AusgabeDatei = "Ergebnis.txt"
Local $count = 0, $searchfor, $aResult, $i, $ii, $i_Count = 0, $aTable[$i_ProcessCount + 1], $i_ProcessStatus_Retry, $i_ProcessStatus, $a_FileRead
FileDelete(@ScriptDir & "\tempdir")
DirCreate(@ScriptDir & "\tempdir")
_FileReadToArray(@ScriptDir & "\PCListe.txt", $a_FileRead) ;Liste mit den PCs die abgefragt werden sollen

Local $i_Countdown = UBound($a_FileRead) - 1

For $i = 1 To UBound($a_FileRead) - 1
    Do
        If $i_Count = $i_ProcessCount Then
            $i_Count = 0
        EndIf
        $i_Count += 1
        Sleep(100)
    Until Not ProcessExists($aTable[$i_Count])
    $aTable[$i_Count] = Run('"' & @ScriptDir & '\Verarbeitungsprogramm.exe"' & " " & $a_FileRead[$i], @ScriptDir, @SW_HIDE, 4)
    ConsoleWrite($aTable[$i_Count] & @CRLF)
    $i_Count = 0
    $i_Countdown -= 1
    TraySetToolTip($i_Countdown & ": " & $a_FileRead[$i])
Next
;---------------------------------------------------------------------------------------
;Schleife die wartet bis die letzt Abfrage abgearbeitet wurde. Wenn die Abfrage zulange dauert wird sie einfach beendet
;---------------------------------------------------------------------------------------
Do
    Sleep(50)
    $i_ProcessStatus_Retry += 1
    $i_Count += 1
    If $i_Count > $i_ProcessCount Then
        $i_Count = 0
    EndIf
    If ProcessExists($aTable[$i_Count]) Then
        $i_ProcessStatus = 0
        ;FileWriteLine(@ScriptDir & "\processlog.txt", $i_ProcessStatus_Retry & " - " & $i & " - " & $i_ProcessStatus & @CRLF)
        If $i_ProcessStatus_Retry >= 3000 Then
            ProcessClose($aTable[$i_Count])
            $i_ProcessStatus_Retry = 0
            ContinueLoop
        Else
            $i_Count -= 1
            ContinueLoop
        EndIf
    Else
        $i_ProcessStatus = 1
        $i_ProcessStatus_Retry = 0
        ;FileWriteLine(@ScriptDir & "\processlog.txt", $i_ProcessStatus_Retry & " - " & $i & " - " & $i_ProcessStatus & @CRLF)
    EndIf
Until $i_ProcessStatus = 1 And $i_Count = $i_ProcessCount
;---------------------------------------------------------------------------------------
;Ergebnise einlesen in eine Datei
;---------------------------------------------------------------------------------------
$i_Countdown = UBound($a_FileRead) - 1
Local $hOpenLFileOS = FileOpen($s_AusgabeDatei, $FO_Append)
For $i = 1 To UBound($a_FileRead) - 1
    If FileExists(@ScriptDir & "\tempdir\" & $a_FileRead[$i] & ".txt") Then
        $aResult = FileReadToArray(@ScriptDir & "\tempdir\" & $a_FileRead[$i] & ".txt")
        If IsArray($aResult) Then
            For $ii = 0 To UBound($aResult) - 1
                FileWriteLine($hOpenLFileOS, $aResult[$ii] & @CRLF)
                ToolTip($i_Countdown & ": " & $a_FileRead[$i], 600, 1)
            Next
        EndIf
    EndIf
    $i_Countdown -= 1
Next
FileClose($hOpenLFileOS)

#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=action_go.ico
#AutoIt3Wrapper_Change2CUI=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <FileConstants.au3>

If $CMDLINE[0] = 1 Then
    Local $mem
    Local $sLogFileOS = @ScriptDir & "\tempdir\" & $CMDLINE[1] & ".txt"
    Local $sError1 = $CMDLINE[1] & ";Error 1;Host ist Offline" & @CRLF
    Local $sError2 = $CMDLINE[1] & ";Error 2;Host nicht erreichbar" & @CRLF
    Local $sError3 = $CMDLINE[1] & ";Error 3;Bad destination" & @CRLF
    Local $sError4 = $CMDLINE[1] & ";Error 4;Kein Zugriff" & @CRLF
    Local $hOpenLFileOS = FileOpen($sLogFileOS, $FO_Append)

    ConsoleWrite("Abfrage startet..." & @CRLF)
    $i_ping = Ping($CMDLINE[1], 500)
    If @error = 1 Then
        FileWriteLine($hOpenLFileOS, $sError1)
        ConsoleWrite($sError1)
    ElseIf @error = 2 Then
        FileWriteLine($hOpenLFileOS, $sError2)
        ConsoleWrite($sError2)
    ElseIf @error = 3 Then
        FileWriteLine($hOpenLFileOS, $sError3)
        ConsoleWrite($sError3)
    ElseIf @error = 4 Then
        FileWriteLine($hOpenLFileOS, $sError4)
        ConsoleWrite($sError4)
    Else
        $objWMIService = ObjGet("winmgmts:{impersonationLevel = impersonate}!\\" & $CMDLINE[1] & "\root\cimv2")
        If IsObj($objWMIService) Then
            $colItems = $objWMIService.ExecQuery("Select Capacity from Win32_PhysicalMemory", "WQL", 0x30)
            For $objItem In $colItems
                $mem += $objItem.Capacity
            Next
            ConsoleWrite($CMDLINE[1] & " Arbeitsspeicher: " & Round($mem / 1024 ^ 3, 2) & " GB" & @CRLF)
            FileWriteLine($hOpenLFileOS, $CMDLINE[1] & ";Arbeitsspeicher:;" & Round($mem / 1024 ^ 3, 2) & ";GB" & @CRLF)
        Else
            ConsoleWrite($CMDLINE[1] & " Rechner nicht ABFRAGBAR" & @CRLF)
            FileWriteLine($hOpenLFileOS, $CMDLINE[1] & ";Rechner nicht ABFRAGBAR" & @CRLF)
        EndIf
    EndIf
    FileClose($hOpenLFileOS)
    ConsoleWrite("Abfrage ende!" & @CRLF)
EndIf

#include <OutlookEX.au3>
; https://docs.microsoft.com/en-us/office/vba/api/outlook.olgrouptype
Global Const $olCustomFoldersGroup = 0 ; Identifies a user-defined navigation group, added using either the Outlook user interface or an add-in.
Global Const $olFavoriteFoldersGroup = 4 ; Identifies the Favorite Folders navigation group. This navigation group exists only within the NavigationGroups collection of a MailModule object and cannot be created in or accessed from other modules.
Global Const $olMyFoldersGroup = 1 ; Identifies a navigation group that, by default, contains any folders that are part of the local store.
Global Const $olOtherFoldersGroup = 3 ; Identifies a navigation group that, by default, contains shared folders from sources other than that of other persons.
Global Const $olPeopleFoldersGroup = 2 ; Identifies a navigation group that, by default, contains shared folders from other persons.
Global Const $olReadOnlyGroup = 6 ; Identifies a navigation group that is, by default, read-only and no folders can be added or removed from that navigation group. This does not imply the folders themselves are read-only, and write access to the folders depends on how the folders are set up.
Global Const $olRoomsGroup = 5 ; Identifies the Rooms navigation group in the Calendar navigation module.
Global Const $olPublicFoldersAllPublicFolders = 18
Global $oOL = _OL_Open()
_OL_ErrorNotify(2)
Global $aFolder = _OL_FolderAccess($oOL, "Öffentliche Ordner - Max.Mustermann@Musterland.at\Alle Öffentlichen Ordner\Mein Kalender")
ConsoleWrite(@ScriptLineNumber - 1 & ": " & @error & "-" & @extended & @CRLF)
$oNamespace = $oOL.Application.GetNamespace("MAPI")
ConsoleWrite(@ScriptLineNumber - 1 & ": " & @error & "-" & @extended & @CRLF)
$olkFolder = $oNamespace.GetDefaultFolder($olPublicFoldersAllPublicFolders)
ConsoleWrite(@ScriptLineNumber - 1 & ": " & @error & "-" & @extended & @CRLF)
$olkFolder = $olkFolder.Folders($aFolder[1])
ConsoleWrite(@ScriptLineNumber - 1 & ": " & @error & "-" & @extended & @CRLF)
$olkFolder.AddToPFFavorites
ConsoleWrite(@ScriptLineNumber - 1 & ": " & @error & "-" & @extended & @CRLF)

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=..\..\Program Files (x86)\AutoIt3\Aut2Exe\Icons\AutoIt_Old4.ico
#AutoIt3Wrapper_UseX64=y
#AutoIt3Wrapper_Res_requestedExecutionLevel=requireAdministrator
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <File.au3>
#include <AutoItConstants.au3>
Local $s_Computer = @ComputerName
While 2
    Local $line = ""
    Local $commandline = ""
    Local $id = ""
    Local $s_clean_Name = ""
    Local $s_ProductName = ""
    Local $s_LastLoggedOnUser = ""
    Local $s_Printer = ""
    Local $standardprinter = ""
    Local $s_Print = ""

    $s_Computer = InputBox("PC Name", "Enter the Computername.", $s_Computer)
    If @error = 1 Then Exit
    If Not Ping($s_Computer, 500) Then ContinueLoop
    $s_ProductName = RegRead("\\" & $s_Computer & "\HKLM\Software\Microsoft\Windows NT\CurrentVersion\", "ProductName")
    If StringInStr($s_ProductName, "XP") Or StringInStr($s_ProductName, "2000") Or StringInStr($s_ProductName, "2003") Then
        $s_LastLoggedOnUser = RegRead("\\" & $s_Computer & "\HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\", "DefaultUserName")
    Else
        $s_LastLoggedOnUser = RegRead("\\" & $s_Computer & "\HKLM\Software\Microsoft\Windows\CurrentVersion\Authentication\LogonUI\", "LastLoggedOnUser")
    EndIf
    $s_clean_Name = _Name_clean($s_LastLoggedOnUser)
    $s_clean_Name = StringLeft($s_clean_Name, 20)

    $line = ""
    $commandline = @ComSpec & ' /A /C "wmic useraccount where name="' & $s_clean_Name & '" get sid"'
    $id = Run($commandline, "", @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)
    StdinWrite($id)
    While 1
        Local $stdoutread = StdoutRead($id)
        If @error Then ExitLoop
        If $stdoutread <> "" Then
            $line &= $stdoutread
        EndIf
    WEnd
    While 1
        Local $stderrread = StderrRead($id)
        If @error Then ExitLoop
        If $stderrread <> "" Then
            $line = ""
        EndIf
    WEnd
    If $line <> "" Then
        $line = StringStripWS($line, 7)
        $line = StringReplace($line, "SID ", "")
        If StringInStr($line, " ") Then
            $line = StringTrimRight($line, StringLen($line) - StringInStr($line, " "))
        EndIf
        $line = StringStripWS($line, 8)
    EndIf

    For $i = 1 To 100
        $reg = RegEnumVal("\\" & $s_Computer & "\" & "HKEY_USERS\" & $line & "\Software\Microsoft\Windows NT\CurrentVersion\Devices", $i)
        If @error = -1 Then ContinueLoop
        If $reg <> "" Then
            $s_Printer &= $reg & @CR
        EndIf
    Next
    $standardprinter = RegRead("\\" & $s_Computer & "\" & "HKEY_USERS\" & $line & "\Software\Microsoft\Windows NT\CurrentVersion\windows", "Device")
    $standardprinter = StringSplit($standardprinter, ",")
    $standardprinter = $standardprinter[1]

    $s_Print = "User: " & $s_clean_Name & @CR & "ID: " & $line & @CR & "PC: " & $s_Computer & @CR & "Standard: " & $standardprinter & @CR & "Drucker:" & @CR & $s_Printer
    MsgBox(0, "", $s_Print)
    $s_Print = StringReplace($s_Print, @CR, ";")
    _FileWriteLog(@ScriptDir & "\drucker.csv", $s_Print)
WEnd
Func _Name_clean($s_Name_dirty)
    Local $s_Name_clean
    If StringInStr($s_Name_dirty, "@") And StringInStr($s_Name_dirty, "\") Then
        $s_Name_clean = StringTrimLeft($s_Name_dirty, StringInStr($s_Name_dirty, "\"))
        $s_Name_clean = StringTrimRight($s_Name_clean, StringLen($s_Name_clean) - StringInStr($s_Name_clean, "@") + 1)
    ElseIf StringInStr($s_Name_dirty, "\") Then
        $s_Name_clean = StringTrimLeft($s_Name_dirty, StringInStr($s_Name_dirty, "\"))
    ElseIf StringInStr($s_Name_dirty, "@") Then
        $s_Name_clean = StringTrimRight($s_Name_dirty, StringLen($s_Name_dirty) - StringInStr($s_Name_dirty, "@") + 1)
    EndIf
    Return $s_Name_clean
EndFunc   ;==>_Name_clean

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Res_Language=1031
#AutoIt3Wrapper_Res_requestedExecutionLevel=requireAdministrator
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstantsEx.au3>
#include <MsgBoxConstants.au3>
Local $computer = @ComputerName
;Global $computer = "WDEST"
Local $hGUI = GUICreate("ServiceInfo", 550, 400)
GUISetFont(9)
$tab3 = GUICtrlCreateTab(-1, -1, 533, 350)
$tab3a = GUICtrlCreateTabItem("Drucker")
GUICtrlCreateLabel("Standarddrucker: ", 20, 60)
$standardprinter = RegRead("\\" & @ComputerName & "\" & "HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\windows", "Device")
$standardprinter = StringSplit($standardprinter, ",")
$standardprinter = $standardprinter[1]
$l_standardprinter = GUICtrlCreateLabel($standardprinter, 220, 60)
GUICtrlCreateLabel("Installierte Drucker: ", 20, 100)
GUISetFont(9)
$liste = GUICtrlCreateList("", 20, 120, 350, 200)
$tabtestdruck = GUICtrlCreateButton("Testdruck", 400, 90, 100, 30)
$tabdruckereinstellung = GUICtrlCreateButton("Einstellungen", 400, 140, 100, 30)
$tabdruckereigenschaft = GUICtrlCreateButton("Eigenschaften", 400, 190, 100, 30)
$tabdruckerfenster = GUICtrlCreateButton("Warteschlange", 400, 240, 100, 30)
$tabdruckerordner = GUICtrlCreateButton("Druckerordner", 400, 290, 100, 30)
$tabbeenden = GUICtrlCreateButton("Beenden", 164, 360, 100, 30)

$sComputer = GUICtrlCreateInput($computer, 20, 25, 200, 30)
$tabAbfragen = GUICtrlCreateButton("Abfragen", 220, 25, 100, 30)


For $i = 1 To 1000
    $reg = RegEnumVal("\\" & @ComputerName & "\" & "HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Devices", $i)
    If @error = -1 Then ExitLoop
    GUICtrlSetData($liste, $reg, $standardprinter)
Next

GUISetState(@SW_SHOW, $hGUI)

Local $iMsg = 0
While 1
    $iMsg = GUIGetMsg()
    Switch $iMsg
        Case $tabAbfragen
            printerInfo()

        Case $tabtestdruck
            Testdruck()

        Case $tabdruckereinstellung
            DruckerEinstellung()

        Case $tabdruckereigenschaft
            DruckerEigenschaft()

        Case $tabdruckerfenster
            DruckerFenster()

        Case $tabdruckerordner
            druckerordner()

        Case $tabbeenden
            ExitLoop

        Case $GUI_EVENT_CLOSE
            ;MsgBox($MB_SYSTEMMODAL, "GUI Event", "You selected the Close button. Exiting...")
            ExitLoop
    EndSwitch
WEnd

Func printerInfo()
    $standardprinter = RegRead("\\" & GUICtrlRead($sComputer) & "\" & "HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\windows", "Device")
    $standardprinter = StringSplit($standardprinter, ",")
    $standardprinter = $standardprinter[1]
    GUICtrlSetData($liste, $l_standardprinter)

    For $i = 1 To 1000
        $reg = RegEnumVal("\\" & GUICtrlRead($sComputer) & "\" & "HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Devices", $i)
        If @error = -1 Then ExitLoop
        GUICtrlSetData($liste, $reg, $standardprinter)
    Next
EndFunc   ;==>printerInfo


Func druckerordner()
    Run("rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL PrintersFolder")
EndFunc   ;==>druckerordner
Func Testdruck()
    $drucker = GUICtrlRead(8)
    $instring = StringInStr($drucker, "\\")
    If $drucker == "" Then
        MsgBox(16, "TestDruck", "Es wurde kein Drucker ausgewählt!")
    ElseIf $instring == 0 Then
        RunWait("rundll32 printui.dll,PrintUIEntry /n""\\" & GUICtrlRead($sComputer) & "\" & $drucker & """ /k")
        MsgBox(64, "TestDruck", "Der TestDruck wurde an den Drucker """ & $drucker & """ abgeschickt!" & @CRLF & "Bitte überprüfen Sie den Ausdruck.")
    Else
        RunWait("rundll32 printui.dll,PrintUIEntry /n " & $drucker & " /k")
        MsgBox(64, "TestDruck", "Der TestDruck wurde an den Drucker """ & $drucker & """ abgeschickt!" & @CRLF & "Bitte überprüfen Sie den Ausdruck.")
    EndIf
EndFunc   ;==>Testdruck
Func DruckerFenster()
    $drucker = GUICtrlRead(8)
    $instring = StringInStr($drucker, "\\")
    If $drucker == "" Then
        MsgBox(16, "Drucker-Warteschlange", "Es wurde kein Drucker ausgewählt!")
    ElseIf $instring = 0 Then
        RunWait("rundll32 printui.dll,PrintUIEntry /n""\\" & GUICtrlRead($sComputer) & "\" & $drucker & """ /o")
    Else
        RunWait("rundll32 printui.dll,PrintUIEntry /n " & $drucker & " /o")
    EndIf
EndFunc   ;==>DruckerFenster
Func DruckerEigenschaft()
    $drucker = GUICtrlRead(8)
    $instring = StringInStr($drucker, "\\")
    If $drucker == "" Then
        MsgBox(16, "Drucker-Eigenschaften", "Es wurde kein Drucker ausgewählt!")
    ElseIf $instring = 0 Then
        RunWait("rundll32 printui.dll,PrintUIEntry /n""\\" & GUICtrlRead($sComputer) & "\" & $drucker & """ /p")
    Else
        RunWait("rundll32 printui.dll,PrintUIEntry /n " & $drucker & " /p")
    EndIf
EndFunc   ;==>DruckerEigenschaft
Func DruckerEinstellung()
    $drucker = GUICtrlRead(8)
    $instring = StringInStr($drucker, "\\")
    If $drucker == "" Then
        MsgBox(16, "Drucker-Einstellungen", "Es wurde kein Drucker ausgewählt!")
    ElseIf $instring = 0 Then
        RunWait("rundll32 printui.dll,PrintUIEntry /n""\\" & GUICtrlRead($sComputer) & "\" & $drucker & """ /e")
    Else
        RunWait("rundll32 printui.dll,PrintUIEntry /n " & $drucker & " /e")
    EndIf
EndFunc   ;==>DruckerEinstellung
Func Abfragen()
    ;MsgBox(0, "", GUICtrlRead($sComputer))
    printerInfo()
EndFunc   ;==>Abfragen
Func CLOSEClicked()
    Exit
EndFunc   ;==>CLOSEClicked
Func Beenden()
    Exit
EndFunc   ;==>Beenden

GUIDelete($hGUI)

#include <OutlookEX.au3>
_OL_ErrorNotify(1)
; https://docs.microsoft.com/en-us/office/vba/api/outlook.olgrouptype
Global Const $olCustomFoldersGroup = 0 ; Identifies a user-defined navigation group, added using either the Outlook user interface or an add-in.
Global Const $olFavoriteFoldersGroup = 4 ; Identifies the Favorite Folders navigation group. This navigation group exists only within the NavigationGroups collection of a MailModule object and cannot be created in or accessed from other modules.
Global Const $olMyFoldersGroup = 1 ; Identifies a navigation group that, by default, contains any folders that are part of the local store.
Global Const $olOtherFoldersGroup = 3 ; Identifies a navigation group that, by default, contains shared folders from sources other than that of other persons.
Global Const $olPeopleFoldersGroup = 2 ; Identifies a navigation group that, by default, contains shared folders from other persons.
Global Const $olReadOnlyGroup = 6 ; Identifies a navigation group that is, by default, read-only and no folders can be added or removed from that navigation group. This does not imply the folders themselves are read-only, and write access to the folders depends on how the folders are set up.
Global Const $olRoomsGroup = 5 ; Identifies the Rooms navigation group in the Calendar navigation module.
Local $oOL = _OL_Open()
$oNamespace = $oOL.Application.GetNamespace("MAPI")
ConsoleWrite(@ScriptLineNumber - 1 & ": " & @error & "-" & @extended & " $oOL.Application.GetNamespace" & @CRLF & "========================================================" & @CRLF)
$oPane = $oOL.Application.ActiveExplorer.NavigationPane
ConsoleWrite(@ScriptLineNumber - 1 & ": " & @error & "-" & @extended & " $oOL.Application.ActiveExplorer.NavigationPane " & @CRLF & "========================================================" & @CRLF)
$oModule = $oPane.Modules.GetNavigationModule($olModuleCalendar) ;$olModuleMail$olModuleCalendar
ConsoleWrite(@ScriptLineNumber - 1 & ": " & @error & "-" & @extended & " $oPane.Modules.GetNavigationModule($olModuleCalendar)" & @CRLF & "========================================================" & @CRLF)
$oGroup = $oModule.NavigationGroups.GetDefaultNavigationGroup($olFavoriteFoldersGroup)
ConsoleWrite(@ScriptLineNumber - 1 & ": " & @error & "-" & @extended & " $oModule.NavigationGroups.GetDefaultNavigationGroup($olFavoriteFoldersGroup)" & @CRLF & "========================================================" & @CRLF)
$aFolder = _OL_FolderAccess($oOL, "Öffentliche Ordner - Max.Mustermann@Musterland.com\Alle Öffentlichen Ordner\Mein Kalender") ;Max.Mustermann@Musterland.com\Kalender
ConsoleWrite(@ScriptLineNumber - 1 & ": " & @error & "-" & @extended & ' _OL_FolderAccess($oOL, "Öffentliche Ordner - Max.Mustermann@Musterland.com\Alle Öffentlichen Ordner\Mein Kalender")' & @CRLF & "========================================================" & @CRLF) ;Mein Kalender
$oNavFolder = $oGroup.NavigationFolders()
ConsoleWrite(@ScriptLineNumber - 1 & ": " & @error & "-" & @extended & " $oGroup.NavigationFolders()" & @CRLF & "========================================================" & @CRLF)
$oNavFolder.Add($aFolder[1])
ConsoleWrite(@ScriptLineNumber - 1 & ": " & @error & "-" & @extended & " $oNavFolder.Add($aFolder[1])" & @CRLF & "========================================================" & @CRLF)

12: 0-1 $oOL.Application.GetNamespace
========================================================
14: 0-0 $oOL.Application.ActiveExplorer.NavigationPane 
========================================================
16: 0-0 $oPane.Modules.GetNavigationModule($olModuleCalendar)
========================================================
COM Error Encountered in Outlook_Favoriten_hinzufuegen.au3
OutlookEX UDF version = 1.3.4.1
@AutoItVersion = 3.3.14.5
@AutoItX64 = 0
@Compiled = 0
@OSArch = X64
@OSVersion = WIN_7
Scriptline = 18
NumberHex = 80070057
Number = -2147024809
WinDescription = Falscher Parameter.
Description = 
Source = 
HelpFile = 
HelpContext = 
LastDllError = 0
========================================================
18: -2147024809-0 $oModule.NavigationGroups.GetDefaultNavigationGroup($olFavoriteFoldersGroup)
========================================================
20: 0-0 _OL_FolderAccess($oOL, "Öffentliche Ordner - Max.Mustermann@Musterland.com\Alle Öffentlichen Ordner\Mein Kalender")
========================================================
COM Error Encountered in Outlook_Favoriten_hinzufuegen.au3
OutlookEX UDF version = 1.3.4.1
@AutoItVersion = 3.3.14.5
@AutoItX64 = 0
@Compiled = 0
@OSArch = X64
@OSVersion = WIN_7
Scriptline = 22
NumberHex = 000000A9
Number = 169
WinDescription = Variable must be of type 'Object'.
Description = 
Source = 
HelpFile = 
HelpContext = 
LastDllError = 0
========================================================
22: 1-0 $oGroup.NavigationFolders()
========================================================
COM Error Encountered in Outlook_Favoriten_hinzufuegen.au3
OutlookEX UDF version = 1.3.4.1
@AutoItVersion = 3.3.14.5
@AutoItX64 = 0
@Compiled = 0
@OSArch = X64
@OSVersion = WIN_7
Scriptline = 24
NumberHex = 000000A9
Number = 169
WinDescription = Variable must be of type 'Object'.
Description = 
Source = 
HelpFile = 
HelpContext = 
LastDllError = 0
========================================================
24: 1-0 $oNavFolder.Add($aFolder[1])
========================================================

#include <OutlookEX.au3>

; *****************************************************************************
; Create test environment
; *****************************************************************************
Global $oOutlook = _OL_Open()
If @error <> 0 Then Exit MsgBox(16, "OutlookEX UDF", "Error creating a connection to Outlook. @error = " & @error & ", @extended = " & @extended)

; *****************************************************************************
; Example 1
; Get a list of all groups in the mail navigation module
; *****************************************************************************
Global $aModules = _OL_NavigationFolderGet($oOutlook, $olModuleCalendar)
If @error <> 0 Then Exit MsgBox(16, "OutlookEX UDF: _OL_NavigationFolderGet Example Script", "Error getting groups of the mail navigation module. @error = " & @error & ", @extended = " & @extended)
_ArrayDisplay($aModules, "OutlookEX UDF: _OL_NavigationFolderGet Example Script", "", 0, "|", "Navigation group|Folder name|Folder path|IsSelected?|IsRemovable?|IsSideBySide?|Position")
_OL_Close($oOutlook)

_OL_ErrorNotify(3)
;#include "..\OutlookEX.au3"
Global $oOL = _OL_Open()

$oNamespace = $oOL.Application.GetNamespace("MAPI")
$oPane = $oOL.Application.ActiveExplorer.NavigationPane
$oModule = $oPane.Modules.GetNavigationModule(1)
$oGroup = $oModule.NavigationGroups.GetDefaultNavigationGroup(2)
$aFolder = _OL_FolderAccess($oOL, "Öffentliche Ordner - Max.Mustermann@Musterland.com\Alle Öffentlichen Ordner\Mein Kalender")
_ArrayDisplay($aFolder)
$oNavFolder = $oGroup.NavigationFolders()
$oNavFolder.Add($aFolder[1])
If @error Then ConsoleWrite(@error & @CR)

_OL_Close($oOL)

; #FUNCTION# ====================================================================================================================
; Name ..........: _OL_ItemCopy
; Description ...: Copies an item (contact, appointment ...) using the specified EntryID and StoreID.
; Syntax.........: _OL_ItemCopy($oOL, $vItem[, $sStoreID = Default[, $vTargetFolder = ""]])
; Parameters ....: $oOL           - Outlook object returned by a preceding call to _OL_Open()
;                  $vItem         - EntryID or object of the item to copy
;                  $sStoreID      - Optional: StoreID of the source store as returned by _OL_FolderAccess (default = users mailbox)
;                  $vTargetFolder - Optional: Target folder (object) as returned by _OL_FolderAccess or full name of folder
; Return values .: Success - Item object of the copied item
;                  Failure - Returns 0 and sets @error:
;                  |1 - No or an invalid item has been specified
;                  |2 - Error accessing the specified target folder. See @extended for errorcode returned by _OL_FolderAccess
;                  |3 - Source and target folder are of different types
?;                  |4 - Error returned by _OL_ItemDelete. @extended is set to the error as returned by _OL_ItemDelete
?;                  |5 - Error moving the copied item to the target folder. @extended is set to the COM error
; Author ........: water
; Modified ......:
; Remarks .......: If $vTargetFolder is omitted the copy is created in the same folder as the source item
; Related .......:
; Link ..........:
; Example .......: Yes
; ===============================================================================================================================
Func _OL_ItemCopy($oOL, $vItem, $sStoreID = Default, $vTargetFolder = "")

    If Not IsObj($vItem) Then
        If StringStripWS($vItem, 3) = "" Then Return SetError(1, 0, 0)
        $vItem = $oOL.Session.GetItemFromID($vItem, $sStoreID)
        If @error Then Return SetError(1, @error, 0)
    EndIf
    Local $oSourceFolder = $vItem.Parent
    If Not IsObj($vTargetFolder) Then
        If StringStripWS($vTargetFolder, 3) = "" Or $vTargetFolder = Default Then
            $vTargetFolder = $oSourceFolder
        Else
            Local $aTemp = _OL_FolderAccess($oOL, $vTargetFolder)
            If @error Then Return SetError(2, @error, 0)
            $vTargetFolder = $aTemp[1]
        EndIf
    EndIf
    If $oSourceFolder.DefaultItemType <> $vTargetFolder.DefaultItemType Then Return SetError(3, 0, 0)
    Local $vItemCopied = $vItem.Copy
    $vItemCopied.Save()
    ; Move the copied item to another folder
    If $oSourceFolder <> $vTargetFolder Then
        $vItemCopied = _OL_ItemMove($oOL, $vItemCopied, $sStoreID, $vTargetFolder)
        If @error Then
?            Local $sError = @error
?            _OL_ItemDelete($oOL, $vItemCopied, $sStoreID, True)
?            If @error Then Return SetError(4, @error, 0)
?            Return SetError(5, $sError, 0)
?        EndIf
    EndIf
    Return $vItemCopied

EndFunc   ;==>_OL_ItemCopy

#include <OutlookEx.au3>
#include <Array.au3>
#include <Date.au3>

$oOL = _OL_Open()
Global $sStart = "2018/01/01 00:01"
Global $sEnd = "2018/23/12 23:59"
Global $sQuellKalender = "*\Kalender"
Global $sZielKalender = "*\synctest"
Local $i
Local $ii
Local $aItems2
Local $aItems
Local $sInputStartDatum
Local $sInputEndDatum

Local $aConfig = IniReadSection(@ScriptDir & "\config.ini", "Einstellungen")
If @error Then
    MsgBox(16, "", "Keine config.ini Datei vorhanden, es wird eine Beispiel Datei erzeugt." & @CR & "Nach klick auf Ok wird das Programm neu gestartet.")
    IniWrite(@ScriptDir & "\config.ini", "Einstellungen", "StartDatum", _NowDate())
    IniWrite(@ScriptDir & "\config.ini", "Einstellungen", "EndDatum", _DateTimeFormat(_DateAdd("h", 720, _NowCalc()), 2))
    IniWrite(@ScriptDir & "\config.ini", "Einstellungen", "QuellKalender", @UserName & "\Kalender")
    IniWrite(@ScriptDir & "\config.ini", "Einstellungen", "ZielKalender", @UserName & "\synctest")
    If FileExists(@ScriptDir & "\config.ini") Then
        Run(@ScriptDir & "\" & @ScriptName)
    Else
        MsgBox(16, "", "Die INI Datei konnte nicht erstellt werden." & @CR & "Das Programm wird beendet.")
    EndIf
    Exit
Else
    $sQuellKalender = $aConfig[3][1]
    $sZielKalender = $aConfig[4][1]
    ;_ArrayDisplay($aConfig)
EndIf

$sInputStartDatum = InputBox("Startdatum", "Bitte geben sie das Startdatum ein ab wann die Kalendereinträge kopiert werden sollen.", $aConfig[1][1], " M10")
If @error Then Exit
IniWrite(@ScriptDir & "\config.ini", "Einstellungen", "StartDatum", $sInputStartDatum)
$sInputStartDatum &= " 00:01"
$sStart = _DateTime($sInputStartDatum)
ConsoleWrite($sInputStartDatum & @CR)
$sInputEndDatum = InputBox("Enddatum", "Bitte geben sie das Enddatum ein bis zu dem die Kalendereinträge kopiert werden sollen.", $aConfig[2][1], " M10")
If @error Then Exit
IniWrite(@ScriptDir & "\config.ini", "Einstellungen", "EndDatum", $sInputEndDatum)
$sInputEndDatum &= " 23:59"
$sEnd = _DateTime($sInputEndDatum)
_OL_FolderAccess($oOL, $sQuellKalender)
If @error = 4 Then
    MsgBox(16, "", "Der angegebene Ordner " & $sQuellKalender & " konnte nicht gefunden werden." & @CR & "Das Programm wird beendet.")
    Exit
EndIf
$aItems = _OL_AppointmentGet($oOL, $sQuellKalender, $sStart, $sEnd)
If Not IsArray($aItems) Then
    MsgBox(16, "Fehler", "Keine Kalendereinträge gefunden!", 30)
    Exit
EndIf
_ArrayDisplay($aItems, $sQuellKalender)
_OL_FolderAccess($oOL, $sZielKalender)
If @error = 4 Then
    MsgBox(16, "", "Der angegebene Ordner " & $sZielKalender & " konnte nicht gefunden werden." & @CR & "Das Programm wird beendet.")
    Exit
EndIf
$aItems2 = _OL_AppointmentGet($oOL, $sZielKalender, $sStart, $sEnd)
If IsArray($aItems2) Then
    For $i = UBound($aItems) - 1 To 0 Step -1
        For $ii = 0 To UBound($aItems2) - 1
            If $aItems[$i][3] & $aItems[$i][4] & $aItems[$i][5] = $aItems2[$ii][3] & $aItems2[$ii][4] & $aItems2[$ii][5] Then
                ConsoleWrite($aItems[$i][3] & $aItems[$i][4] & $aItems[$i][5] & " - " & $aItems2[$ii][3] & $aItems2[$ii][4] & $aItems2[$ii][5] & @CR)
                _ArrayDelete($aItems, $i)
                ExitLoop
            EndIf
        Next
    Next
EndIf
_ArrayDisplay($aItems, "Kalendereinträge die in den Zielkalender" & $sZielKalender & " kopiert werden.")
For $i = 0 To UBound($aItems) - 1
    _OL_ItemCopy($oOL, $aItems[$i][0], "", $sZielKalender)
    If @error Then
        ConsoleWrite("Fehler: " & @error & " erweiterter Fehler: " & @extended)
    EndIf
Next

Func _DateTime($_sDateTime)
    Return StringFormat("%4d/%02d/%02d %02d:%02d", StringMid($_sDateTime, 7, 4), StringLeft($_sDateTime, 2), StringMid($_sDateTime, 4, 2), StringMid($_sDateTime, 12, 2), StringRight($_sDateTime, 2))
EndFunc   ;==>_DateTime