Suche Script für UltraVNC

1. offizieller Beitrag

    Hallo zusammen,

    hat von euch jemand ein Script zu Installation von UltraVNC. Ich bleibe da immer hängen!! (nerv) :cursing: X( ?( :wacko:

    Gruß Icerose

    Einmal editiert, zuletzt von icerose (6. Oktober 2008 um 10:18)

    Genau den Quelltext den du bis jetzt hast wäre super, sonst muß man raten an was es liegen könnte.

    An die Admins ich glaube der Topic ist hier falsch mal bitte nach Hilfe & Unterstützung verschieben. ;)
    Danke

    MfG
    Der_Doc

    Hi!
    Wenn du VNC auf Netzwerk PC´s installieren willst kannst du das hier verwenden.
    Voraussetzungen:
    Du brauchst die psexec.exe von den pstools von Mircosoft. (@ScriptDir & "\pstools\psexec.exe )
    In den Ordner @scriptdir & "\VNC\" musst du einfach dein installiertes VNC kopieren.
    Musst Administratoren Rechte auf den PC´s haben.
    Windows XP oder 2000 als Betriebssystem.

    Spoiler anzeigen
    [autoit][/autoit] [autoit][/autoit] [autoit]

    $pc = "192.168.0.10"
    $m = MsgBox(4, "VNC", "Wollen Sie VNC auf " & $pc & " installieren ?")
    If $m = 6 Then
    $f = DirCopy(@ScriptDir & "\VNC\", "\\" & $pc & "\c$\Programme\UltraVNC\", 1)
    If Not $f Then
    MsgBox(0, "Error", "VNC konnte nicht auf " & $pc & " kopiert werden")
    ElseIf $f Then
    RegWrite("\\" & $pc & "\HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "WinVNC", "REG_SZ", '"C:\Programme\UltraVNC\WinVNC.exe" -servicehelper')
    RegWrite("\\" & $pc & "\HKLM\SYSTEM\CurrentControlSet\Services\winvnc", "DisplayName", "REG_SZ", "VNC Server")
    RegWrite("\\" & $pc & "\HKLM\SYSTEM\CurrentControlSet\Services\winvnc", "ImagePath", "REG_EXPAND_SZ", '"C:\Programme\UltraVNC\WinVNC.exe" -service')
    RegWrite("\\" & $pc & "\HKLM\SYSTEM\CurrentControlSet\Services\winvnc", "ObjectName", "REG_SZ", "LocalSystem")
    RegWrite("\\" & $pc & "\HKLM\SYSTEM\CurrentControlSet\Services\winvnc", "ErrorControl", "REG_DWORD", "1")
    RegWrite("\\" & $pc & "\HKLM\SYSTEM\CurrentControlSet\Services\winvnc", "Start", "REG_DWORD", "2")
    RegWrite("\\" & $pc & "\HKLM\SYSTEM\CurrentControlSet\Services\winvnc", "Type", "REG_DWORD", "272")
    RegWrite("\\" & $pc & "\HKLM\SOFTWARE\ORL\WinVNC3\Default", "Password", "REG_BINARY", "AAAAAAAAAAAAAAAA") ; Hier musst du den code aus deiner Registry eintragen
    RegWrite("\\" & $pc & "\HKLM\SOFTWARE\ORL\WinVNC3\Default", "AllowShutdown", "REG_DWORD", "0")
    $commandline = @ComSpec & " /A /C " & @ScriptDir & "\pstools\psexec.exe \\" & $pc & ' -i -d "C:\programme\ultravnc\winvnc.exe" -sinstall'
    RunWait($commandline, "", @SW_HIDE)
    Sleep(3000)
    $commandline = @ComSpec & " /A /C " & @ScriptDir & "\pstools\psexec.exe \\" & $pc & ' -i -d "C:\programme\ultravnc\driver\setupdrv.exe" -installs'
    RunWait($commandline, "", @SW_HIDE)
    Sleep(3000)
    $commandline = @ComSpec & " /A /C " & "sc \\" & $pc & " start winvnc"
    RunWait($commandline, "", @SW_HIDE)
    MsgBox(0, "Erfolg", "VNC wurde auf " & $pc & " kopiert")
    EndIf
    EndIf

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

    If not :?: then ?( else :thumbup:

    Sorry das ich mich jetzt erst melde!!!

    Spoiler anzeigen
    [autoit]


    #cs ----------------------------------------------------------------------------

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

    AutoIt Version: 3.2.12.1
    Author:icerose

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

    Script Function:
    Installation UltraVNC

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

    #ce ----------------------------------------------------------------------------

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

    $programmname = "UltraVNC_105"

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

    TrayTip($programmname & "-Installation", $programmname & " wird installiert. Bitte warten...", 2000)

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

    ; Setup starten
    Run("\VNC\UltraVNC_105_Setup_W32.exe")
    ; Extracting
    WinWait("Setup-Sprache auswählen","Wählen Sie die Sprache aus, die während der Installation benutzt werden soll:")
    If Not WinActive("Setup-Sprache auswählen","Wählen Sie die Sprache aus, die während der Installation benutzt werden soll:") Then WinActivate("Setup-Sprache auswählen","Wählen Sie die Sprache aus, die während der Installation benutzt werden soll:")
    WinWaitActive("Setup-Sprache auswählen","Wählen Sie die Sprache aus, die während der Installation benutzt werden soll:")
    ControlClick("Setup-Sprache auswählen","Wählen Sie die Sprache aus, die während der Installation benutzt werden soll:", "TNewButton1")
    ;Setup - UltraVNC

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

    WinWait("Setup - UltraVNC","Willkommen zum UltraVNC Setup-Assistenten")
    If Not WinActive("Setup - UltraVNC","Willkommen zum UltraVNC Setup-Assistenten") Then WinActivate("Setup - UltraVNC","Willkommen zum UltraVNC Setup-Assistenten")
    WinWaitActive("Setup - UltraVNC","Willkommen zum UltraVNC Setup-Assistenten")
    ControlClick("Setup - UltraVNC","Willkommen zum UltraVNC Setup-Assistenten", "TNewButton1")

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

    ;Lizenz

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

    WinWait("Setup - UltraVNC","Lizenzvereinbarung")
    If Not WinActive("Setup - UltraVNC","Lizenzvereinbarung") Then WinActivate("Setup - UltraVNC","Lizenzvereinbarung")
    WinWaitActive("Setup - UltraVNC","Lizenzvereinbarung")
    ControlClick("Setup - UltraVNC","Lizenzvereinbarung", "TNewRadioButton1")
    ControlClick("Setup - UltraVNC","Lizenzvereinbarung", "TNewButton2")

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

    ;Informationen

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

    WinWait("Setup - UltraVNC","Information")
    If Not WinActive("Setup - UltraVNC","Information") Then WinActivate("Setup - UltraVNC","Information")
    WinWaitActive("Setup - UltraVNC","Information")
    ControlClick("Setup - UltraVNC","Information", "TNewButton2")

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

    ;Zielordner

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

    WinWait("Setup - UltraVNC","Ziel-Ordner wählen")
    If Not WinActive("Setup - UltraVNC","Ziel-Ordner wählen") Then WinActivate("Setup - UltraVNC","Ziel-Ordner wählen")
    WinWaitActive("Setup - UltraVNC","Ziel-Ordner wählen")
    ControlClick("Setup - UltraVNC","Ziel-Ordner wählen", "TNewButton3")

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

    ;Komponenten auswählen

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

    WinWait("Setup - UltraVNC","Komponenten auswählen")
    If Not WinActive("Setup - UltraVNC","Komponenten auswählen") Then WinActivate("Setup - UltraVNC","Komponenten auswählen")
    WinWaitActive("Setup - UltraVNC","Komponenten auswählen")
    ControlClick("Setup - UltraVNC","Komponenten auswählen", "TNewComboBox1")
    ControlClick("Setup - UltraVNC","Komponenten auswählen", "ComboLBox1")
    ControlSend("Setup - UltraVNC","Komponenten auswählen","","{DOWN}{ENTER}")
    ControlClick("Setup - UltraVNC","Komponenten auswählen", "TNewButton3")

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

    ;Startmenü-Ordner auswählen

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

    WinWait("Setup - UltraVNC","Startmenü-Ordner auswählen")
    If Not WinActive("Setup - UltraVNC","Startmenü-Ordner auswählen") Then WinActivate("Setup - UltraVNC","Startmenü-Ordner auswählen")
    WinWaitActive("Setup - UltraVNC","Startmenü-Ordner auswählen")
    ControlClick("Setup - UltraVNC","Startmenü-Ordner auswählen", "TNewButton4")

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

    ;Optional non-GPL addons recommended for Vista

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

    WinWait("Setup - UltraVNC","Optional non-GPL addons recommended for Vista")
    If Not WinActive("Setup - UltraVNC","Optional non-GPL addons recommended for Vista") Then WinActivate("Setup - UltraVNC","Optional non-GPL addons recommended for Vista")
    WinWaitActive("Setup - UltraVNC","Optional non-GPL addons recommended for Vista")
    ControlClick("Setup - UltraVNC","Optional non-GPL addons recommended for Vista", "TCheckBox1")
    ControlClick("Setup - UltraVNC","Optional non-GPL addons recommended for Vista", "TNewButton4")

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

    ;Optional non-GPL Mirror Driver 1.0.5

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

    WinWait("Setup - UltraVNC","Optional non-GPL Mirror Driver 1.0.5 ")
    If Not WinActive("Setup - UltraVNC","Optional non-GPL Mirror Driver 1.0.5 ") Then WinActivate("Setup - UltraVNC","Optional non-GPL Mirror Driver 1.0.5 ")
    WinWaitActive("Setup - UltraVNC","Optional non-GPL Mirror Driver 1.0.5 ")
    ControlClick("Setup - UltraVNC","Optional non-GPL Mirror Driver 1.0.5 ", "TNewButton4")

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

    ;Zusätzliche Aufgaben auswählen

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

    WinWait("Setup - UltraVNC","Zusätzliche Aufgaben auswählen")
    If Not WinActive("Setup - UltraVNC","Zusätzliche Aufgaben auswählen") Then WinActivate("Setup - UltraVNC","Zusätzliche Aufgaben auswählen")
    WinWaitActive("Setup - UltraVNC","Zusätzliche Aufgaben auswählen")
    ControlSend("Setup - UltraVNC","Zusätzliche Aufgaben auswählen","","{SPACE}{TAB}")
    ControlClick("Setup - UltraVNC","Zusätzliche Aufgaben auswählen", "TNewButton4")

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

    ;Installation durchführen

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

    WinWait("Setup - UltraVNC","Installation durchführen")
    If Not WinActive("Setup - UltraVNC","Installation durchführen") Then WinActivate("Setup - UltraVNC","Installation durchführen")
    WinWaitActive("Setup - UltraVNC","Installation durchführen")
    ControlClick("Setup - UltraVNC","Installation durchführen", "TNewButton4")

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

    ;
    ;Hier bleibt es immer hängen!!!
    ;
    ;

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

    ;Info
    WinWait("Setup - UltraVNC","Information")
    Sleep(20000)
    Send("{TAB}{ENTER}")

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

    #comments-start

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

    ;Informationen

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

    WinWait("Setup - UltraVNC","Informationen")
    If Not WinActive("Setup - UltraVNC","Informationen") Then WinActivate("Setup - UltraVNC","Informationen")
    WinWaitActive("Setup - UltraVNC","Informationen")
    ControlClick("Setup - UltraVNC","Informationen", "TNewButton4")
    ;ControlClick("Info","OK","", 38 , 10)

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

    #comments-end

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

    ;Ultr@VNC Server Property Page

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

    WinWait("Ultr@VNC Server Property Page","Incoming Connections")
    If Not WinActive("Ultr@VNC Server Property Page","Incoming Connections") Then WinActivate("Ultr@VNC Server Property Page","Incoming Connections")
    WinWaitActive("Ultr@VNC Server Property Page","Incoming Connections")

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

    ControlClick("Ultr@VNC Server Property Page","Incoming Connections","Button5")
    ControlSetText("Ultr@VNC Server Property Page","Incoming Connections","Edit2","5959")
    ControlSetText("Ultr@VNC Server Property Page","Incoming Connections","Edit3","5859")
    ControlSetText("Ultr@VNC Server Property Page","Incoming Connections","Edit4","test") ;Kennwort nachher noch ändern
    ControlClick("Ultr@VNC Server Property Page","Incoming Connections","Button28")
    ControlSetText("Ultr@VNC Server Property Page","Incoming Connections","Edit6","20")
    ControlClick("Ultr@VNC Server Property Page","Incoming Connections","Button33")
    ControlClick("Ultr@VNC Server Property Page","Incoming Connections","Button41")
    ControlClick("Ultr@VNC Server Property Page","Incoming Connections","Button43")

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

    #comments-start

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

    ;fertig mit einstellungen
    ControlClick("Ultr@VNC Server Property Page","Incoming Connections","Button46")

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

    ;Ausführen als

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

    WinWait("Ausführen als","Welches Benutzerkonto soll zum Ausführen dieses Programms verwendet werden?")
    If Not WinActive("Ausführen als","Welches Benutzerkonto soll zum Ausführen dieses Programms verwendet werden?") Then WinActivate("Ausführen als","Welches Benutzerkonto soll zum Ausführen dieses Programms verwendet werden?")
    WinWaitActive("Ausführen als","Welches Benutzerkonto soll zum Ausführen dieses Programms verwendet werden?")
    ControlClick("Ausführen als","Welches Benutzerkonto soll zum Ausführen dieses Programms verwendet werden?","Button2")
    ControlClick("Ausführen als","Welches Benutzerkonto soll zum Ausführen dieses Programms verwendet werden?","Button5")

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

    WinWait("Ultr@VNC Server Property Page","Incoming Connections")
    If Not WinActive("Ultr@VNC Server Property Page","Incoming Connections") Then WinActivate("Ultr@VNC Server Property Page","Incoming Connections")
    WinWaitActive("Ultr@VNC Server Property Page","Incoming Connections")
    ControlClick("Ultr@VNC Server Property Page","Incoming Connections","Button45")

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

    ;Ausführen als

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

    WinWait("Ausführen als","Welches Benutzerkonto soll zum Ausführen dieses Programms verwendet werden?")
    If Not WinActive("Ausführen als","Welches Benutzerkonto soll zum Ausführen dieses Programms verwendet werden?") Then WinActivate("Ausführen als","Welches Benutzerkonto soll zum Ausführen dieses Programms verwendet werden?")
    WinWaitActive("Ausführen als","Welches Benutzerkonto soll zum Ausführen dieses Programms verwendet werden?")
    ControlClick("Ausführen als","Welches Benutzerkonto soll zum Ausführen dieses Programms verwendet werden?","Button2")
    ControlClick("Ausführen als","Welches Benutzerkonto soll zum Ausführen dieses Programms verwendet werden?","Button5")

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

    ;Setup
    WinWait("Setup - UltraVNC","Information")
    If Not WinActive("Setup - UltraVNC","Information") Then WinActivate("Setup - UltraVNC","Information")
    WinWaitActive("Setup - UltraVNC","Information")
    ControlClick("Setup - UltraVNC","Information", "TNewButton4")

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

    ;Beenden
    WinWait("Setup - UltraVNC","Beenden des UltraVNC Setup-Assistenten")
    If Not WinActive("Setup - UltraVNC","Beenden des UltraVNC Setup-Assistenten") Then WinActivate("Setup - UltraVNC","Beenden des UltraVNC Setup-Assistenten")
    WinWaitActive("Setup - UltraVNC","Beenden des UltraVNC Setup-Assistenten")
    ControlClick("Setup - UltraVNC","Beenden des UltraVNC Setup-Assistenten", "TNewButton4")

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

    #comments-end
    TrayTip($programmname & " installiert", "Die Installation wurde abgeschlossen", 10)
    Sleep(2000)

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

    Exit

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


    Das ist der Quellcode


    Gruß Icerose


    EDIT: Concara Das werde ich mal testen!!!


    EDIT2: Concara Kann komischerweise keinen Eintrag in der regedit finden!!!

    2 Mal editiert, zuletzt von icerose (1. Oktober 2008 um 11:44)