Das einzige was mir einfällt, ist halt mehrere WGET-Task per Run zu starten. Das ist aber wohl nicht das, was gewollt wurde.
Parallelisieren von "_InetGet" scheint nicht zu funktionieren, außer man packt die "_InetGet" in getrennte AutoIT-Scripte und starte diese wiederum mit Run, was aber dann auch mit WGET ginge.
Vielleicht gibt es ja eine WinAPI-Möglichkeit ?
Ich dachte FTP, wo ist das jetzt FTP ???
Wäre erstmal die Frage wie Du sie herunterladen möchtest ?
HTTP, FTP ?
Natürlich lässt sich ein WGET.EXE oder ein FTP.EXE mehrfach per Run() ausführen. Warum sollte es nicht gehen.
Du versteifst Dich so auf das fehlende RunAsSet(). Das ist doch nicht unbedingt nötig.
Erstmal schrieb ich Dir auch wie es mit einer Batch funktioniert und unter der neueren AutoIT-Version sollte es auch mit RunAs() klappen.
Versuch es z.B.so... (ohne Gewähr, denn RunAs() gibts bei mir nicht)
#include <GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit]GUICreate("Ausführen als...",380,150)
GUICtrlCreateLabel("Admin-Kennwort:",45,43)
$Kennwort=GUICtrlCreateInput('',130,40,150,22, $ES_PASSWORD)
$Login=GUICtrlCreateButton("Start",160,100,60,22,$BS_DEFPUSHBUTTON)
GUISetState(@SW_SHOW)
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
Case $Login
$UserAppDir = @AppDataDir
RunAs("Administrator","",GUICtrlRead($Kennwort),0,@scriptdir & '\IchAdmin.exe "' & $UserAppDir & '"')
Exit
EndSwitch
Wend
$ES_PASSWORD steht in der EditConstants.au3 und $BS_DEFPUSHBUTTON in der ButtonConstants.au3.
Beider werden bei mir in der GUIConstants.au3 eingebunden.
Ich nutze noch die ältere Version 3.2.10.0 !
Aber ich wüsste nicht, das sich dort etwas groß geändert hat.
Ich weiß nicht wie das bei euch ist, aber so haut das schon hin:
Diese Script kompiliert als Test-Exe:
If $CmdLine[0] > 0 Then
$appdir = $cmdline[1]
Else
$appdir = @AppDataDir
EndIf
Msgbox(0,"AppDir des Starter's",$appdir)
Jetzt kann diese Exe mittels folgendem Script gestartet werden...
#include <GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit]GUICreate("Ausführen als...",380,150)
GUICtrlCreateLabel("Admin-Kennwort:",45,43)
$Kennwort=GUICtrlCreateInput('',130,40,150,22, $ES_PASSWORD)
$Login=GUICtrlCreateButton("Start",160,100,60,22,$BS_DEFPUSHBUTTON)
GUISetState(@SW_SHOW)
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
Case $Login
$UserAppDir = @AppDataDir
RunAsSet()
RunAsSet("Administrator","",GUICtrlRead($Kennwort))
Run(@scriptdir & '\IchAdmin.exe "' & $UserAppDir & '"')
RunAsSet()
Exit
EndSwitch
Wend
oder mit folgender Befehlszeile (z.B. über eine Desktop-Verknüpfung)...
runas /noprofile /user:Administrator "IchAdmin.exe """%appdata%"""Die einzige Idee die ich gerade hätte: Übergib die Umgebungsvariable als Parameter beim Start.
Im compilierten Script dann prüfen ob ein Parameter übergeben wurde und wenn ja anstatt des
Standard-Macros benutzen.
Wie Du es geschrieben hast, würde ich "StringLeft($zahl,6) benutzen. Oder ",16" je nach den Stellen.
Nur mit dem eigentlichen Ergebnis, hat das dann nichts mehr zu tun.
Nach anfänglicher Hilfe hier aus dem Forum, habe ich die benötigten Funktionen fertig.
Unter Umständen besteht ja allgemeines Interesse...
; Funktionen für das anpassen von Sicherheits- und Benutzereinstellungen
;
; _GetFileSecurityDACL($quelle) : Liest eine Beschreibung der Sicherheitsinfomationen
; _SetFileSecurityDACL($ziel, $beschreibung) : Setzt eine Beschreibung der Sicherheitsinfomationen
; _CopyFileSecurityDACL($quelle, $ziel) : Kopiert eine Beschreibung der Sicherheitsinfomationen
; _GetFileSecurityOWNER($quelle) : Liest eine Beschreibung der Besitzerinfomationen
; _SetFileSecurityOWNER($ziel) : Setzt eine Beschreibung der Besitzerinfomationen
; _CopyFileSecurityOWNER($quelle, $ziel) : Kopiert eine Beschreibung der Besitzerinfomationen
; _CheckSecurityDescriptor($beschreibung) : Prüft eine Beschreibung auf Gültigkeit
Func _GetFileSecurityDACL($sFile)
If Not IsDeclared("DACL_SECURITY_INFORMATION") Then Const $DACL_SECURITY_INFORMATION = 0x4
Local $return
Local $hAdvapi32 = DllOpen("advapi32.dll")
If Not FileExists($sFile) Then Return SetError(1,0,0)
$return = DllCall($hAdvapi32,"long","GetFileSecurity", _
"str",$sFile, _
"dword", $DACL_SECURITY_INFORMATION, _
"ptr",0, _
"dword",0, _
"dword*",0)
If Not $return[5] Then Return SetError(1,0,0)
Local $strucSD = DllStructCreate("byte[" & $return[5] & "]")
$return = DllCall($hAdvapi32,"long","GetFileSecurity", _
"str",$sFile, _
"dword", $DACL_SECURITY_INFORMATION, _
"ptr",DllStructGetPtr($strucSD), _
"dword",DllStructGetSize($strucSD), _
"dword*",0)
If Not $return[0] Then Return SetError(1,0,0)
DllClose($hAdvapi32)
Return DllStructGetData($strucSD,1)
EndFunc
Func _SetFileSecurityDACL($sFile,$Descriptor)
If Not IsDeclared("DACL_SECURITY_INFORMATION") Then Const $DACL_SECURITY_INFORMATION = 0x4
Local $strucSD = DllStructCreate("byte[" & (StringLen($descriptor)/2)-1 & "]")
DllStructSetData($strucSD,1,$Descriptor)
Local $hAdvapi32 = DllOpen("advapi32.dll")
Local $return = DllCall($hAdvapi32,"long","SetFileSecurity", _
"str",$sFile, _
"dword", $DACL_SECURITY_INFORMATION, _
"ptr",DllStructGetPtr($strucSD))
DllClose($hAdvapi32)
If $return[0] = 0 Then Return SetError(1,0,0)
Return 1
EndFunc
Func _CopyFileSecurityDACL($sSFile, $sDFile)
If Not _SetFileSecurityDACL($sDFile,_GetFileSecurityDACL($sSFile)) Then SetError(1,0,0)
Return 1
EndFunc
Func _CheckSecurityDescriptor($Descriptor)
Local $strucSD = DllStructCreate("byte[" & (StringLen($Descriptor)/2)-1 & "]")
DllStructSetData($strucSD,1,$Descriptor)
Local $hAdvapi32 = DllOpen("advapi32.dll")
Local $return = DllCall($hAdvapi32,"int","IsValidSecurityDescriptor", _
"ptr",DllStructGetPtr($strucSD))
DllClose($hAdvapi32)
If $return[0] = 0 Then Return SetError(1,0,0)
Return 1
EndFunc
Func _GetFileSecurityOWNER($sFile)
If Not IsDeclared("OWNER_SECURITY_INFORMATION") Then Const $OWNER_SECURITY_INFORMATION = 0x1
Local $hAdvapi32 = DllOpen("advapi32.dll")
Local $return = DllCall($hAdvapi32,"long","GetFileSecurity", _
"str",$sFile, _
"dword", $OWNER_SECURITY_INFORMATION, _
"ptr",0, _
"dword",0, _
"dword*",0)
Local $strucSD = DllStructCreate("byte[" & $return[5] & "]")
$return = DllCall($hAdvapi32,"long","GetFileSecurity", _
"str",$sFile, _
"dword", $OWNER_SECURITY_INFORMATION, _
"ptr",DllStructGetPtr($strucSD), _
"dword",DllStructGetSize($strucSD), _
"dword*",0)
If Not $return[0] Then Return SetError(1,0,0)
DllClose($hAdvapi32)
Return DllStructGetData($strucSD,1)
EndFunc
Func _SetFileSecurityOWNER($sFile,$Descriptor)
If Not IsDeclared("OWNER_SECURITY_INFORMATION") Then Const $OWNER_SECURITY_INFORMATION = 0x1
Local $strucSD = DllStructCreate("byte[" & (StringLen($Descriptor)/2)-1 & "]")
DllStructSetData($strucSD,1,$Descriptor)
Local $hAdvapi32 = DllOpen("advapi32.dll")
Local $return = DllCall($hAdvapi32,"long","SetFileSecurity", _
"str",$sFile, _
"dword", $OWNER_SECURITY_INFORMATION, _
"ptr",DllStructGetPtr($strucSD))
DllClose($hAdvapi32)
If $return[0] = 0 Then Return SetError(1,0,0)
Return 1
EndFunc
Func _CopyFileSecurityOWNER($sSFile, $sDFile)
If Not _SetFileSecurityOWNER($sDFile,_GetFileSecurityOWNER($sSFile)) Then SetError(1,0,0)
Return 1
EndFunc
Füge doch einfach eine Abfrage ein, wo der User wählen muß: Datei od. Ordner - und dann öffnest du den entsprechenden Dialog.
Die Idee ist ja naheliegend, aber ich dachte es gäbe eine Lösung ohne eine zusätzliche Abfrage.
Gibt es eine Möglichkeit einen vorhandenen Ordner, bzw. eine vorhandene Datei mittels eines Dialoges auszuwählen ?
"FileOpenDialog" wählt nur Dateien und lässt sich nicht mit einem Ordner bestätigen, "FileSelectFolder" wählt nur Ordner aus und funktioniert nicht mit Dateien.
Ich möchte aber das der Anwender entweder eine vorhandene Datei oder einen vorhandenen Ordner wählen kann.
Gibt es dafür eine Lösung ?
Dank der Hilfe, kann ich die Workstation-Informationen nun per WinApi auslesen.
Ich will euch das fertige Script nicht vorenthalten...
; Funktion '_NetWkstaGetInfo' von micha_he & Prog@ndy
Func _NetWkstaGetInfo($sServer)
; Rückgabe:
; Array mit 5 Felder enthaelt: [0] = Platform_ID
; [1] = Computername
; [2] = Workgroup
; [3] = Major-Version
; [4] = Minor-Version
If Not IsDeclared ("Const $PLATFORM_ID_DOS") Then Const $PLATFORM_ID_DOS = 300
If Not IsDeclared ("Const $PLATFORM_ID_OS2") Then Const $PLATFORM_ID_OS2 = 400
If Not IsDeclared ("Const $PLATFORM_ID_NT") Then Const $PLATFORM_ID_NT = 500
If Not IsDeclared ("Const $PLATFORM_ID_OSF") Then Const $PLATFORM_ID_OSF = 600
If Not IsDeclared ("Const $PLATFORM_ID_VMS") Then Const $PLATFORM_ID_VMS = 700
Local $daten[5], $sName, $sBuffer, $return
Local $_WKSTA_INFO_100 = "dword;ptr;ptr;dword;dword"
While StringLeft($sServer,2) <> "\\"
$sServer = "\" & $sServer
Wend
Local $return = DllCall("netapi32.dll","int","NetWkstaGetInfo", _
"wstr",$sServer, _
"int",100, _
"ptr*",0)
If $return[0] Then
MsgBox(0,"Fehler","Fehler beim DllCall 'NetWkstaGetInfo'")
Else
$sBuffer = DllStructCreate($_WKSTA_INFO_100,$return[3])
Switch DllStructGetData($sbuffer,1)
Case $PLATFORM_ID_DOS
$daten[0] = "DOS"
Case $PLATFORM_ID_OS2
$daten[0] = "OS2"
Case $PLATFORM_ID_NT
$daten[0] = "NT"
Case $PLATFORM_ID_OSF
$daten[0] = "OSF"
Case $PLATFORM_ID_VMS
$daten[0] = "VMS"
EndSwitch
$daten[1] = _PtrStringRead(DllStructGetData($sBuffer,2),True)
$daten[2] = _PtrStringRead(DllStructGetData($sBuffer,3),True)
$daten[3] = DllStructGetData($sbuffer,4)
$daten[4] = DllStructGetData($sbuffer,5)
EndIf
$return = DllCall("netapi32.dll","int","NetApiBufferFree", _
"ptr",DllStructGetPtr($sBuffer))
If $return[0] Then
MsgBox(0,"Fehler","Fehler beim DllCall 'NetApiBufferFree'")
EndIf
Return $daten
EndFunc ; Ende der Funktion '_NetWkstaGetInfo'
; Prog@ndy
Func _PtrStringLen($ptr,$IsUniCode=False)
Local $UniCodeFunc=""
If $IsUniCode Then $UniCodeFunc = "W"
Local $ret = DllCall("kernel32.dll","int","lstrlen"&$UniCodeFunc,"ptr",$ptr)
If @error Then Return SetError(1,0,-1)
Return $ret[0]
EndFunc
; Prog@ndy
Func _PtrStringRead($ptr,$IsUniCode=False,$StringLen=-1)
Local $UniCodeString=""
If $IsUniCode Then $UniCodeString = "W"
If $StringLen < 1 Then $StringLen = _PtrStringLen($ptr,$IsUniCode)
If $StringLen < 1 Then Return SetError(1,0,"")
Local $struct = DllStructCreate($UniCodeString&"char["&($StringLen+1)&"]",$ptr)
Return DllStructGetData($struct,1)
EndFunc
Besten Dank
micha_he
Danke für den Tip, man lernt scheinbar nie aus, jedenfalls nicht wenn man DllCall's nutzen will. Ich habe jetzt schon einige Deiner Tips beherzigt und es klappt größtenteils auch schon ganz gut. Nun stehe ich aber wieder vor dem Problem, das ich den String nicht ermitteln kann, auf den die beiden Pointer (Computername & Langroup) zeigen. Kann mir nochmal jemand einen Tip geben ?
#include <array.au3>
[/autoit] [autoit][/autoit] [autoit]If Not IsDeclared ("Const $PLATFORM_ID_DOS") Then Const $PLATFORM_ID_DOS = 300
If Not IsDeclared ("Const $PLATFORM_ID_OS2") Then Const $PLATFORM_ID_OS2 = 400
If Not IsDeclared ("Const $PLATFORM_ID_NT") Then Const $PLATFORM_ID_NT = 500
If Not IsDeclared ("Const $PLATFORM_ID_OSF") Then Const $PLATFORM_ID_OSF = 600
If Not IsDeclared ("Const $PLATFORM_ID_VMS") Then Const $PLATFORM_ID_VMS = 700
Dim $array
[/autoit] [autoit][/autoit] [autoit]$array = _NetWkstaGetInfo("\\"&@ComputerName)
_ArrayDisplay($array)
Func _NetWkstaGetInfo($sServer)
Local $daten [5], $sName
Local $_WKSTA_INFO_100 = "dword;ptr;ptr;dword;dword"
Local $return = DllCall("netapi32.dll","int","NetWkstaGetInfo", _
"wstr",$sServer, _
"int",100, _
"ptr*",0)
If $return[0] Then
MsgBox(0,"Fehler","Fehler beim DllCall 'NetWkstaGetInfo'")
Else
$sBuffer = DllStructCreate($_WKSTA_INFO_100,$return[3])
Switch DllStructGetData($sbuffer,1)
Case $PLATFORM_ID_DOS
$daten[0] = "DOS"
Case $PLATFORM_ID_OS2
$daten[0] = "OS2"
Case $PLATFORM_ID_NT
$daten[0] = "NT"
Case $PLATFORM_ID_OSF
$daten[0] = "OSF"
Case $PLATFORM_ID_VMS
$daten[0] = "VMS"
EndSwitch
; hier bekomme ich den String nicht...
$daten[1] = DllStructGetData(DllStructCreate("str",DllStructGetData($sBuffer,2)),1)
;daten[2] kommt noch
$daten[3] = DllStructGetData($sbuffer,4)
$daten[4] = DllStructGetData($sbuffer,5)
EndIf
$return = DllCall("netapi32.dll","int","NetApiBufferFree", _
"ptr",DllStructGetPtr($sBuffer))
If $return[0] Then
MsgBox(0,"Fehler","Fehler beim DllCall 'NetApiBufferFree'")
EndIf
Return $daten
EndFunc
Gruß
micha_he
Ich habe folgendes Script, um die Windows-Version eines entfernten Systems zu ermitteln.
Hatte eigentlich gehofft, damit die Major & Minor-Version zurückzubekommen. Aber irgendwo hat sich mal wieder ein Fehler eingeschlichen. Die schwierigen DllCall's. Kann mir jemand erklären was ich flasch gemacht habe ?
_NetWkstaGetInfo("\\Servername")
[/autoit] [autoit][/autoit] [autoit]Func _NetWkstaGetInfo($sServer)
Local $sBuffer = DllStructCreate("dword;ptr;ptr;dword;dword")
Local $return = DllCall("netapi32.dll","int","NetWkstaGetInfo", _
"wstr",$sServer, _
"int",100, _
"ptr",DllStructGetPtr($sBuffer))
If $return[0] Then
MsgBox(0,"Fehler","Fehler beim DllCall 'NetWkstaGetInfo'")
Else
MsgBox(0,"Ausgabe",DllStructGetData($sbuffer,4))
EndIf
$return = DllCall("netapi32.dll","int","NetApiBufferFree", _
"ptr",DllStructGetPtr($sBuffer))
If $return[0] Then
MsgBox(0,"Fehler","Fehler beim DllCall 'NetApiBufferFree'")
EndIf
EndFunc
Besten Dank
micha_he
Hallo,
Du könntest ja das Passwort mittels _StringEncrypt() in eine Datei hinterlegen. Dann müstest Du jeweils nur das PW anpasseneddy_erpel
und die Datei kann im Netzwerk auf einem Server liegen. Von dort (verschlüsselt) lesen, mit dem Schlüssel im Programm entschlüsseln und an das "RunAsSet" weitergeben.
Wenn sich das Passwort dann alle 60 Tage ändert, wird es einfach einmal, verschlüsselt neu in die Datei geschrieben.
Ist die Idee nicht brauchbar ? Außer diesem einen Tool, kann eigentlich niemand mit der verschlüsselten Datei etwas anfangen, auch wenn er sie lesen kann.
Gruß
micha_he
Edit: Hab gerade gesehen, der Beitrag ist schon etwas her ..... 
GUICtrlSetState([Control-Id], $GUI_FOCUS)
Ich hätte gerne ein Programm geschrieben, welches auf alle Arbeitsstationen (W2k & WXP) zugreift. Auf die Domänencontroller und die Dateiserver, soll es nicht zugreifen.
Also hätte ich gerne, das die o.a. Funktion alle Systeme außer Windows NT-Server & Windows 2000/2003/2008 Server, zurückgibt.
Leider tut sie das nicht. Aber Deine Aussage kann natürlich passen. Auf den W2k-Workstation-Systemen, läuft auch der Server-Dienst !
Hi,
dies geht etwas schneller:
Mega
Schöne Funktion. Wollte sie gerade nutzen, da musste ich einen Fehler / ein Problem feststellen:
Ob "$SV_TYPE_WORKSTATION" oder "$SV_TYPE_SERVER" ergibt das gleiche Ergebnis. Ich hatte erwartet das bei ersterem die Workstation's und beim zweiten nur die Server zurückgegeben werden. War aber nicht der Fall. Bei den anderen Parametern schein das richtige Ergebnis herauszukommen.
Kann es sein das sich dort noch ein Fehler eingeschlichen hat ?
Gruß
micha_he
200 Zeilen If ???
Grundsätzlich würde rückwärts auch so gehen :
#include <GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit]#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Str2Asc - Asc2Str", 155, 58, 193, 125)
$Label1 = GUICtrlCreateLabel("In", 0, 3, 31, 17)
$1 = GUICtrlCreateInput("", 33, 0, 31, 21)
$Label2 = GUICtrlCreateLabel("Out", 87, 3, 31, 17)
$2 = GUICtrlCreateInput("", 117, 0, 31, 21)
$Button1 = GUICtrlCreateButton("Generate", 42, 30, 67, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$3 = GUICtrlRead ($1)
If $3 >= 33 and $3 <= 255 Then
GUICtrlSetData ($2, Chr($3))
Else
GUICtrlSetData ($2,Asc ($3))
EndIf
EndSwitch
WEnd
Wenn in der Funktion sowieso ein "REDIM" passiert, wäre das aber nicht ausschlaggebend...
