Napady na vylepšení:
Nejprve nainstalovat: SVN a Flex: http://www.flashmagazine.com/tutorials/detail/setting_up_subversion_with_adobe_flex_3/
Nejlepsi zpusob:
Horsi zpusob:
crossdomain.xml
, ktery musi byt v rootu webserveru, na kterem bezi web-service:
<?xml version="1.0" ?> <cross-domain-policy> <site-control permitted-cross-domain-policies="all" /> <allow-access-from domain="*" /> <allow-http-request-headers-from domain="*" headers="*" /> </cross-domain-policy>
Skript na založení nového uživatele
' vytvori uzivatele podle parametru skriptu 'username' 'jmeno' 'prijmeni' ' nastavi mu jmeno a prihlasovaci skript ' prida ho do skupiny patf-users ' Vytvori startup skript pro uzivatele, ktery mu mapuje disky L: a P: ' Vytvori adresar na file-serveru, ktery se namapuje na L: ' Nastavi uzivateli pristup k tomuto adresari if WScript.Arguments.Count <> 3 Then WScript.Echo "Usage: newuser login name surname" WScript.Quit end If userName = WScript.Arguments(0) strGivenName = WScript.Arguments(1) strSecondName = WScript.Arguments(2) Const ForReading = 1 Const ForWriting = 2 Const templateScriptFile = "template.txt" Const profilesPath = "\\abacus2-server\NETLOGON\" Const foldersPath = "\\file-server\users\" strPassword = "carramba" userScriptFileName = userName & ".bat" userScriptFile = profilesPath & userScriptFileName userFolderPath = foldersPath & userName Dim objRootLDAP, objContainer, objUser, objShell Dim strUser, strGivenName, strSecondName, strContainer strUser = userName strContainer = "cn=Users ," ' Note the comma ' Bind to Active Directory, Users container. Set objRootLDAP = GetObject("LDAP://rootDSE") Set objContainer = GetObject("LDAP://" & strContainer & _ objRootLDAP.Get("defaultNamingContext")) ' Build the actual User. Set objUser = objContainer.Create("User", "cn=" & strUser) objUser.Put "sAMAccountName", strUser objUser.Put "givenName", strGivenName objUser.Put "SN", strSecondName objUser.Put "displayName", strGivenName & " " & strSecondName objUser.Put "name", strGivenName & " " & strSecondName objUser.Put "scriptPath", userScriptFileName objUser.Put "userPrincipalName", strUser & "@" & "patfyz.lf1.cuni.cz" 'objUser.Put "userAccountControl", 512 'enables the account (514 - disable) // see below objUser.SetInfo Set objUser = GetObject("LDAP://cn=" & strUser & ", " & strContainer & _ objRootLDAP.Get("defaultNamingContext")) objUser.SetPassword strPassword objUser.AccountDisabled = False objUser.Put "pwdLastSet", 0 objUser.SetInfo ' get the patf-users group and add the new user Set objGroup = GetObject("LDAP://cn=patf-users,cn=Users, " & objRootLDAP.Get("defaultNamingContext")) objGroup.add(objUser.ADsPath) WScript.Echo "User created: " & strGivenName & " " & strSecondName & "; Password: " & strPassword Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile(templateScriptFile, ForReading) 'Create the startup script strText = objFile.ReadAll objFile.Close strNewText = Replace(strText, "<username>", userName) Set objFile = objFSO.OpenTextFile(userScriptFile, ForWriting, True) objFile.Write strNewText objFile.Close WScript.Echo "Script file created: " & userScriptFile 'Create the home folder objFSO.CreateFolder(userFolderPath) WScript.Echo "Directory created: " & userFolderPath 'Assign user's permissions Set objShell = CreateObject("Wscript.Shell") intRunError = objShell.Run("%COMSPEC% /c Echo Y| cacls "_ & userFolderPath & " /e /g "_ & userName & ":C", 2, True) If intRunError <> 0 Then Wscript.Echo "Error assigning permissions for user " _ & userName & " to folder " & userFolderPath Else Wscript.Echo "Permissions for user " _ & userName & " to folder " & userFolderPath & "assigned." End If WScript.Quit