Code:
; Variablen
Dim $NeuNutzer, $Befehl, $Domaene , $Datenverzeichnis
Const $Admin = "AdminName", $Passwort = 'PASSWORT'
$Rechner = IniRead('UserMetalloneu.ini', 'Config' , 'Server', 'NN')
If $Rechner = 'NN' then
IniWrite('UserMetalloNeu.ini', 'Config', 'Server', 'ServerName')
$Rechner = 'RechnerName'
EndIf
$Datenverzeichnis = IniRead('UserMetalloneu.ini', 'Config' , 'Datenverzeichnis', 'NN')
If $Datenverzeichnis = 'NN' then
IniWrite('UserMetalloNeu.ini', 'Config', 'Datenverzeichnis', 'F:\User')
$Datenverzeichnis = 'F:\User'
EndIf
$Domaene = IniRead('UserMetalloneu.ini', 'Config' , 'Domaene', 'NN')
If $Domaene = 'NN' then
IniWrite('UserMetalloNeu.ini', 'Config', 'Domaene', 'Domaenenname')
$Domaene = 'Domaenenname'
EndIf
If Not IsAdmin() Then
RunAsSet($Admin, $Rechner, $Passwort)
Run('"' & @AutoItExe & '"' & ' "' & @ScriptFullPath & '"', @WorkingDir)
Exit
EndIf
;MsgBox(0,'Info','Mit diesem Skript kann man neue Benutzer anlegen lassen')
; Variablen und Umgebung einrichten
$NeuNutzer = InputBox('Welcher Nutzer soll eingerichtet werden?' , 'Bitte den GENAUEN Anmeldenamen eingeben')
If $NeuNutzer = '' then Exit
$Domaene = InputBox('In welcher Domaene ist dieser Nutzer?' , '', '')
If $Domaene = '' then Exit
;die Rechte für die Ausführung auf dem Rechner festlegenDirCreate($Datenverzeichnis & '\' & $UserDir & '\' & $NeuNutzer)
FileInstall("rmtshare.exe","rmtshare.exe")
DirCreate($Datenverzeichnis & '\' & $NeuNutzer)
$Befehl= "\\" & $Rechner & "\" & $NeuNutzer & "=" & $Datenverzeichnis & '\' & $NeuNutzer & ' /Grant ' & $Domaene & '\' & $NeuNutzer & ':r'
ClipPut($Befehl)
ShellExecuteWait('rmtshare', $Befehl)
;Die Userdatenbank anlegen
$Macrofile = $Datenverzeichnis & '\' &'Macro.sfm'
$File = FileOpen($MacroFile , 2)
;Macro für das Anlegen der Bilddatenbank erzeugen
FileWriteLine($File , 'AplNeu(Datenbankname:="' & $NeuNutzer & '", Datenbankverzeichnis:="' & $DatenVerzeichnis & '\\' & $NeuNutzer &'", Bildverzeichnis:="' & $DatenVerzeichnis & '\\' & $NeuNutzer & '", Quellstrukturdatei:="C:\\Programme\\Analysis pro\\ArchiveProcessTemplates\\Projekt.apl", Auszug:=FALSE, KennwortQuellstrukturdatei:="", Vorgangsname:="Projekt-Nr", Vorgangsfeld:=NULL);')
FileWriteLine($File, 'AplEinstellungen$(Minibildgröße:=1, Bildtyp:=14, Komprimierungsmethode:=4097, JpegQualität:=85);')
FileClose($File)
; Bilddatenbank mit Analysis anlegen und Einstellungen ändern
While ProcessExists('analySIS.exe')
If MsgBox(1, 'Warnung', 'Bitte Analysis beenden') = 2 then Exit
WEnd
RunAsSet()
ShellExecute(@ProgramFilesDir & '\' & 'ANalySIS Pro' & '\' & 'analySIS.exe', '-x ' & $MacroFile)
Opt("WinTitleMatchMode", 4)
WinWait("Einstellungen",'&Physikalische Minibildgröße:',30)
ControlSetText('Einstellungen','&Physikalische Minibildgröße:', 1021, 'U'&$NeuNutzer& '_<Datum>_<LaufNr>')
ControlSetText('Einstellungen','&Physikalische Minibildgröße:', 1007, 'U'&$NeuNutzer& '_<Datum>_<LaufNr>')
Opt("WinTitleMatchMode", 4)
ControlClick("Einstellungen","&Physikalische Minibildgröße:","Button15")
Lesezeichen