| 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 | |