Je dois d'abord préciser que je ne suis pas un programmeur et qu'il faut donc me parler. J'ai fait ce que j'ai décrit ci-dessous en utilisant des guides et beaucoup d'essais et d'erreurs.
J'ai un AppleScript qui fonctionne avec 2 invites pour un nom d'utilisateur et un mot de passe et qui procède ensuite au montage de certains volumes du réseau sur la base d'une recherche LDAP. J'ai créé un nouveau projet AppleScriptObjC Xcode 6.4 et j'y ai introduit le code de l'AppleScript fonctionnel. En utilisant le constructeur d'interface, j'ai créé une simple fenêtre de saisie et l'ai associée au code suivant :
-- IBOutlets
property theWindow : missing value
property accountName : missing value
property passwordName : missing value
-- IBActions (button clicks)
on setCredentialsFromUserInput_(sender)
set accountName to accountName's stringValue()
set passwordName to passwordName's stringValue()
end setCredentialsFromUserInput_J'ai lié le bouton OK à l'IBAction décrite ci-dessus et les champs ID et mot de passe aux IBOutlets associées ci-dessus. Le projet se construit et s'exécute correctement, mais lorsque je clique sur le bouton OK, rien ne se passe. Il n'exécute pas le reste du code du projet. Je suppose qu'il me manque quelque chose de fondamental.
Mise à jour n° 1 :
Voici le reste du code dans le script. La majeure partie de ce code a été importée d'une version antérieure de cette application écrite en AppleScript Studio (je crois). Je m'attends à ce que vous trouviez d'autres erreurs ici aussi, mais ma principale préoccupation est de savoir pourquoi rien ne semble avancer lorsque je clique sur OK.
-- Set text delimiters
-- From previous version of Map Drives application
on removechar(delim, sourcetxt) --remove delim from string source
try
set OldDelims to AppleScript's text item delimiters -- save their current state
set AppleScript's text item delimiters to delim -- declare new delimiters
set sourcelist to (every text item in sourcetxt) as list
set sourcetxt to ""
repeat with i from 1 to count of sourcelist
set this_item to item i of sourcelist
set sourcetxt to sourcetxt & this_item
end repeat
set AppleScript's text item delimiters to OldDelims -- restore them
return sourcetxt
on error
set AppleScript's text item delimiters to OldDelims -- restore them in case something went wrong
end try
end removechar
on replacechar(delim, sourcetxt, replacement) --replace delim in string source with replacement
try
set OldDelims to AppleScript's text item delimiters -- save their current state
set AppleScript's text item delimiters to delim -- declare new delimiters
set sourcelist to (every text item in sourcetxt) as list
set sourcetxt to ""
repeat with i from 1 to count of sourcelist
set this_item to item i of sourcelist
if i is equal to 1 then
set sourcetxt to this_item
else
set sourcetxt to sourcetxt & replacement & this_item
end if
end repeat
set AppleScript's text item delimiters to OldDelims -- restore them
return sourcetxt
on error
set AppleScript's text item delimiters to OldDelims -- restore them in case something went wrong
end try
end replacechar
-- Execute LDAP Query
on mapDrives_(accountname, passwordname)
--setup ldap query
set ldap_host to "LDAP HOST"
set ldap_searchbase to "LDAP QUERY"
set ldap_attribute to "NetworkResource"
set query to "uid=\"" & accountname & "\""
-- run ldap query
try
set networktest to do shell script "ping -c 1 " & ldap_host
on error
display alert "Unable to connect to server.
Please check your internet connection and try again." as warning default button "OK"
restoreButton()
return
end try
try
set ldapresults to do shell script "ldapsearch -x -b " & ldap_searchbase & " -H ldap://" & ldap_host & " -D \"" & uName & "\"@" & ldap_host & " -w \"" & pWord & "\" -LLL " & query & " " & ldap_attribute & ""
end try
--Clean LDAP results
--display dialog "results: " & ldapresults
set cleanldapresults to removechar(space, ldapresults)
--quit
--display dialog "first pass: " & cleanldapresults
set cleanldapresults to removechar(return, cleanldapresults)
--display dialog "second pass: " & cleanldapresults
set cleanldapresults to replacechar("\\", cleanldapresults, "/")
--try
set OldDelims to AppleScript's text item delimiters -- save their current state
set AppleScript's text item delimiters to return -- declare new delimiters
--separate out the cifs paths and load them into a list
--display dialog "last pass: " & cleanldapresults
try
set mountpaths to (every text item in (do shell script "echo \"" & cleanldapresults & "\" | grep -o cifs_path=\"[^,]*\"")) as list
on error
display alert "Invalid drive mappings." as warning
quit
end try
--display dialog mountpaths
--iterate through mount paths and mount them
repeat with i from 1 to count of mountpaths
set this_item to item i of mountpaths
set this_item to replacechar("cifs_path=", this_item, "")
if this_item is not equal to "" then
try
-- display alert "Mapping: smb:" & this_item
mount volume ("smb:" & this_item) as user name uName with password pWord
on error
display alert "Failed to map: smb:" & this_item & " with username: " & uName as warning
end try
end if
end repeat
display alert "Your network drives have been mapped." as informational default button "OK"
restoreButton()
set AppleScript's text item delimiters to OldDelims -- restore them
quit
end mapDrives_
##################################################
# Application
on applicationWillFinishLaunching_(aNotification)
-- Insert code here to initialize your application before any files are opened
end applicationWillFinishLaunching_
on applicationShouldTerminate_(sender)
-- Insert code here to do any housekeeping before your application quits
return current application's NSTerminateNow
end applicationShouldTerminate_
end script
