Hallo zusammen,
hat von euch jemand ein Script zu Installation von UltraVNC. Ich bleibe da immer hängen!! (nerv) :wacko:
Gruß Icerose
Hallo zusammen,
hat von euch jemand ein Script zu Installation von UltraVNC. Ich bleibe da immer hängen!! (nerv) :wacko:
Gruß Icerose
Hallo!
Welches VNC..version!
Wo bleibst du hängen? beispielscript wäre gut
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.
$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
Hi,
guck dir mal TeamViewer an, da brauchst du keine Installation.
Mega
Sorry das ich mich jetzt erst melde!!!
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.2.12.1
Author:icerose
Script Function:
Installation UltraVNC
#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
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")
;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")
;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")
;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")
;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")
;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")
;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")
;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")
;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")
;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")
;
;Hier bleibt es immer hängen!!!
;
;
;Info
WinWait("Setup - UltraVNC","Information")
Sleep(20000)
Send("{TAB}{ENTER}")
#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)
#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")
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")
#comments-start
[/autoit] [autoit][/autoit] [autoit];fertig mit einstellungen
ControlClick("Ultr@VNC Server Property Page","Incoming Connections","Button46")
;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")
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")
;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")
;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")
;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")
#comments-end
TrayTip($programmname & " installiert", "Die Installation wurde abgeschlossen", 10)
Sleep(2000)
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!!!
Nutze doch einfach die Parameter für eine automatisierte Installation. Dann hast du den ganzen Ärger mit den Oberflächen nicht.
Hier die Beschreibung dazu: *klick*