Beiträge von mauric

mauric

Hallo Zusammen
Ich stehe vor einem Problem und wollte hier gerne um Rat bitten.
Wenn ich mit der SW-Columbus eine neue Applikation vorbereite
erstellt mir diese Anwendung eine art "Snapshot" der Registrierung
Dieses File beinhaltet viel Text teile so wie "RegStrings" es kommt
immer wieder vor dass ich hierbei aus diesem file gerne ein
gültiges REG file erstellen möchte.

Wie ist dieser Aufwand abzuwägen? kann ich um ein mögliches
Muster oder einen idee Vorschlag bitten, wie ich dies angehen
könnte damit ich einen möglichen Pfad sehen könnte.

Möchte mich schon jetzt für alle Informationen bedanken und
wünsche einen ganz schönen Abend!

Gruss

Spoiler anzeigen

Register64 'HKey_Local_Machine' 'SYSTEM\CurrentControlSet\Control\Class\{4D36E968-E325-11CE-BFC1-08002BE10318}\0002' 'InfPath' 'oem12.inf' 'REG_SZ'
Register64 'HKey_Local_Machine' 'SYSTEM\CurrentControlSet\Control\Class\{4D36E968-E325-11CE-BFC1-08002BE10318}\0002' 'InfSection' 'gdihook5' 'REG_SZ'
Register64 'HKey_Local_Machine' 'SYSTEM\CurrentControlSet\Control\Class\{4D36E968-E325-11CE-BFC1-08002BE10318}\0002' 'MatchingDeviceId' 'pci_gdihook5_hwid' 'REG_SZ'
Register64 'HKey_Local_Machine' 'SYSTEM\CurrentControlSet\Control\Class\{4D36E968-E325-11CE-BFC1-08002BE10318}\0002' 'ProviderName' 'NSL' 'REG_SZ'
Register64 'HKey_Local_Machine' 'SYSTEM\CurrentControlSet\Control\Class\{4D36E968-E325-11CE-BFC1-08002BE10318}\0002\Settings' 'Attach.ToDesktop' '1' 'REG_DWORD'
Register64 'HKey_Local_Machine' 'SYSTEM\CurrentControlSet\Control\Class\{4D36E968-E325-11CE-BFC1-08002BE10318}\0002\Settings' 'Device Description' 'PCI GDIHOOK5' 'REG_SZ'
Register64 'HKey_Local_Machine' 'SYSTEM\CurrentControlSet\Control\Class\{4D36E968-E325-11CE-BFC1-08002BE10318}\0002\Settings' 'InstalledDisplayDrivers' 'H#676469686F6F6B35' 'REG_MULTI_SZ' /ADD
Register64 'HKey_Local_Machine' 'SYSTEM\CurrentControlSet\Control\Class\{4D36E968-E325-11CE-BFC1-08002BE10318}\0002\Settings' 'MirrorDriver' '1' 'REG_DWORD'
Register64 'HKey_Local_Machine' 'SYSTEM\CurrentControlSet\Control\Class\{4D36E968-E325-11CE-BFC1-08002BE10318}\0002\Settings' 'VgaCompatible' '0' 'REG_DWORD'
Register64 'HKey_Local_Machine' 'SYSTEM\CurrentControlSet\Control\Class\{4D36E96B-E325-11CE-BFC1-08002BE10318}' 'UpperFilters' 'H#6E736B62666C7472' 'REG_MULTI_SZ' /ADD
Register64 'HKey_Local_Machine' 'SYSTEM\CurrentControlSet\Control\DeviceClasses\{5b45201d-f2f2-4f3b-85bb-30ff1f953599}\##?#ROOT#DISPLAY#0000#{5b45201d-f2f2-4f3b-85bb-30ff1f953599}' 'DeviceInstance' 'ROOT\DISPLAY\0000' 'REG_SZ'
Register64 'HKey_Local_Machine' 'SYSTEM\CurrentControlSet\Control\DeviceClasses\{5b45201d-f2f2-4f3b-85bb-30ff1f953599}\##?#ROOT#DISPLAY#0000#{5b45201d-f2f2-4f3b-85bb-30ff1f953599}\#' 'SymbolicLink' '\\?\ROOT#DISPLAY#0000#{5b45201d-f2f2-4f3b-85bb-30ff1f953599}' 'REG_SZ'
Register64 'HKey_Local_Machine' 'SYSTEM\CurrentControlSet\Control\DeviceClasses\{5b45201d-f2f2-4f3b-85bb-30ff1f953599}\##?#ROOT#DISPLAY#0000#{5b45201d-f2f2-4f3b-85bb-30ff1f953599}\#\Control' 'Linked' '1' 'REG_DWORD'
Register64 'HKey_Local_Machine' 'SYSTEM\CurrentControlSet\Control\DeviceClasses\{5b45201d-f2f2-4f3b-85bb-30ff1f953599}\##?#ROOT#DISPLAY#0000#{5b45201d-f2f2-4f3b-85bb-30ff1f953599}\Control' 'ReferenceCount' '1' 'REG_DWORD'
Register64 'HKey_Local_Machine' 'SYSTEM\CurrentControlSet\Control\SafeBoot\Network\client32' '' 'Service' 'REG_SZ'
Register64 'HKey_Local_Machine' 'SYSTEM\CurrentControlSet\Control\Session Manager\DOS Devices' 'KEYBOARDCLASS0' '\Device\KeyboardClass0' 'REG_SZ'
Register64 'HKey_Local_Machine' 'SYSTEM\CurrentControlSet\Control\Session Manager\DOS Devices' 'POINTERCLASS0' '\Device\PointerClass0' 'REG_SZ'
Register64 'HKey_Local_Machine' 'SYSTEM\CurrentControlSet\Control\Video\{8568FD2E-9FAE-496B-B65C-0AA5FD4E2FDE}'
Register64 'HKey_Local_Machine' 'SYSTEM\CurrentControlSet\Control\Video\{8568FD2E-9FAE-496B-B65C-0AA5FD4E2FDE}\0000' 'Attach.ToDesktop' '1' 'REG_DWORD'
Register64 'HKey_Local_Machine' 'SYSTEM\CurrentControlSet\Control\Video\{8568FD2E-9FAE-496B-B65C-0AA5FD4E2FDE}\0000' 'Device Description' 'PCI GDIHOOK5' 'REG_SZ'
Register64 'HKey_Local_Machine' 'SYSTEM\CurrentControlSet\Control\Video\{8568FD2E-9FAE-496B-B65C-0AA5FD4E2FDE}\0000' 'InstalledDisplayDrivers' 'H#676469686F6F6B35' 'REG_MULTI_SZ' /ADD
Register64 'HKey_Local_Machine' 'SYSTEM\CurrentControlSet\Control\Video\{8568FD2E-9FAE-496B-B65C-0AA5FD4E2FDE}\0000' 'MirrorDriver' '1' 'REG_DWORD'
Register64 'HKey_Local_Machine' 'SYSTEM\CurrentControlSet\Control\Video\{8568FD2E-9FAE-496B-B65C-0AA5FD4E2FDE}\0000' 'VgaCompatible' '0' 'REG_DWORD'
Register64 'HKey_Local_Machine' 'SYSTEM\CurrentControlSet\Control\Video\{8568FD2E-9FAE-496B-B65C-0AA5FD4E2FDE}\0000\VolatileSettings' '{5b45201d-f2f2-4f3b-85bb-30ff1f953599}' 'H#5C003F003F005C0052004F004F005400230044004900530050004C00410059002300300030003000300023007B00350062003400350032003000310064002D0066003200660032002D0034006600330062002D0038003500620062002D003300300066006600310066003900350033003500390039007D00' 'REG_BINARY'
Register64 'HKey_Local_Machine' 'SYSTEM\CurrentControlSet\Control\Video\{8568FD2E-9FAE-496B-B65C-0AA5FD4E2FDE}\Video' 'Service' 'gdihook5' 'REG_SZ'
Register64 'HKey_Classes_Root' 'Local Settings\Software\Microsoft\Windows\Shell\BagMRU' 'NodeSlots' 'H#0202020202020202020202020202020202020200020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202' 'REG_BINARY'
Register64 'HKey_Classes_Root' 'Local Settings\Software\Microsoft\Windows\Shell\BagMRU\0\0' 'MRUListEx' 'H#00000000040000000600000005000000010000000200000003000000FFFFFFFF' 'REG_BINARY'
Register64 'HKey_Classes_Root' 'Local Settings\Software\Microsoft\Windows\Shell\BagMRU\0\0\0' 'MRUListEx' 'H#0100000000000000FFFFFFFF' 'REG_BINARY'

Register64 'HKey_Users' '.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Connections' 'DefaultConnectionSettings' 'H#460000000B000000090000000000000000000000000000000400000000000000905A3CAE8ADDCF0100000000000000000000000001000000020000000A29871F000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000' 'REG_BINARY'
Register64 'HKey_Users' '.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Connections' 'SavedLegacySettings' 'H#460000000C000000090000000000000000000000000000000400000000000000905A3CAE8ADDCF0100000000000000000000000001000000020000000A29871F000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000' 'REG_BINARY'
Register64 'HKey_Users' '.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Wpad\{F584DEDC-87C7-4EC9-97EE-29BCCE997028}' 'WpadDecisionTime' 'H#B04A830E6EE1CF01' 'REG_BINARY'
Register64 'HKey_Current_User' 'Software\Classes\Local Settings\MuiCache\3B\52C64B7E' '@C:\Windows\system32\SampleRes.dll,-105' '{nil}' 'REG_SZ'
Register64 'HKey_Current_User' 'Software\Classes\Local Settings\MuiCache\3B\52C64B7E' '@C:\Windows\system32\SampleRes.dll,-106' '{nil}' 'REG_SZ'
Register64 'HKey_Current_User' 'Software\Classes\Local Settings\MuiCache\3B\52C64B7E' '@C:\Windows\system32\SampleRes.dll,-107' '{nil}' 'REG_SZ'
Register64 'HKey_Current_User' 'Software\Classes\Local Settings\MuiCache\3B\52C64B7E' '@C:\Windows\system32\SampleRes.dll,-108' '{nil}' 'REG_SZ'
Register64 'HKey_Current_User' 'Software\Classes\Local Settings\MuiCache\3B\52C64B7E' '@C:\Windows\system32\SampleRes.dll,-116' '{nil}' 'REG_SZ'
Register64 'HKey_Current_User' 'Software\Classes\Local Settings\MuiCache\3B\52C64B7E' '@C:\Windows\system32\SampleRes.dll,-117' '{nil}' 'REG_SZ'
Register64 'HKey_Current_User' 'Software\Classes\Local Settings\MuiCache\3B\52C64B7E' '@C:\Windows\system32\SampleRes.dll,-118' '{nil}' 'REG_SZ'
Register64 'HKey_Current_User' 'Software\Classes\Local Settings\MuiCache\3B\52C64B7E' '@C:\Windows\system32\SnippingTool.exe,-15051' '{nil}' 'REG_SZ'

mauric

Hallo BugFix
Danke der schellen Antwort!, doch bitte wie baue ich diesen Zähler korrekt ein ?
momentan lauft mir dieses ding wie du es sagst endlos und lässt sich fast nicht mehr abbrechen.

Code

[spoiler]
DriveMapAdd("I:", \\1.2.3.4\LaufwerkShare, 0,"Login", "Passwort")

$x = 10;                  es soll 10 mal durchlaufen
   While 1
   Sleep(100)           wartet immer 100
   If $x = 10 then
      if FileExists("I:\") Then _Info()
      EndIf
   WEnd
   EndFunc

Alles anzeigen

[/spoiler]

mauric

Hallo Zusammen
Ich möchte gerne eine Schleife Programmieren die mir eine
Laufwerksverbindung erstellt bis dieses Laufwerk existiert.

Hier mein Script:

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>

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

_Connector()
Func _Connector()

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

$GUI = GUICreate("Connector v1.0", 300, 100)
$FileMenu = GUICtrlCreateMenu("&?")
$fileitem = GUICtrlCreateMenuItem("About", $filemenu)

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

While 1
DriveMapAdd("I:", \\1.2.3.4\LaufwerkShare, 0,"Login", "Passwort")
Sleep(5)
if FileExists("I:\") then _Info()
WEnd

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

Func _Info()
GUICtrlCreateLabel("Connection made Successful:", 8, 8, 250, 27)
$Exit = GUICtrlCreateButton("OK", 174, 29, 100, 25)
Guisetstate()

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Fileitem
MsgBox (0,"","Drive Connector" )
Case $Exit
Exit
EndSwitch
WEnd

[/autoit]

Ich bitte um Unterstützung!
Danke vielmals
Mauri

mauric

Danke misterspeed der schnellen Antwort, Ich habe kurz eine MSGBOX nun erstellt und es erscheinen nun 521 löschnugsmeldungen.
Ich habe aber bemerkt dass der letzte "unterstrichene teil" ein "Valuename" ist aber ich sollte den "KEYNAME" löschen. Also den im Quadrat markierten bereich.

Mit der IF Schlefe habe ich versucht eine "Zeile" nach oben zu springen und diesen eintrag "KEYNAME" so zu löschen. bitte nicht Schlagen
Danke Gruss
Mauri

mauric

Hallo Zusammen
Ich weiss genau was ich will und ich weiss auch ganz genau was ich mache :-)!.

Leider werden diese Einträge immer noch nicht gelöscht. Ich vemute dass es noch mit "Key" oder "Value" zu tun hatt.
Wäre um Hilfe wirklich agewiesen.
Danke
Mauri

mauric

Es sind wirklich alles XP Client's

mauric

Danke der Meldungen!
Bin nun auch wieder ein Stück weiter gekommen doch ein Löschen auch wenn ich Adminrechte habe ist immer noch nicht möglich
Bitte um Hilfe
Mauri

Spoiler anzeigen

[autoit]

#include<File.au3>
#include<array.au3>
$sFound = ''
$sFile = @ScriptDir & "\Test.txt"
$aFile = _RegSearch($sFound, 'HKLM', 'Citrix')

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

$aFile = StringSplit($sFound, @LF)
_ArrayDisplay($aFile)

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

;$counter = _ArrayAdd($aFile, "End") - 2
$counter = _aFile[0] - 1
msgbox(0, "zähler", $counter)

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

For $i = 1 to $counter
$aFile1 = StringSplit($aFile[$i], "\")
$KeyValue = $aFile1[$aFile1[0]]
$KeyName = $aFile1[$aFile1[0] - 1]
RegDelete($aFile[$i])
Next

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

$sFound = ''

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

$aFile = StringSplit($sFound, @LF)
_ArrayDisplay($aFile)

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

;EndIf
Func _RegSearch(ByRef $sFound, $sRegPath, $sSearch)
Local $sKey, $sVal, $sVar, $i = 0, $j = 0
While True
$i += 1
$sKey = RegEnumKey($sRegPath, $i)
If @error Then ExitLoop
_RegSearch($sFound, $sRegPath & '\' & $sKey, $sSearch)
$j = 0
While True
$j += 1
$sVal = RegEnumVal($sRegPath & '\' & $sKey, $j)
If @error Then ExitLoop
$sVar = RegRead($sRegPath & '\' & $sKey, $sVal)
If StringInStr($sVar, $sSearch, 2) Then $sFound &= $sRegPath & '\' & $sKey & '\' & $sVal & @LF
WEnd
WEnd
Return
EndFunc

[/autoit]

mauric

Hallo Zusammen
Habe hier im Forum ein Script gefunden dass ich gerne für meine Ansprüche noch einwenig bearbeiten möchte, deshalb wäre ich Euch sehr Dankbar um Eure hilfe.

Nachdem die Werte aus der Registrierung gezogen worden sind würde ich gern an den Werten HKEY.... folgendes hinzufügen ("[-" HKEY) und am Ende der Zeile eine Abschliessende "]"). mache ich dies mit Stringsearch und StringRegExpReplace

Danke für die Hilfe oder Info's die ich hier bekommen kann.
Mauri

Spoiler anzeigen

[autoit]

#include<File.au3>
#include<array.au3>
$sFound = ''
;$sFile = @ScriptDir & "\Test.txt"
_RegSearch($sFound, 'HKLM', 'Citrix')
If IsArray($sFound) Then
_ArrayDisplay($sFound)
EndIf

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

Func _RegSearch(ByRef $sFound, $sRegPath, $sSearch)
Local $sKey, $sVal, $sVar, $i = 0, $j = 0
While True
$i += 1
$sKey = RegEnumKey($sRegPath, $i)
If @error Then ExitLoop
_RegSearch($sFound, $sRegPath & '\' & $sKey, $sSearch)
$j = 0
While True
$j += 1
$sVal = RegEnumVal($sRegPath & '\' & $sKey, $j)
If @error Then ExitLoop
$sVar = RegRead($sRegPath & '\' & $sKey, $sVal)
If StringInStr($sVar, $sSearch, 2) Then $sFound &= $sRegPath & '\' & $sKey & '\' & $sVal & @CRLF
WEnd
WEnd
Return
EndFunc

[/autoit]

mauric

Hallo Mauri
So funktionierts

Spoiler anzeigen

[autoit]

$s_helo = "ehlo"
$s_trace = -1
$Response = _INetSmtpMail ($s_SmtpServer, $s_FromAddress, $s_ToAddress, $s_data, $s_Subject, $as_Body, $s_helo, $s_trace)

[/autoit]

Danke Gruss
Mauri

mauric

Hallo Zusammen
Haben einen neuen Exchnage Server 2010 bekommen, Port 25 steht offen und ein versuch mit Telnet eine Email zu versenden klappt auch soweit.
Leider will mein Script noch nicht denn Job durchführen daher wäre ich Euch sehr dankbar um Hilfe.
Besten Danke
Gruss
Mauri

Spoiler anzeigen

[autoit]

#include <INet.au3>
$s_SmtpServer = "emailserver052local"
;$s_SmtpServer = "10.1.1.16 25"
$s_helo = "ehlo"
$s_FromName = "TEST EMAIL von Script"
$s_FromAddress = "email@luzern.ch"
$s_ToAddress = "benutzer@luzern.ch"
;$s_FromAddress = "mail from:email@luzern.ch"
;$s_ToAddress = "rcpt to:benutzer@luzern.ch"
$s_data = "data"
$s_Subject = "My Test UDF"
Dim $as_Body[4]
$as_Body[0] = "11111111111"
$as_Body[1] = "22222222222"
$as_Body[2] = "33333333333"
$as_Body[3] = "."
;$Response = _INetSmtpMail ($s_SmtpServer, $s_helo, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body, $s_trace)
$Response = _INetSmtpMail ($s_SmtpServer, $s_helo, $s_FromAddress, $s_ToAddress, $s_data, $s_Subject, $as_Body)
$err = @error
If $Response = 1 Then
MsgBox(0, "Success!", "Mail sent")
Else
MsgBox(0, "Error!", "Mail failed with error code " & $err)
EndIf

[/autoit]

mauric

Hallo Zusammen
Kann mir hierbei jemand bitte einen Tip geben weshalb ich keine AD Member informationen bekomme?, es wird auch kein ArrayDisplay angezeigt.Server 2008 R2.
Danke für jeden Tip oder verbesserung
MC

Spoiler anzeigen

[autoit]

#AutoIt3Wrapper_AU3Check_Parameters= -d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
#AutoIt3Wrapper_AU3Check_Stop_OnWarning=Y
#Include <ad.au3>
#Include <File.au3>
Global $sFile, $TextFileName, $username
; Open Connection to the Active Directory
_AD_Open()
$username = InputBox("Username", "Der Benutzername wird gleich aus dem AD gesucht")
MsgBox(64,"Username ist;", $username)
;Global $aOUs =
$aGroups = _AD_GetUserGroups("CN="& $username &",OU=Intern,OU=Users,OU=LLL,DC=LLL-Lusanne,DC=local", 1)
_ArrayDisplay($aGroups)

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

$sFile = @ScriptDir & "_benutzername aus array.txt"

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

_AD_Close()

[/autoit]

[AD.AU3] - Nur _GetUserGroups wurde ausgeschniten

Spoiler anzeigen

[autoit]

; #FUNCTION# ====================================================================================================================
; Name...........: _AD_GetUserGroups
; Description ...: Returns an array of group names that the user is immediately a member of.
; Syntax.........: _AD_GetUserGroups([$sAD_User = @UserName[, $fAD_IncludePrimaryGroup = 0]])
; Parameters ....: $sAD_User - Optional: User for which the group membership is to be returned (default = @Username). Can be specified as Fully Qualified Domain Name (FQDN) or sAMAccountName
; $fAD_IncludePrimaryGroup - Optional: include the primary group to the return list (default = 0)
; Return values .: Success - One-based one dimensional array of group names (FQDN) the user is a member of
; Failure - "", sets @error to:
; |1 - Specified user does not exist
; Author ........: Jonathan Clelland
; Modified.......: water
; Remarks .......: Works for computers or groups as well.
; Related .......: _AD_IsMemberOf, _AD_GetUserPrimaryGroup, _AD_RecursiveGetMemberOf
; Link ..........:
; Example .......: Yes
; ===============================================================================================================================
Func _AD_GetUserGroups($sAD_User = @UserName, $fAD_IncludePrimaryGroup = 0)
If _AD_ObjectExists($sAD_User) = 0 Then Return SetError(1, 0, "")
Local $sAD_Property = "sAMAccountName"
If StringMid($sAD_User, 3, 1) = "=" Then $sAD_Property = "distinguishedName" ; FQDN provided
Local $sAD_Query = "<LDAP://" & $sAD_HostServer & "/" & $sAD_DNSDomain & ">;(" & $sAD_Property & "=" & $sAD_User & ");ADsPath;subtree"
Local $oAD_RecordSet = $oAD_Connection.Execute($sAD_Query) ; Retrieve the FQDN for the logged on user
Local $sAD_LDAPEntry = $oAD_RecordSet.fields(0).value
Local $oAD_Object = _AD_ObjGet($sAD_LDAPEntry) ; Retrieve the COM Object for the logged on user
Local $aAD_Groups = $oAD_Object.GetEx("memberof")
If $fAD_IncludePrimaryGroup Then _ArrayAdd($aAD_Groups, _AD_GetUserPrimaryGroup($sAD_User))
_ArrayInsert($aAD_Groups, 0, UBound($aAD_Groups))
Return $aAD_Groups
EndFunc ;==>_AD_GetUserGroups

[/autoit]

Ansonst hier der Link zum File: http://www.autoitscript.com/forum/index.php?app=core&module=attach&section=attach&attach_id=32668

mauric

Hallo SEuBo
Doch da habe ich wirklich was uebersehen. Danke dir Vielmals
Schöne Abend Gruss
Mauri

mauric

Die Anwendung lauft relativ weit doch beim klick auf èbernehmen, erscheint immer die Meldung "Error in Expression Line 96".
Bitte um Hilfe, Ich sehe mein Fehler nicht.
Danke Mauri

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
Opt('MustDeclareVars', 1)
languagesettings()
Func languagesettings()
Local $msg, $nMsg, $os, $office, $keyboard, $applay

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

;If @OSVersion = "WIN_7" Then
; Else
; MsgBox(0, "Info", "Die Anwendung wurde NUR für Windows 7 Multilanguage entwickelt")
; Exit
;EndIf
GUICreate("Sprachwahl",175 ,210) ; Fnester mit Titel wird erstellt
GuiCtrlCreateLabel("Betriebsystem Sprache", 26, 24)
$os = GUICtrlCreateCombo("", 25, 40, 120) ; Auswahlfenster Leer
GUICtrlSetData(-1, "Deutsch|Englisch|Franzoesisch", "") ; nachfolgende möglichkeiten bestehen

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

GuiCtrlCreateLabel("Office Sprache", 26, 75)
$office = GUICtrlCreateCombo("", 25, 90, 120) ; Auswahlfenster Leer
GUICtrlSetData(-1, "Deutsch|Englisch|Franzoesisch", "") ; nachfolgende möglichkeiten bestehen

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

GuiCtrlCreateLabel("Tastatur Layout", 26, 125)
$keyboard = GUICtrlCreateCombo("", 25, 140, 120) ; Auswahlfenster Leer
GUICtrlSetData(-1, "Deutsch_Swiss|Deutsch Franz|Deutschland|Englisch US|", "") ; nachfolgende möglichkeiten bestehen

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

$applay = GUICtrlCreateButton(" Übernehmen ", 25, 180, 120)
GUISetState()
While 1
If GUICtrlRead($os) And GUICtrlRead($office) And GUICtrlRead($keyboard) <> "" Then
If BitAND(GUICtrlGetState($applay), $GUI_DISABLE) Then GUICtrlSetState($applay, $GUI_ENABLE)
Else
If BitAND(GUICtrlGetState($applay), $GUI_ENABLE) Then GUICtrlSetState($applay, $GUI_DISABLE)
EndIf
$nMsg = GUIGetMsg()
Switch $nMsg

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

Case $GUI_EVENT_CLOSE
Exit
Case $applay
;MsgBox(64, "", GUICtrlRead($os)&GUICtrlRead($office),
OSSelection($os)
OfficeSelection($office)
KeyboardSelection($keyboard)

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

MsgBox(64, "Info","Die Sprachen wurden angepasst, " @CR _
"logout wird durch klicken von Button <OK> durchgeführt")
RunWait(@ComSpec & " /c " & "shutdown /l", "", @SW_HIDE)
EndSwitch
WEnd
EndFunc ;==>EndFunction languagesettings

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

Func OSSelection($os)
switch GUICtrlRead($os)
Case "Deutsch"
RegWrite("HKEY_CURRENT_USER\Control Panel\Desktop", "PreferredUILanguages", "REG_MULTI_SZ", "de-DE")
Case "Englisch"
RegWrite("HKEY_CURRENT_USER\Control Panel\Desktop", "PreferredUILanguages", "REG_MULTI_SZ", "en-US")
Case "Franzoesisch"
RegWrite("HKEY_CURRENT_USER\Control Panel\Desktop", "PreferredUILanguages", "REG_MULTI_SZ", "fr-FR")
EndSwitch
EndFunc ;==>EndFunction OSSelection
Func OfficeSelection($office)
switch GUICtrlRead($office)
Case "Deutsch"
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Common\LanguageResources", "UILanguage", "REG_DWORD", 407)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Common\LanguageResources", "HelpLanguage", "REG_DWORD", 407)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Common\LanguageResources", "INstallLanguage", "REG_DWORD", 807)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Common\LanguageResources", "PreviousInstallLanguage", "REG_DWORD", 409)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Common\LanguageResources", "MTTF", "REG_DWORD", 240)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Common\LanguageResources", "MTTA", "REG_DWORD", 240)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Common\LanguageResources", "PreviousUI", "REG_DWORD", 409)
Case "Englisch"
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Common\LanguageResources", "UILanguage", "REG_DWORD", 409)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Common\LanguageResources", "HelpLanguage", "REG_DWORD", 409)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Common\LanguageResources", "INstallLanguage", "REG_DWORD", 409)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Common\LanguageResources", "PreviousInstallLanguage", "REG_DWORD", 807)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Common\LanguageResources", "MTTF", "REG_DWORD", 225)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Common\LanguageResources", "MTTA", "REG_DWORD", 225)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Common\LanguageResources", "PreviousUI", "REG_DWORD", 407)
Case "Franzoesisch"
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Common\LanguageResources", "UILanguage", "REG_DWORD", 1036)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Common\LanguageResources", "HelpLanguage", "REG_DWORD", 1036)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Common\LanguageResources", "INstallLanguage", "REG_DWORD", 1036)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Common\LanguageResources", "PreviousInstallLanguage", "REG_DWORD", 807)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Common\LanguageResources", "MTTF", "REG_DWORD", 252)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Common\LanguageResources", "MTTA", "REG_DWORD", 252)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Common\LanguageResources", "PreviousUI", "REG_DWORD", 407)
EndSwitch
EndFunc ;==>EndFunction OfficeSelection
Func KeyboardSelection($keyboard)
switch GUICtrlRead($keyboard)
Case "Deutsch_Swiss"
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\CTF\LangBar", "ShowStatus", "REG_DWORD", 3)
RegDelete("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layout\DosKeybCodes")
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layout\DosKeybCodes")
RegDelete("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layout\DosKeybIDs")
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layout\DosKeybIDs")
RegWrite("HKEY_CURRENT_USER\Keyboard Layout\Preload", "1", "REG_SZ", "807")
RegDelete("HKEY_CURRENT_USER\Keyboard Layout\Preload", "2")
RegDelete("HKEY_CURRENT_USER\Keyboard Layout\Preload", "3")
RegDelete("HKEY_CURRENT_USER\Keyboard Layout\Preload", "4")
Case "Deutsch Franz"
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\CTF\LangBar", "ShowStatus", "REG_DWORD", 3)
RegDelete("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layout\DosKeybCodes")
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layout\DosKeybCodes")
RegDelete("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layout\DosKeybIDs")
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layout\DosKeybIDs")
RegWrite("HKEY_CURRENT_USER\Keyboard Layout\Preload", "1", "REG_SZ", "d0010807")
RegDelete("HKEY_CURRENT_USER\Keyboard Layout\Preload", "2")
RegDelete("HKEY_CURRENT_USER\Keyboard Layout\Preload", "3")
RegDelete("HKEY_CURRENT_USER\Keyboard Layout\Preload", "4")
Case "Deutschland"
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\CTF\LangBar", "ShowStatus", "REG_DWORD", 3)
RegDelete("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layout\DosKeybCodes")
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layout\DosKeybCodes")
RegDelete("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layout\DosKeybIDs")
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layout\DosKeybIDs")
RegWrite("HKEY_CURRENT_USER\Keyboard Layout\Preload", "1", "REG_SZ", "407")
RegDelete("HKEY_CURRENT_USER\Keyboard Layout\Preload", "2")
RegDelete("HKEY_CURRENT_USER\Keyboard Layout\Preload", "3")
RegDelete("HKEY_CURRENT_USER\Keyboard Layout\Preload", "4")
Case "Englisch US"
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\CTF\LangBar", "ShowStatus", "REG_DWORD", 3)
RegDelete("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layout\DosKeybCodes")
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layout\DosKeybCodes")
RegDelete("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layout\DosKeybIDs")
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layout\DosKeybIDs")
RegWrite("HKEY_CURRENT_USER\Keyboard Layout\Preload", "1", "REG_SZ", "409")
RegDelete("HKEY_CURRENT_USER\Keyboard Layout\Preload", "2")
RegDelete("HKEY_CURRENT_USER\Keyboard Layout\Preload", "3")
RegDelete("HKEY_CURRENT_USER\Keyboard Layout\Preload", "4")
EndSwitch
EndFunc ;==>EndFunction OfficeSelection

[/autoit]

mauric

"NT Authority\Network Service" aber mit diesem gehts nicht.

mauric

Hallo Zusammen
Habe ein Copy Script erstellt das ein File von da nach \\unc\server kopiert.
Wenn ich das Script manuell anstosse Funktioniert dies einwandfrei,
Wenn ich hierzu den TaskScheduler benütze von WServer 2008 kopiert dieses script nichts, im Log vom T-Scheduler steht Meldung "0x0" dies ist von aussage M$ OK.

Der Task im scheulder rennt momentan mit mehr als genügend rechte
(Hinweis; Ein kopieren auf dem Lokalen server von ordner zu ordner geht.)

Spoiler anzeigen

[autoit]

#include <process.au3>
#include <file.au3>
#include <array.au3>
local $openfile, $verzeichnis, $date, $kopieren_nach
$date = "_" & @MDAY & "-" _
& @MON & "-" _
& @YEAR & "_" _
& @HOUR & "-" _
& @MIN
$verzeichnis = IniRead("C:\temp\mca\dirinfo.ini", "dirlist", "1", "NotFound")
;$verzeichnis = IniRead("C:\Dokumente und Einstellungen\Administrator\Desktop\autoit\dirinfo.ini", "dirlist", "1", "NotFound")
_RunDOS("cmd /c & del "& $verzeichnis &"*.txt")
;_RunDOS("cmd /c & dir "& $verzeichnis &" | find ""<DIR>"" >>"& $verzeichnis &""& @ComputerName &""& $date &".txt")
;MsgBox(1,"Filename", $date)
;_FileReadToArray("c:\temp\"& $date &".txt", $openfile)
;_ArrayDisplay($openfile) nur zum Array überprüfen
$kopieren_nach = IniRead("c:\temp\mca\dirinfo.ini", "kopieren_nach", "1", "NotFound")
_RunDOS("cmd /c & dir "& $verzeichnis &" | find ""<DIR>"" >>"& $kopieren_nach &""& @ComputerName &""& $date &".txt")
;$kopieren_nach = IniRead("C:\Dokumente und Einstellungen\Administrator\Desktop\autoit\dirinfo.ini", "kopieren_nach", "1", "NotFound")
sleep(3000)
;MsgBox(1,"Filename",$verzeichnis&""&@ComputerName&""&$date&".txt" & " "&$kopieren_nach&""&@ComputerName&""&$date&".txt")
_RunDOS("cmd /c & xcopy "& $verzeichnis &""& @ComputerName &""& $date &".txt" & " "& $kopieren_nach &""& @ComputerName &""& $date &".txt")
FileCopy("c:\temp\mca\*.txt", "\\xxxx036\c$\temp\mca\*.*")

[/autoit]

Dirinfo.ini

Spoiler anzeigen

[autoit]

[dirlist]
1=C:\users\
[kopieren_nach]
1=\\xxxxx036\c$\temp\mca\

[/autoit]

Danke der infos und Hilfe
MC

mauric

Hallo Zusammen,
Kann mir hier Bitte jemand einen Tip geben weshalb dies nicht korrekt rennt?.
Es kommt immer die Meldung das der Name nicht gefunden wird
Danke
MC

Spoiler anzeigen

[autoit]

#AutoIt3Wrapper_AU3Check_Parameters= -d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
#AutoIt3Wrapper_AU3Check_Stop_OnWarning=Y
#include <AD.au3>
Global $UserName, $aUser
$UserName = InputBox("Username","Der Nemutzername wird aus dem ActiveDirectory gesucht")
_AD_Open()
_AD_GetUserGroups($UserName)
;_ArrayDisplay($UserName)

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

If @error > 0 Then
MsgBox(64, "Active Directory Functions -", "User '" & $UserName & "' User Don't Exist")
Else
_ArraySort($aUser, 0, 1)
_ArrayDisplay($aUser, "Active Directory - Group names user '" & $UserName & "' is immediately a member of")
_ArrayDisplay($UserName, "Active Directory - Group names user '" & $UserName & "' is immediately a member of")
EndIf
; Close Connection to the Active Directory
_AD_Close()

[/autoit]

mauric

Hallo Zusammen
Bitte, möchte mein script erweitern und zwar nach auswahl der "Firma" sollte nach drücken des Buttons "Offerte" die restlichen Informationen wie z.B. Name, Vorname, Strasse, und Ort aus der entsprechender Zeile gezogen werden.
Währe wirklich sehr dankbar um hilfe.
MC

Spoiler anzeigen

[autoit]

#include<Array.au3>
;#include<ExcelCOM_UDF.au3>
#include<Excel.au3>
Opt('MustDeclareVars', 1)

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

ArrayMuster()
Func ArrayMuster()

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

Global $aIni, $nMsg, $Exit, $ab, $Offerte, $mwRechnung, $owRechnung, $Exit, $aFirma, $combobox
Global $xls, $xlsdir, $app, $zelle, $zeile, $open
Local $aFileName, $aArray1, $oExcel
$aFileName = ("C:\temp\Script\Firmenmusteradressen.xls")
$oExcel = _ExcelBookOpen($aFileName) ;Open book, make it not visible
$oExcel.Visible = 0
$aArray1 = _ExcelReadArray($oExcel, 2, 1, 11, 1) ;Direction is Vertical
_ArrayDisplay($aArray1, "Arrray Range FIRMA")
$oExcel = _ExcelBookClose($aFileName)
$aFirma = _ArrayToString($aArray1)

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

GUICreate("GUI", 300, 260)
GUICtrlCreateLabel("Firma ", 10, 10)
$combobox = GUICtrlCreateCombo("", 10, 30, 190)
GUICtrlSetData($combobox, $aFirma)

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

$ab = GUICtrlCreateButton("Abestätigung",70, 130)
$Offerte = GUICtrlCreateButton("Offerte",10, 130)
$mwRechnung = GUICtrlCreateButton("Rechnung mit WIR",150, 130)
$owRechnung = GUICtrlCreateButton("Rechnung ohne WIR",150, 160)
$Exit = GUICtrlCreateButton("Exit",60, 200)

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

GUISetState()

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

If Not FileExists($aFileName) Then ; Neu zur Überprüfung hinzu
MsgBox(0, "Hinweis:", "XLS-Datei existiert nicht.")
Exit
EndIf
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Exit
;MsgBox(1,"Auswahl", GUICtrlRead($MengenCombo[0])&GUICtrlRead($MengenCombo[1])& _
; GUICtrlRead($MengenCombo[2])&GUICtrlRead($MengenCombo[3]))
Exit
Case $mwRechnung
Run("C:\Program Files\Microsoft Office\Office12\excel")
Exit
Case $owRechnung
Run("C:\Program Files\Microsoft Office\Office12\excel")
Exit
Case $Offerte
;Msgbox(1,"", $combobox)
;$xls = ShellExecute("C:\temp\Script\OffertenvorlageNEU.xls")
$xlsdir = "C:\temp\Script\OffertenvorlageNEU.xls"
;Excel öffnen
$app = ObjCreate("Excel.application")
$app.Visible = true
$open = $app.Workbooks.Open ($xlsdir)
;in Excel schreiben
$app.Cells(10,4).Value = ""&GUICtrlRead($combobox)&""

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

$zelle=6
$zeile=1
$app.Cells($zeile,$zelle).Value = ""
;$open = $app.Workbooks.Close($xlsdir)
Exit
EndSwitch
WEnd
EndFunc

[/autoit]

mauric

Mit "_ArrayToString" habe ich dann 1300 möglichkeiten "nebeneinander" in einem Auswahlmenü, Wie könnte ich diese den untereinander bringen.
Danke

mauric

hab noch einen Versuch gestartet

Spoiler anzeigen

[autoit]

#include <Array.au3>
Opt('MustDeclareVars', 1)

ArrayMuster()
Func ArrayMuster()
Dim $avArray[20]
; Populate test array.
For $i = 0 to UBound( $avArray ) - 1
$avArray[$i] = Random( -20000, 20000, 1)
Next
_ArrayDisplay($avArray, "$avArray")
MsgBox(0, "_ArrayToString() getting $avArray items 1 to 7", _ArrayToString($avArray, @TAB, 1, 7))
GUICreate("GUI", 250, 240)
GUICtrlCreateLabel("Firma ", 60, 10)
$avArray = GUICtrlCreateCombo("", 60, 30)
GUISetState()
sleep (10000)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Exit
;MsgBox(1,"Auswahl", GUICtrlRead($MengenCombo[0])&GUICtrlRead($MengenCombo[1])& _
; GUICtrlRead($MengenCombo[2])&GUICtrlRead($MengenCombo[3]))
EndSwitch
WEnd
EndFunc

[/autoit]

mauric

1)im erster linie "teil _Excel Read Array" wird Vertikal im Excel Daten aufgenommen
2)versuche ich den ganzen Array inhalt im GuiCtrlCCombo darzustellen
2a)War sogar der Meinung das der Inhalt im combo dargestellt würde ohne "schlaufe".
3)versuche durch dass Array durchzuzählen. (aIni) war vom vorheirgen Script

Beiträge von mauric

Package.wms -> Windows RegFile

While-schleife Programmieren ?

While-schleife Programmieren ?

Weshalb bekommen ich nicht die ArrayDisplay anzeige?

Weshalb bekommen ich nicht die ArrayDisplay anzeige?

Weshalb bekommen ich nicht die ArrayDisplay anzeige?

Weshalb bekommen ich nicht die ArrayDisplay anzeige?

Weshalb bekommen ich nicht die ArrayDisplay anzeige?

Exchange 2010 / port 25 offen / telnet versand geht!, doch mein script geht nicht ?

Exchange 2010 / port 25 offen / telnet versand geht!, doch mein script geht nicht ?

AD - Memberof Probleme

Error in Expression Line 96

Error in Expression Line 96

FileCopy UNC scheitert

FileCopy UNC scheitert

AD Memberof ?

Nach Auswahl des "combo" Firma sollten die restlichen Informationen gezogen werden

Im ArrayDisplay ersichtlich, im GuiCreateCombo nicht, Bitte um Hilfe.

Im ArrayDisplay ersichtlich, im GuiCreateCombo nicht, Bitte um Hilfe.

Im ArrayDisplay ersichtlich, im GuiCreateCombo nicht, Bitte um Hilfe.