| | 270 | GetProperty("BOINC_USERNAME", strBOINCUsername) |
| | 271 | IF strBOINCUsername IS NULL THEN |
| | 272 | strBOINCUsername = "boinc_" + strComputerName |
| | 273 | END IF |
| | 274 | |
| | 275 | GetProperty("BOINC_PROJECT_USERNAME", strBOINCProjectUsername) |
| | 276 | IF strBOINCProjectUsername IS NULL THEN |
| | 277 | strBOINCProjectUsername = "boinc_project_" + strComputerName |
| | 278 | END IF |
| | 279 | |
| | 280 | IF GetGroup("boinc_administrators") NOT EXISTS THEN |
| | 281 | CreateGroup("boinc_administrators") |
| | 282 | AddUserToGroup("Administrator") |
| | 283 | AddUserToGroup(GetCurrentUsername()) |
| | 284 | AddUserToGroup(strBOINCUsername) |
| | 285 | END IF |
| | 286 | |
| | 287 | IF GetGroup("boinc_project") NOT EXISTS THEN |
| | 288 | CreateGroup("boinc_project") |
| | 289 | AddUserToGroup(strBOINCProjectUsername) |
| | 290 | END IF |
| | 291 | |