run - Befehl mit Fehlermeldung

    • Offizieller Beitrag

    Hi,

    schreib doch mal eine Test-Methode.

    [autoit]

    Global $sharePath = "\\view"

    [/autoit][autoit][/autoit][autoit]

    test($sharePath)

    [/autoit][autoit][/autoit][autoit]

    Func test($share)
    For $i = 97 To 122
    If DriveMapGet(Chr($i) & ":") = $share Then
    MsgBox(64, "Installation", "Das Laufwerk (" & Chr($i) & ": )wurde gefunden")
    ExitLoop
    Else
    SplashTextOn("Nicht gefunden!", "Leider nicht gefunden unter --> " & Chr($i) & ": " & @LF & _
    DriveMapGet(Chr($i) & ":") & " ist nicht = " & $share, 500, 60, 0, 0, Default, Default, 14, 600)
    Sleep(1000)
    EndIf
    Next
    EndFunc ;==>test

    [/autoit]

    Vielleicht hilft dir dies, den Fehler zu erkennen. Einfach erstmal das Laufwerk verbinden und dann gucken :musik1:

    So long,

    Mega

    Danke. Danke.

    Bei der Eingabe in meine eigentliches Script will es wieder nicht. Es erscheint keine Fehlermeldung und das Script bricht einfach ab.

    Spoiler anzeigen
    [autoit]

    Global $share = "\\172.29.51.185\Install" ;festlegen der Variablen als Global zur Nutzung in allen Funktionen
    ; Initialization of the variables

    [/autoit] [autoit][/autoit] [autoit]

    ;--------------- Functions ---------------

    Func Mappen($share);Laufwerk B:\172.29.51.185\Install wird gemapped
    WinMinimizeAll() ;alle Fenster minimieren
    DriveMapAdd("*","\\172.29.51.185\Install", "install", "install")

    For $i = 97 To 122
    If DriveMapGet(Chr($i) & ":") = $share Then
    MsgBox(64, "Installation", "Das Laufwerk (" & Chr($i) & ": )wurde gefunden")
    ExitLoop
    Else
    SplashTextOn("Nicht gefunden!", "Leider nicht gefunden unter --> " & Chr($i) & ": " & @LF & _
    DriveMapGet(Chr($i) & ":") & " ist nicht = " & $share, 500, 60, 0, 0, Default, Default, 14, 600)
    Sleep(1000)
    EndIf
    Next
    EndFunc ;==>Mappen

    [/autoit] [autoit][/autoit] [autoit]

    Func Icons();installiert alle nötigen Anwendungen
    WinMinimizeAll()

    FileCopy(& Chr($i) &":\IE\*.*", "C:\Dokumente und Einstellungen\All Users\Desktop")
    FileCopy(& Chr($i) &":\IE\ICO\*.*", "C:\Programme\Internet Explorer\*.*")
    MsgBox(64, "Installation", "Die Icons wurden nun auf dem Desktop installiert.")

    [/autoit]

    Bestimmt ist es wieder etwas ganz einfaches, was ich vergessen habe. Ich werd wohl noch eine Menge lernen müssen.

    Einmal editiert, zuletzt von puni4 (10. November 2006 um 16:39)

    Ich poste am besten mal mein ganzes Script (aber noch in Bearbeitung), um den Zusammenhang besser aufzeigen zu können.

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>

    [/autoit] [autoit][/autoit] [autoit]

    Opt("GUIOnEventMode",1)
    GUICreate("Admin-Einstellungen", 585, 510, 217, 127)
    GUISetBkColor(0x656C81); Hintergrundfarbe für die GUI

    [/autoit] [autoit][/autoit] [autoit]

    $Button1 = GUICtrlCreateButton("mappen \\172.29.51.185\Install", 350, 25, 220, 25, 0); Lw B:\172.29.51.185\Install wird gemapped
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    GUICtrlSetOnEvent($Button1,"Mappen")

    [/autoit] [autoit][/autoit] [autoit]

    $Button2 = GUICtrlCreateButton("IE-Icons kopieren", 350, 55, 220, 25, 0)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    GUICtrlSetOnEvent($Button2,"Icons")

    [/autoit] [autoit][/autoit] [autoit]

    $Button3 = GUICtrlCreateButton("Host On Demand installieren", 350, 85, 220, 25, 0)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    GUICtrlSetOnEvent($Button3,"Host_On_Demand")

    [/autoit] [autoit][/autoit] [autoit]

    $Button4 = GUICtrlCreateButton("IE-Reiter ausblenden", 350, 115, 220, 25, 0)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    GUICtrlSetOnEvent($Button4,"Ausblenden")

    [/autoit] [autoit][/autoit] [autoit]

    $Button5 = GUICtrlCreateButton("IE-Reiter einblenden", 350, 145, 220, 25, 0)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    GUICtrlSetOnEvent($Button5,"Einblenden")

    [/autoit] [autoit][/autoit] [autoit]

    $Button6 = GUICtrlCreateButton("Recent Docs ausschalten", 350, 175, 220, 25, 0)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    GUICtrlSetOnEvent($Button6,"RecentOf")

    [/autoit] [autoit][/autoit] [autoit]

    $Button7 = GUICtrlCreateButton("Recent Docs einschalten", 350, 205, 220, 25, 0)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    GUICtrlSetOnEvent($Button7,"RecentOn")

    [/autoit] [autoit][/autoit] [autoit]

    $Button8 = GUICtrlCreateButton("Proxy auf Arcor ändern", 350, 235, 220, 25, 0)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    GUICtrlSetOnEvent($Button8,"Proxy")

    [/autoit] [autoit][/autoit] [autoit]

    $Button9 = GUICtrlCreateButton("Admin freischalten", 350, 265, 220, 25, 0)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    GUICtrlSetOnEvent($Button9,"Admin")

    [/autoit] [autoit][/autoit] [autoit]

    $Button10 = GUICtrlCreateButton("Senden an freischalten", 350, 295, 220, 25, 0)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    GUICtrlSetOnEvent($Button10,"Senden")

    [/autoit] [autoit][/autoit] [autoit]

    $Button11 = GUICtrlCreateButton("SUS-Service", 350, 325, 220, 25, 0)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    GUICtrlSetOnEvent($Button11,"SUS_Service")

    [/autoit] [autoit][/autoit] [autoit]

    $Button12 = GUICtrlCreateButton("Irfanview installieren", 350, 355, 220, 25, 0)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    GUICtrlSetOnEvent($Button12,"Irfanview")

    [/autoit] [autoit][/autoit] [autoit]

    $Button13 = GUICtrlCreateButton("FreePDF_XP installieren", 350, 385, 220, 25, 0)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    GUICtrlSetOnEvent($Button13,"FreePDF")

    [/autoit] [autoit][/autoit] [autoit]

    $Button14 = GUICtrlCreateButton("F-Secure installieren", 350, 415, 220, 25, 0)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    GUICtrlSetOnEvent($Button14,"F_Secure")

    [/autoit] [autoit][/autoit] [autoit]

    $Button15 = GUICtrlCreateButton("Office-Update", 350, 445, 220, 25, 0)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    GUICtrlSetOnEvent($Button15,"Update")

    [/autoit] [autoit][/autoit] [autoit]

    $Button16 = GUICtrlCreateButton("SVG-Viewer installieren", 350, 475, 220, 25, 0)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    GUICtrlSetOnEvent($Button16,"SVG_Viewer")

    [/autoit] [autoit][/autoit] [autoit]

    $Button98 = GUICtrlCreateButton("Installation ", 15, 56, 220, 81, 0)
    GUICtrlSetFont(-1, 20, 800, 0, "MS Sans Serif")
    GUICtrlSetOnEvent($Button98,"Installation")

    [/autoit] [autoit][/autoit] [autoit]

    $Button99 = GUICtrlCreateButton("EXIT", 15, 385, 220, 25, 0)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    GUICtrlSetOnEvent($Button99,"OnExit")

    [/autoit] [autoit][/autoit] [autoit]

    GUISetOnEvent($GUI_EVENT_CLOSE,"OnExit")

    [/autoit] [autoit][/autoit] [autoit]

    GUISetState() ; display the GUI

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    Sleep (1000)
    WEnd

    [/autoit] [autoit][/autoit] [autoit]

    Dim $Username = "Administrator"
    Dim $Password = ""

    Global $share = "\\172.29.51.185\Install" ;festlegen der Variablen als Global zur Nutzung in allen Funktionen
    ; Initialization of the variables

    [/autoit] [autoit][/autoit] [autoit]

    Mappen($share)

    [/autoit] [autoit][/autoit] [autoit]

    ;--------------- Functions ---------------

    Func Mappen($share);Laufwerk B:\172.29.51.185\Install wird gemapped
    WinMinimizeAll() ;alle Fenster minimieren
    DriveMapAdd("*","\\172.29.51.185\Install", "install", "install")

    For $i = 97 To 122
    If DriveMapGet(Chr($i) & ":") = $share Then
    MsgBox(64, "Installation", "Das Laufwerk (" & Chr($i) & ": )wurde gefunden")
    ExitLoop
    Else
    SplashTextOn("Nicht gefunden!", "Leider nicht gefunden unter --> " & Chr($i) & ": " & @LF & _
    DriveMapGet(Chr($i) & ":") & " ist nicht = " & $share, 500, 60, 0, 0, Default, Default, 14, 600)
    Sleep(1000)
    EndIf
    Next
    EndFunc ;==>Mappen

    Func Icons();installiert alle nötigen Anwendungen
    WinMinimizeAll()

    FileCopy(& Chr($i) &":\IE\*.*", "C:\Dokumente und Einstellungen\All Users\Desktop")
    FileCopy(& Chr($i) &":\IE\ICO\*.*", "C:\Programme\Internet Explorer\*.*")
    MsgBox(64, "Installation", "Die Icons wurden nun auf dem Desktop installiert.")

    EndFunc

    Func Host_On_Demand();installiert die Verknüpfung zu Host On Demand
    WinMinimizeAll()

    FileCopy("B:\Host on Demand\*.*", "C:\Dokumente und Einstellungen\All Users\Desktop")
    MsgBox(64, "Installation", "Host On Demand wurde installiert.")

    EndFunc

    Func Ausblenden();blendet die Reiter des IE aus (Erweitert, Programme, Verbindungen)
    WinMinimizeAll()
    $Username = "Administrator"
    $Password = ""
    ; Set the RunAs parameters to use local adminstrator account
    RunAsSet($Username, @Computername, $Password)
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main","Start Page","REG_SZ","http://www.bahn-net.db.de/")
    RegWrite("HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Control Panel","ConnectionsTab","REG_DWORD","1")
    RegWrite("HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Control Panel","ProgramsTab","REG_DWORD","1")
    RegWrite("HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Control Panel","AdvancedTab","REG_DWORD","1")
    RegWrite("HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Control Panel","HomePage","REG_DWORD","1")
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","MigrateProxy","REG_DWORD","1")
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","EnableHttp1_1","REG_DWORD","1")
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","ProxyEnable","REG_DWORD","1")
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","ProxyHttp1.1","REG_DWORD","1")
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","ProxyServer","REG_SZ","10.14.5.131:8000")
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","ProxyOverride","REG_SZ","*.bahn-net.db.de;*.bku-web.db.de;*.dbportal.db.de;*.dibs.db.de;*.personaldienste.db.de;*.traineeclub.db.de;*.dzpsecure.db.de;mvs9.rzffm.db.de;172.*;192.*;190.*;tlc-ffs098.tlc.db.de;*.db.de")
    MsgBox(64, "Installation", "Es werden die Reiter Verbindungen, Erweitert, Programme ausgeblendet.")
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func Einblenden();blendet die Reiter des IE wieder ein
    WinMinimizeAll()
    $Username = "Administrator"
    $Password = ""
    ; Set the RunAs parameters to use local adminstrator account
    RunAsSet($Username, @Computername, $Password)
    RegDelete("HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Control Panel","ConnectionsTab")
    RegDelete("HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Control Panel","ProgramsTab")
    RegDelete("HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Control Panel","AdvancedTab")
    RegDelete("HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Control Panel","HomePage")
    MsgBox(64, "Installation", "Es werden nun wieder alle Reiter eingeblendet.")
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func RecentOf();schaltet den Ordner "Dokumente" im Startmenü aus
    WinMinimizeAll()
    $Username = "Administrator"
    $Password = ""
    ; Set the RunAs parameters to use local adminstrator account
    RunAsSet($Username, @Computername, $Password)
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoDriveTypeAutoRun", "REG_BINARY", "91000000")
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "ClearRecentDocsOnExit", "REG_DWORD", "1")
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoRecentDocsMenu", "REG_DWORD", "1")
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoRecentDocsHistory", "REG_DWORD", "1")
    MsgBox(64, "Installation", "Es wurden alle Daten erfolgreich geändert.")
    EndFunc
    5
    Func RecentOn();schaltet den Ordner "Dokumente" im Startmenü wieder frei
    WinMinimizeAll()
    $Username = "Administrator"
    $Password = ""
    ; Set the RunAs parameters to use local adminstrator account
    RunAsSet($Username, @Computername, $Password)
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoRecentDocsMenu", "REG_DWORD", "0")
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoRecentDocsHistory", "REG_DWORD", "0")
    MsgBox(64, "Installation", "Es wurden alle Daten erfolgreich geändert.")
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func Proxy();schaltet den Proxy auf Arcor um
    WinMinimizeAll()
    $Username = "Administrator"
    $Password = ""
    ; Set the RunAs parameters to use local adminstrator account
    RunAsSet($Username, @Computername, $Password)
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","MigrateProxy","REG_DWORD","1")
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","EnableHttp1_1","REG_DWORD","1")
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","ProxyEnable","REG_DWORD","1")
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","ProxyHttp1.1","REG_DWORD","1")
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","ProxyServer","REG_SZ","wwwproxy.arcor.db.de:8000")
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","ProxyOverride","REG_SZ","*.bahn-net.db.de;*.bku-web.db.de;*.dbportal.db.de;*.dibs.db.de;*.personaldienste.db.de;*.traineeclub.db.de;*.dzpsecure.db.de;mvs9.rzffm.db.de;172.*;192.*;190.*;tlc-ffs098.tlc.db.de;*.db.de")
    MsgBox(64, "Installation", "Es wurde der Proxy - Arcor - erfolgreich geändert.")

    [/autoit] [autoit][/autoit] [autoit]

    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func Admin();schaltet den Admin im Startmenü frei
    WinMinimizeAll()
    $Username = "Administrator"
    $Password = ""
    ; Set the RunAs parameters to use local adminstrator account
    RunAsSet($Username, @Computername, $Password)
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\SpecialAccounts\UserList", "Administrator", "REG_DWORD", "1")
    MsgBox(64, "Installation", "Die Anmeldung des Administrator wurde erfolgreich geändert.")
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func Senden();schaltet die Option in Office für das "Senden an" frei
    WinMinimizeAll()
    $Username = "Administrator"
    $Password = ""
    ; Set the RunAs parameters to use local adminstrator account
    RunAsSet($Username, @Computername, $Password)
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows Messaging Subsystem", "InstallCmd", "REG_SZ", "rundll32 setupapi,InstallHinfSection MSMAIL 132 msmail.inf")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows Messaging Subsystem", "MAPI", "REG_SZ", "1")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows Messaging Subsystem", "CMC", "REG_SZ", "1")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows Messaging Subsystem", "CMCDLLNAME", "REG_SZ", "Mapi.dll")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows Messaging Subsystem", "CMCDLLNAME32", "REG_SZ", "Mapi32.dll")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows Messaging Subsystem", "MAPIX", "REG_SZ", "1")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows Messaging Subsystem", "MAPIXVER", "REG_SZ", "1.0.0.1")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows Messaging Subsystem", "OLEMessaging", "REG_SZ", "1")

    [/autoit] [autoit][/autoit] [autoit]

    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows Messaging Subsystem\MSMapiApps", "inetsw95.exe", "REG_SZ", "")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows Messaging Subsystem\MSMapiApps", "choosusr.dll", "REG_SZ", "")

    MsgBox(64, "Installation", "Es wird zukünftig die Option Senden an angezeigt.")
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func SUS_Service();trägt den SUS-Service ein und die Einstellungen des Windowas-Update ein
    WinMinimizeAll()
    $Username = "Administrator"
    $Password = ""
    ; Set the RunAs parameters to use local adminstrator account
    RunAsSet($Username, @Computername, $Password)
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate", "WUServer", "REG_SZ", "http://sus.bahn-net.db.de")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate", "WUStatusServer", "REG_SZ", "http://sus.bahn-net.db.de")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU", "NoAutoUpdate", "REG_DWORD", "0")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU", "AUOptions", "REG_DWORD", "4")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU", "ScheduledInstallDay", "REG_DWORD", "0")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU", "ScheduledInstallTime", "REG_DWORD", "C")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU", "DetectionFrequencyEnabled", "REG_DWORD", "1")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU", "DetectionFrequency", "REG_DWORD", "14")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU", "UseWUServer", "REG_DWORD", "1")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU", "RescheduleWaitTimeEnabled", "REG_DWORD", "1")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU", "RescheduleWaitTime", "REG_DWORD", "5")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU", "NoAutoRebootWithLoggedOnUsers", "REG_DWORD", "1")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU", "AutoInstallMinorUpdates", "REG_DWORD", "1")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU", "RebootWarningTimeoutEnabled", "REG_DWORD", "1")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU", "RebootWarningTimeout", "REG_DWORD", "5")

    MsgBox(64, "Installation", "Es wurde der SUS-Service aktiviert.")
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func Irfanview();installiert Irfanview
    WinMinimizeAll()
    $Username = "Administrator"
    $Password = ""
    ; Set the RunAs parameters to use local adminstrator account
    RunAsSet($Username, @Computername, $Password)
    ;Irfanview
    ShellExecute ("B:\Irvanview\iview398.exe")
    ; Setup starten
    Send("{ENTER}")
    ; Willkommen zur IrfanView Installation!
    WinWait("IrfanView Setup")
    WinActivate("IrfanView Setup")
    WinWaitActive("IrfanView Setup")
    ControlClick("IrfanView Setup", "Create IrfanView Thu&mbnails shortcut on the Desktop", "Button3")
    ControlClick("IrfanView Setup", "For &all users", "Button6")
    Send("!W")
    ;Was ist neu in dieser Version?
    WinWait("IrfanView Setup")
    WinActivate("IrfanView Setup")
    WinWaitActive("IrfanView Setup")
    Send("W")
    ; Möchten Sie Dateien mit IrfanView verknüpfen?
    WinWait("IrfanView Setup")
    WinActivate("IrfanView Setup")
    WinWaitActive("IrfanView Setup")
    ; Nur Bilder markieren
    ControlClick("IrfanView Setup", "Images only", "Button1")
    Send("W")
    ; Google Toolbar und Google Desktop abschalten
    WinWait("IrfanView Setup")
    WinActivate("IrfanView Setup")
    WinWaitActive("IrfanView Setup")
    ; Google Toolbar
    ControlClick("IrfanView Setup", "Google &Toolbar for Internet Explorer", "Button1")
    ; Google Desktop
    ControlClick("IrfanView Setup", "Google Desktop &Search", "Button2")
    Send("W")
    ; Bereit zum Installieren!
    WinWait("IrfanView Setup")
    WinActivate("IrfanView Setup")
    WinWaitActive("IrfanView Setup")
    Send("W")
    ; Verknüpfungen ändern
    WinWait("IrfanView Setup")
    WinActivate("IrfanView Setup")
    WinWaitActive("IrfanView Setup")
    Send("{ALTDOWN}j{ALTUP}")
    ; Einrichtung abgeschlossen!
    WinWait("IrfanView Setup")
    WinActivate("IrfanView Setup")
    WinWaitActive("IrfanView Setup")
    ; Anschließend ...
    ; IrfanView &FAQs abschalten
    ControlClick("IrfanView Setup", "Open IrfanView &FAQs help page", "Button1")
    ; IrfanView nicht starten
    Send("S")
    ; Setup beenden
    ControlClick("IrfanView Setup", "Done", "Button21")
    ;Irfanview registrieren und alle Einstellungen aus der *.ini übernehmen
    FileCopy("B:\Irvanview\*.ini", "C:\Programme\IrfanView\*.*")

    MsgBox(64, "Installation", "Irfanview wurde nun installiert.")

    [/autoit] [autoit][/autoit] [autoit]

    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func FreePDF() ;installiert FreePDF_XP
    WinMinimizeAll()
    $Username = "Administrator"
    $Password = ""
    ; Set the RunAs parameters to use local adminstrator account
    RunAsSet($Username, @Computername, $Password)
    ;FreePDF_XP
    ;Ghostscript-Instalation
    ShellExecute ("B:\FreePDF\gs853w32.exe")
    WinWait("WinZip Self-Extractor - gs853w32.exe","This installs AFPL G")
    ;wartet, bis das Install-Fenster erscheint
    If Not WinActive("WinZip Self-Extractor - gs853w32.exe","This installs AFPL G") Then WinActivate("WinZip Self-Extractor - gs853w32.exe","This installs AFPL G")
    WinWaitActive("WinZip Self-Extractor - gs853w32.exe","This installs AFPL G")
    Send("{ALTDOWN}s{ALTUP}");Alt-S für Install
    WinWait("AFPL Ghostscript Setup","AFPL Ghostscript 8.5")
    If Not WinActive("AFPL Ghostscript Setup","AFPL Ghostscript 8.5") Then WinActivate("AFPL Ghostscript Setup","AFPL Ghostscript 8.5")
    WinWaitActive("AFPL Ghostscript Setup","AFPL Ghostscript 8.5")
    ;ändert den Programmpfad ab
    ControlSetText("AFPL Ghostscript Setup", "Install to directory", "Edit1", @ProgramFilesDir & "\FreePDF_XP\")
    ;markiert "all Users"
    ControlClick("AFPL Ghostscript Setup", "All Users", "Button3")
    Send("{ENTER}")
    ;schließt das Fenster für die Installation im Explorer
    WinWait("C:\Dokumente und Einstellungen\All Users\Startmenü\Programme\Ghostscript","FolderView")
    If Not WinActive("C:\Dokumente und Einstellungen\All Users\Startmenü\Programme\Ghostscript","FolderView") Then WinActivate("C:\Dokumente und Einstellungen\All Users\Startmenü\Programme\Ghostscript","FolderView")
    WinWaitActive("C:\Dokumente und Einstellungen\All Users\Startmenü\Programme\Ghostscript","FolderView")
    Send("{ALTDOWN}{F4}{ALTUP}")

    ;FreePDF_XP-Instalation
    run ("B:\FreePDF\FreePDFXP3.07.EXE", "")
    WinWait("B:\FreePDF","FolderView")
    If Not WinActive("B:\FreePDF","FolderView") Then WinActivate("B:\FreePDF","FolderView")
    WinWaitActive("B:\FreePDF","FolderView")
    Send("{ALTDOWN}s{ALTUP}")
    ;Beendigung Installation
    WinWait("FreePDF XP 3.07","Frame2")
    If Not WinActive("FreePDF XP 3.07","Frame2") Then WinActivate("FreePDF XP 3.07","Frame2")
    WinWaitActive("FreePDF XP 3.07","Frame2")
    Send("{ALTDOWN}e{ALTUP}")

    [/autoit] [autoit][/autoit] [autoit]

    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func F_Secure();installiert F-Secure
    ;Installation von F-Secure
    WinMinimizeAll()
    $Username = "Administrator"
    $Password = ""
    ; Set the RunAs parameters to use local adminstrator account
    RunAsSet($Username, @Computername, $Password)
    ;Installation von F-Secure
    ShellExecute ("B:\F-Secure AntiVirus\fsavwks544_eng.exe")
    WinWait("F-Secure Anti-Virus(tm) for Workstation 5.44 - InstallShield Wizard","< &Back")
    If Not WinActive("F-Secure Anti-Virus(tm) for Workstation 5.44 - InstallShield Wizard","< &Back") Then WinActivate("F-Secure Anti-Virus(tm) for Workstation 5.44 - InstallShield Wizard","< &Back")
    WinWaitActive("F-Secure Anti-Virus(tm) for Workstation 5.44 - InstallShield Wizard","< &Back")
    Send("n")
    WinWait("Wählen Sie eine Setup-Sprache aus","Wählen Sie die Sprac")
    If Not WinActive("Wählen Sie eine Setup-Sprache aus","Wählen Sie die Sprac") Then WinActivate("Wählen Sie eine Setup-Sprache aus","Wählen Sie die Sprac")
    WinWaitActive("Wählen Sie eine Setup-Sprache aus","Wählen Sie die Sprac")
    Send("{ENTER}")
    WinWait("Willkommen bei F-Secure Setup","Willkommen bei F-Sec")
    If Not WinActive("Willkommen bei F-Secure Setup","Willkommen bei F-Sec") Then WinActivate("Willkommen bei F-Secure Setup","Willkommen bei F-Sec")
    WinWaitActive("Willkommen bei F-Secure Setup","Willkommen bei F-Sec")
    Send("{ALTDOWN}w{ALTUP}")
    WinWait("Software-Lizenzvereinbarung","Ich &akzeptiere die ")
    If Not WinActive("Software-Lizenzvereinbarung","Ich &akzeptiere die ") Then WinActivate("Software-Lizenzvereinbarung","Ich &akzeptiere die ")
    WinWaitActive("Software-Lizenzvereinbarung","Ich &akzeptiere die ")
    Send("{ALTDOWN}a{ALTUP}")
    Send("{ALTDOWN}w{ALTUP}")
    WinWait("F-Secure Setup","")
    If Not WinActive("F-Secure Setup","") Then WinActivate("F-Secure Setup","")
    WinWaitActive("F-Secure Setup","")
    ;Seriennummer F-Secure
    Send("EQ2U")
    Send("TKE9")
    Send("N76U")
    Send("08DF")
    Send("5V46")
    ;Setup weiter installieren
    WinWait("F-Secure Setup","")
    If Not WinActive("F-Secure Setup","") Then WinActivate("F-Secure Setup","")
    WinWaitActive("F-Secure Setup","")
    Send("{ALTDOWN}w{ALTUP}")
    WinWait("F-Secure Anti-Virus 5.44 Setup","")
    If Not WinActive("F-Secure Anti-Virus 5.44 Setup","") Then WinActivate("F-Secure Anti-Virus 5.44 Setup","")
    WinWaitActive("F-Secure Anti-Virus 5.44 Setup","")
    Send("{ALTDOWN}w{ALTUP}")
    WinWait("F-Secure Setup","")
    If Not WinActive("F-Secure Setup","") Then WinActivate("F-Secure Setup","")
    WinWaitActive("F-Secure Setup","")
    Send("{ALTDOWN}w{ALTUP}")
    Send("{ALTDOWN}w{ALTUP}")
    Send("{ALTDOWN}w{ALTUP}")
    WinWait("F-Secure Anti-Virus 5.44 Setup","")
    If Not WinActive("F-Secure Anti-Virus 5.44 Setup","") Then WinActivate("F-Secure Anti-Virus 5.44 Setup","")
    ;deaktiviert die Infodatei
    ControlClick("F-Secure Setup", "&Infodatei anzeigen", "Button2")
    WinWait("F-Secure Anti-Virus 5.44 Setup","")
    If Not WinActive("F-Secure Anti-Virus 5.44 Setup","") Then WinActivate("F-Secure Anti-Virus 5.44 Setup","")
    Send("{ALTDOWN}f{ALTUP}")

    [/autoit] [autoit][/autoit] [autoit]

    WinWait("Aktualisierung von F-Secure Anti-Virus","")
    If Not WinActive("Aktualisierung von F-Secure Anti-Virus","") Then WinActivate("Aktualisierung von F-Secure Anti-Virus","")
    Send("{ALTDOWN}a{ALTUP}")
    WinWait("F-Secure Anti-Virus","")
    If Not WinActive("F-Secure Anti-Virus","&Zeitraum zum Auffordern für Aktualisierung:") Then WinActivate("F-Secure Anti-Virus","&Zeitraum zum Auffordern für Aktualisierung:")
    ControlSetText("F-Secure Anti-Virus","&Zeitraum zum Auffordern für Aktualisierung:", "Edit1", "1");ändert den Aktualisierungszeitraum ab

    [/autoit] [autoit][/autoit] [autoit]

    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func Update() ;installiert das Office-Update
    WinMinimizeAll()
    $Username = "Administrator"
    $Password = ""
    ; Set the RunAs parameters to use local adminstrator account
    RunAsSet($Username, @Computername, $Password)
    ShellExecute ("B:\Office-Update neue Rechtschreibung\GERMUI.msp")
    MsgBox(64, "Installation", "Das Office-Update ist abgeschlossen.")

    EndFunc

    Func SVG_Viewer() ;installiert SVG-Viewer
    WinMinimizeAll()
    $Username = "Administrator"
    $Password = ""
    ; Set the RunAs parameters to use local adminstrator account
    RunAsSet($Username, @Computername, $Password)
    ShellExecute ("B:\SVG-Viewer\SVGView.exe")
    MsgBox(64, "Installation", "Der SVG-Viewer wurde installiert.")

    EndFunc

    Func Installation();installiert alle nötigen Anwendungen
    WinMinimizeAll()
    $Username = "Administrator"
    $Password = ""
    ; Set the RunAs parameters to use local adminstrator account
    RunAsSet($Username, @Computername, $Password)
    MsgBox(64, "Installation", "Es werden nun nacheinander alle nötigen Programme installiert.")
    ; Verbindet das Laufwerk B nach \\172.29.51.185\install mit dem user Install und dem passwort "install"
    DriveMapAdd("B:", "\\172.29.51.185\install", 0, "install", "install")

    FileCopy("B:\IE\*.*", "@DesktopDir\*.*")
    FileCopy("B:\IE\ICO\*.*", "C:\Programme\Internet Explorer\*.*")
    MsgBox(64, "Installation", "Die Icons auf dem Desktop wurden nun installiert.")

    ;Irfanview
    ShellExecute ("B:\Irvanview\iview398.exe")
    ; Setup starten
    ; Willkommen zur IrfanView Installation!
    WinWait("IrfanView Setup")
    WinActivate("IrfanView Setup")
    WinWaitActive("IrfanView Setup")
    ControlClick("IrfanView Setup", "Create IrfanView Thu&mbnails shortcut on the Desktop", "Button3")
    ControlClick("IrfanView Setup", "For &all users", "Button6")
    Send("!W")
    ;Was ist neu in dieser Version?
    WinWait("IrfanView Setup")
    WinActivate("IrfanView Setup")
    WinWaitActive("IrfanView Setup")
    Send("W")
    ; Möchten Sie Dateien mit IrfanView verknüpfen?
    WinWait("IrfanView Setup")
    WinActivate("IrfanView Setup")
    WinWaitActive("IrfanView Setup")
    ; Nur Bilder markieren
    ControlClick("IrfanView Setup", "Images only", "Button1")
    Send("W")
    ; Google Toolbar und Google Desktop abschalten
    WinWait("IrfanView Setup")
    WinActivate("IrfanView Setup")
    WinWaitActive("IrfanView Setup")
    ; Google Toolbar
    ControlClick("IrfanView Setup", "Google &Toolbar for Internet Explorer", "Button1")
    ; Google Desktop
    ControlClick("IrfanView Setup", "Google Desktop &Search", "Button2")
    Send("W")
    ; Bereit zum Installieren!
    WinWait("IrfanView Setup")
    WinActivate("IrfanView Setup")
    WinWaitActive("IrfanView Setup")
    Send("W")
    ; Verknüpfungen ändern
    WinWait("IrfanView Setup")
    WinActivate("IrfanView Setup")
    WinWaitActive("IrfanView Setup")
    Send("{ALTDOWN}j{ALTUP}")
    ; Einrichtung abgeschlossen!
    WinWait("IrfanView Setup")
    WinActivate("IrfanView Setup")
    WinWaitActive("IrfanView Setup")
    ; Anschließend ...
    ; IrfanView &FAQs abschalten
    ControlClick("IrfanView Setup", "Open IrfanView &FAQs help page", "Button1")
    ; IrfanView nicht starten
    Send("S")
    ; Setup beenden
    ControlClick("IrfanView Setup", "Done", "Button21")
    ;Irfanview registrieren und alle Einstellungen voreinstellen
    FileCopy("B:\Irvanview\*.ini", "C:\Programme\IrfanView\*.*")

    MsgBox(64, "Installation", "Irfanview wurde nun installiert.")


    ;Host on Demand
    FileCopy("B:\Host on Demand\*.*", "@DesktopDir\*.*")

    ;SVG-Viewer
    ShellExecute ("B:\SVG-Viewer\SVGView.exe")

    ;Office-Update
    ShellExecute ("B:\Office-Update neue Rechtschreibung\GERMUI.msp")

    ;FreePDF_XP
    ;Ghostscript-Instalation
    ShellExecute ("B:\FreePDF\gs853w32.exe")
    WinWait("WinZip Self-Extractor - gs853w32.exe","This installs AFPL G")
    ;wartet, bis das Install-Fenster erscheint
    If Not WinActive("WinZip Self-Extractor - gs853w32.exe","This installs AFPL G") Then WinActivate("WinZip Self-Extractor - gs853w32.exe","This installs AFPL G")
    WinWaitActive("WinZip Self-Extractor - gs853w32.exe","This installs AFPL G")
    Send("{ALTDOWN}s{ALTUP}");Alt-S für Install
    WinWait("AFPL Ghostscript Setup","AFPL Ghostscript 8.5")
    If Not WinActive("AFPL Ghostscript Setup","AFPL Ghostscript 8.5") Then WinActivate("AFPL Ghostscript Setup","AFPL Ghostscript 8.5")
    WinWaitActive("AFPL Ghostscript Setup","AFPL Ghostscript 8.5")
    ;ändert den Programmpfad ab
    ControlSetText("AFPL Ghostscript Setup", "Install to directory", "Edit1", @ProgramFilesDir & "\FreePDF_XP\")
    ;markiert "all Users"
    ControlClick("AFPL Ghostscript Setup", "All Users", "Button3")
    Send("{ENTER}")
    ;schließt das Fenster für die Installation im Explorer
    WinWait("C:\Dokumente und Einstellungen\All Users\Startmenü\Programme\Ghostscript","FolderView")
    If Not WinActive("C:\Dokumente und Einstellungen\All Users\Startmenü\Programme\Ghostscript","FolderView") Then WinActivate("C:\Dokumente und Einstellungen\All Users\Startmenü\Programme\Ghostscript","FolderView")
    WinWaitActive("C:\Dokumente und Einstellungen\All Users\Startmenü\Programme\Ghostscript","FolderView")
    Send("{ALTDOWN}{F4}{ALTUP}")

    ;FreePDF_XP-Instalation
    ShellExecute ("B:\FreePDF\FreePDFXP3.07.EXE")
    WinWait("B:\FreePDF","FolderView")
    If Not WinActive("B:\FreePDF","FolderView") Then WinActivate("B:\FreePDF","FolderView")
    WinWaitActive("B:\FreePDF","FolderView")
    Send("{ALTDOWN}s{ALTUP}")
    ;Beendigung Installation
    WinWait("FreePDF XP 3.07","Frame2")
    If Not WinActive("FreePDF XP 3.07","Frame2") Then WinActivate("FreePDF XP 3.07","Frame2")
    WinWaitActive("FreePDF XP 3.07","Frame2")
    Send("{ALTDOWN}e{ALTUP}")


    ;Installation von F-Secure
    ShellExecute ("B:\F-Secure AntiVirus\fsavwks544_eng.exe")
    WinWait("F-Secure Anti-Virus(tm) for Workstation 5.44 - InstallShield Wizard","< &Back")
    If Not WinActive("F-Secure Anti-Virus(tm) for Workstation 5.44 - InstallShield Wizard","< &Back") Then WinActivate("F-Secure Anti-Virus(tm) for Workstation 5.44 - InstallShield Wizard","< &Back")
    WinWaitActive("F-Secure Anti-Virus(tm) for Workstation 5.44 - InstallShield Wizard","< &Back")
    Send("n")
    WinWait("Wählen Sie eine Setup-Sprache aus","Wählen Sie die Sprac")
    If Not WinActive("Wählen Sie eine Setup-Sprache aus","Wählen Sie die Sprac") Then WinActivate("Wählen Sie eine Setup-Sprache aus","Wählen Sie die Sprac")
    WinWaitActive("Wählen Sie eine Setup-Sprache aus","Wählen Sie die Sprac")
    Send("{ENTER}")
    WinWait("Willkommen bei F-Secure Setup","Willkommen bei F-Sec")
    If Not WinActive("Willkommen bei F-Secure Setup","Willkommen bei F-Sec") Then WinActivate("Willkommen bei F-Secure Setup","Willkommen bei F-Sec")
    WinWaitActive("Willkommen bei F-Secure Setup","Willkommen bei F-Sec")
    Send("{ALTDOWN}w{ALTUP}")
    WinWait("Software-Lizenzvereinbarung","Ich &akzeptiere die ")
    If Not WinActive("Software-Lizenzvereinbarung","Ich &akzeptiere die ") Then WinActivate("Software-Lizenzvereinbarung","Ich &akzeptiere die ")
    WinWaitActive("Software-Lizenzvereinbarung","Ich &akzeptiere die ")
    Send("{ALTDOWN}a{ALTUP}")
    Send("{ALTDOWN}w{ALTUP}")
    WinWait("F-Secure Setup","")
    If Not WinActive("F-Secure Setup","") Then WinActivate("F-Secure Setup","")
    WinWaitActive("F-Secure Setup","")
    ;Seriennummer F-Secure
    Send("")
    Send("")
    Send("")
    Send("")
    Send("")
    ;Setup weiter installieren
    WinWait("F-Secure Setup","")
    If Not WinActive("F-Secure Setup","") Then WinActivate("F-Secure Setup","")
    WinWaitActive("F-Secure Setup","")
    Send("{ALTDOWN}w{ALTUP}")
    WinWait("F-Secure Anti-Virus 5.44 Setup","")
    If Not WinActive("F-Secure Anti-Virus 5.44 Setup","") Then WinActivate("F-Secure Anti-Virus 5.44 Setup","")
    WinWaitActive("F-Secure Anti-Virus 5.44 Setup","")
    Send("{ALTDOWN}w{ALTUP}")
    WinWait("F-Secure Setup","")
    If Not WinActive("F-Secure Setup","") Then WinActivate("F-Secure Setup","")
    WinWaitActive("F-Secure Setup","")
    Send("{ALTDOWN}w{ALTUP}")
    Send("{ALTDOWN}w{ALTUP}")
    Send("{ALTDOWN}w{ALTUP}")
    WinWait("F-Secure Anti-Virus 5.44 Setup","")
    If Not WinActive("F-Secure Anti-Virus 5.44 Setup","") Then WinActivate("F-Secure Anti-Virus 5.44 Setup","")
    ;deaktiviert die Infodatei
    ControlClick("F-Secure Setup", "&Infodatei anzeigen", "Button2")
    WinWait("F-Secure Anti-Virus 5.44 Setup","")
    If Not WinActive("F-Secure Anti-Virus 5.44 Setup","") Then WinActivate("F-Secure Anti-Virus 5.44 Setup","")
    Send("{ALTDOWN}f{ALTUP}")

    [/autoit] [autoit][/autoit] [autoit]

    WinWait("Aktualisierung von F-Secure Anti-Virus","")
    If Not WinActive("Aktualisierung von F-Secure Anti-Virus","") Then WinActivate("Aktualisierung von F-Secure Anti-Virus","")
    Send("{ALTDOWN}a{ALTUP}")
    WinWait("F-Secure Anti-Virus","")
    If Not WinActive("F-Secure Anti-Virus","&Zeitraum zum Auffordern für Aktualisierung:") Then WinActivate("F-Secure Anti-Virus","&Zeitraum zum Auffordern für Aktualisierung:")
    ControlSetText("F-Secure Anti-Virus","&Zeitraum zum Auffordern für Aktualisierung:", "Edit1", "1");ändert den Aktualisierungszeitraum ab

    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func OnExit();bei Drücken des Button wird das Programm beeendent
    if @GUI_CtrlId = $Button99 Then

    [/autoit] [autoit][/autoit] [autoit]

    EndIf

    [/autoit] [autoit][/autoit] [autoit]

    Exit
    EndFunc

    [/autoit]
    Zitat

    Original von th.meger
    Hi,

    habe mir noch nicht alles angeguckt, aber irgendwie könnte es sein, dass du bei DriveMapAdd , den Parameter flag vergessen hast?

    So long,

    Mega

    Ich hatte vorher das Laufwerk immer per Hand verbunden. Also war ich nicht davon abhängig, das über DriveMapAdd verbunden wurde.

    Das Testscript hatte wunderbar funktioniert, im eigentlichen Script nicht mehr. Was habe ich also falsch gemacht beim Einfügen.

    Im eigentlichen Script wird die Func per Klick gestartet, im Testscript automatisch.

    Auszug aus dem Script

    Spoiler anzeigen
    [autoit]


    Global $share = "\\172.29.51.185\Install" ;festlegen der Variablen als Global zur Nutzung in allen Funktionen
    ; Initialization of the variables

    Mappen($share)

    ;--------------- Functions ---------------

    Func Mappen($share);Laufwerk B:\172.29.51.185\Install wird gemapped
    WinMinimizeAll() ;alle Fenster minimieren
    DriveMapAdd("*","\\172.29.51.185\Install", 0, "install", "install")

    For $i = 97 To 122
    If DriveMapGet(Chr($i) & ":") = $share Then
    MsgBox(64, "Installation", "Das Laufwerk (" & Chr($i) & ": )wurde gefunden")
    ExitLoop
    Else
    SplashTextOn("Nicht gefunden!", "Leider nicht gefunden unter --> " & Chr($i) & ": " & @LF & _
    DriveMapGet(Chr($i) & ":") & " ist nicht = " & $share, 500, 60, 0, 0, Default, Default, 14, 600)
    Sleep(1000)
    EndIf
    Next
    EndFunc ;==>Mappen

    [/autoit]

    Testscript:

    Spoiler anzeigen
    [autoit]

    Global $share = "\\172.29.51.185\Install"

    test($share)

    Func test($share)
    For $i = 97 To 122
    If DriveMapGet(Chr($i) & ":") = $share Then
    MsgBox(64, "Installation", "Das Laufwerk (" & Chr($i) & ": )wurde gefunden")
    ExitLoop
    Else
    SplashTextOn("Nicht gefunden!", "Leider nicht gefunden unter --> " & Chr($i) & ": " & @LF & _
    DriveMapGet(Chr($i) & ":") & " ist nicht = " & $share, 500, 60, 0, 0, Default, Default, 14, 600)
    Sleep(1000)
    EndIf
    Next
    EndFunc ;==>test

    [/autoit]

    Es muss leider weiter gesucht werden. Das Laufwerk hatte ich vorher per Hand selbst verbunden. Darum ist es egal, ob der "flag" drin war oder nicht.

    Die Frage war: Was ist im ersten Script anderst, als im Testscript?

    So long....

    • Offizieller Beitrag

    Hallo!

    Ich habe mal getestet und bei mir funktionieren beide Scripte. Der Fehler kann also eingentlich nur noch bei Benutzer und Passwort liegen!

    Um was für einen Benutzer handelt es sich den, um einen Domänen-Benutzer oder einen lokalen Benutzer?

    Wenn es sich um einen Domänen-Benutzer handelt trage in mal so ein:

    [autoit]

    DriveMapAdd("*", "\\172.29.51.185\Install", 0, "Domänenname\Benutzer", "Passwort")

    [/autoit]

    Bei einem lokalen Benutzer so:

    [autoit]

    DriveMapAdd("*", "\\172.29.51.185\Install", 0, "Rechnername\Benutzer", "Passwort")

    [/autoit]

    oder so:

    [autoit]

    DriveMapAdd("*", "\\172.29.51.185\Install", 0, "172.29.51.185\Benutzer", "Passwort")

    [/autoit]

    Danke für die vielen Tips. Bin endlich zum testen gekommen.

    Das Auslesen des Laufwerksbuchstaben klappt nun.

    Aber wie kann ich ihn dann an eine globale Variable übergeben? Diese benötige ich dann, um aus dem verbundenen Laufwerk Programme zu installieren.

    Hier das Beispiel:

    [autoit]

    Mappen($share)

    [/autoit][autoit][/autoit][autoit]

    DriveMapAdd("*","\\172.29.51.185\Install", 0, "install", "install")

    [/autoit][autoit][/autoit][autoit]

    Func Mappen($share)
    Global $share = "\\172.29.51.185\Install", $Laufwerk, $i
    For $i = 97 To 122
    If DriveMapGet(Chr($i) & ":") = $share Then
    MsgBox(64, "Installation", "Das Laufwerk (" & Chr($i) & ": )wurde gefunden")
    ExitLoop
    Else
    SplashTextOn("Nicht gefunden!", "Leider nicht gefunden unter --> " & Chr($i) & ": " & @LF & _
    DriveMapGet(Chr($i) & ":") & " ist nicht = " & $share, 500, 60, 0, 0, Default, Default, 14, 600)
    Sleep(1000)
    EndIf
    Next
    Chr($i) = $Laufwerk ; Wie übergebe ich die Variable richtig?
    EndFunc ;==>mappen

    Func Icons();installiert alle nötigen Anwendungen
    WinMinimizeAll()

    FileCopy(& $Laufwerk &":\IE\*.*", "C:\Dokumente und Einstellungen\All Users\Desktop")
    FileCopy(& $Laufwerk &":\IE\ICO\*.*", "C:\Programme\Internet Explorer\")
    MsgBox(64, "Installation", "Die Icons wurden auf dem Desktop installiert.")

    [/autoit]

    Mir ging es darum, wie ich am besten das Ergebnis der Variablen "Chr($i)" an die Variable "$Laufwerk" übergeben kann. Mit der Var $Laufwerk möchte ich dann ja weiterarbeiten.

    Problem:

    Wenn ein Kollege das Programm startet, dann erscheint jedes Mal die folgende Fehlermeldung, bei mir jedoch nicht.

    [Blockierte Grafik: http://img241.imageshack.us/img241/15/fehlermeldungyu6.th.jpg]

    Hier noch einmal der Auszug aus dem Script:

    [autoit]

    Mappen($share)

    [/autoit][autoit][/autoit][autoit]

    Func Mappen($share)
    DriveMapAdd("*","\\172.29.51.185\Install", 0, "install", "install")
    Global $share = "\\172.29.51.185\Install", Chr($i)=$Laufwerk, $i
    For $i = 97 To 122
    If DriveMapGet(Chr($i) & ":") = $share Then
    MsgBox(64, "Installation", "Das Laufwerk (" & Chr($i) & ": )wurde gefunden")
    ExitLoop
    Else
    SplashTextOn("Nicht gefunden!", "Leider nicht gefunden unter --> " & Chr($i) & ": " & @LF & _
    DriveMapGet(Chr($i) & ":") & " ist nicht = " & $share, 500, 60, 0, 0, Default, Default, 14, 600)
    Sleep(1000)
    EndIf
    Next
    EndFunc ;==>mappen

    [/autoit]

    Muss ich noch etwas anderes einbinden, außer die "GUIConstatnts"?

    [autoit]

    #include <GUIConstants.au3>

    [/autoit]
    • Offizieller Beitrag

    Mach mal statt

    [autoit]

    Global $share = "\\172.29.51.185\Install", Chr($i)=$Laufwerk, $i

    [/autoit]


    lieber das:

    [autoit]

    Global $share = "\\172.29.51.185\Install"
    Global $Laufwerk=Chr($i)
    Global $i

    [/autoit]

    Ist nur eine Synaxkorrektur. Aber wo $i gesetzt wird und welchen Wert es hat, kann ich mit deinem Skript leider nicht sagen...

    peethebee