Hallo zusammen,
ich bastle nun schon länger an diesem Skript.
Nun muss ich eure Hilfe in Anspruch nehmen.
Also das Skript sollte auf win10&win7 laufen ohne Admin Rechte.
Das Skript Funktioniert mit dem Aufruf Befehl run.
run("C:\temp\oce\ocewpd2.13.exe")
Sobald ich es mit runas aufrufe
;RunAs ( "Bneutzer", "Domäne", "Passwort", "$RUN_LOGON_NETWORK (2)" , "ocewpd2.13.exe")
Funktioniert dieser Befehl nicht mehr.
ControlSetText("Oce WPD2 installation", "Sollen andere Benutzer auf diesen Treiber zugreifen können?",1024,"PL002W30")
Bei Win10 habe ich das Problem das das Skript mit Runas erst gar nicht startet mir run schon.
Hatte schon einmal jemand das Problem und wie hast du es gelöst?
Oder wie kann ich das lösen?
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.6.0
Author: xxxx
Script Function: Template AutoIt script.
#ce ----------------------------------------------------------------------------
; Script Start - Starte zu Coden
; Input per Maus Verbieten 0 =erlaubt 1=nicht erlaubt
;blockinput(0)
; Exe aufrufen
run("C:\temp\oce\ocewpd2.13.exe")
;RunAs ( "Benutzer", "Domäne", "Passwort", "$RUN_LOGON_NETWORK (2)" , "ocewpd2.13.exe")
;Sprache auf Deutsch Umstellen
Local $sSprache = ControlCommand("Oce WPD2 installation", "", 1009, "GetCurrentSelection", "")
Switch $sSprache
case "Deutsch"
;ControlSend ( "Oce WPD2 installation", "Sprache", 1009, "ee" )
case "English (UK)"
ControlSend ( "Oce WPD2 installation", "Sprache", 1009, "dd" )
case "Englisch (US)"
ControlSend ( "Oce WPD2 installation", "Sprache", 1009, "dd" )
EndSwitch
;Klickt Installieren an
;WinSetTrans("Oce WPD2 installation","","0")
WinWait("Oce WPD2 installation","Dateien entpacken")
WinActivate("Oce WPD2 installation","Dateien entpacken")
ControlClick("Oce WPD2 installation","Dateien entpacken", "Installieren")
;Klickt Ich stimme zu an
;WinSetTrans("Oce WPD2 installation","","0")
WinWait("Oce WPD2 installation","Ich stimme zu")
WinActivate("Oce WPD2 installation","Ich stimme zu")
ControlClick("Oce WPD2 installation","Ich stimme zu", "Ich stimme zu")
;Klickt weiter mit Express Installation
;WinSetTrans("Oce WPD2 installation","","0")
WinWait("Oce WPD2 installation","Express")
WinActivate("Oce WPD2 installation","Express")
ControlClick("Oce WPD2 installation", "", 1008)
;IP Adresse eintragen
;WinSetTrans("Oce WPD2 installation","","0")
WinWait("Oce WPD2 installation", "Es wurde kein Drucker erkannt.")
WinActivate("Oce WPD2 installation", "Es wurde kein Drucker erkannt.")
ControlSetText("Oce WPD2 installation", "Es wurde kein Drucker erkannt.",1024,"199.230.0.82")
ControlClick("Oce WPD2 installation","", 1008)
;Plotter umbennen und Triber zugreifan JA
;WinSetTrans("Oce WPD2 installation","","0")
WinWait("Oce WPD2 installation", "Sollen andere Benutzer auf diesen Treiber zugreifen können?")
WinActivate("Oce WPD2 installation", "Sollen andere Benutzer auf diesen Treiber zugreifen können?")
ControlSetText("Oce WPD2 installation", "Sollen andere Benutzer auf diesen Treiber zugreifen können?",1024,"PL002W30")
;Wird nur gebraucht wann der Drucker Freigegeben wird ControlClick("Oce WPD2 installation","Sollen andere Benutzer auf diesen Treiber zugreifen können?", 1029)
;WinSetTrans("Oce WPD2 installation","","0")
ControlClick("Oce WPD2 installation","Sollen andere Benutzer auf diesen Treiber zugreifen können?", 1008)
;Installation Beenden
;WinSetTrans("Oce WPD2 installation","","0")
WinWait("Oce WPD2 installation","Eine Testseite drucken")
WinActivate("Oce WPD2 installation","Eine Testseite drucken")
ControlClick("Oce WPD2 installation", "", 1000)
Alles anzeigen
Für Test habe ich die .exe hochgeladen http://x-gaming.org/ocewpd2.13.exe