Posted to tcl by apn at Sat May 24 10:36:17 GMT 2014view raw

  1. test get_global_group_members-1.0 {
  2. Get members of a global group
  3. } -body {
  4. twapi::get_global_group_members None
  5. } -result [list $guest_account_name $administrator_account_name] -match superset
  6.  
  7.  
  8. test get_global_group_members-2.0 {
  9. Get members of a global group (-system)
  10. } -body {
  11. twapi::get_global_group_members None -system 127.0.0.1
  12. } -result [list $guest_account_name $administrator_account_name] -match superset
  13.  
  14.  
  15. test get_global_group_members-2.1 {
  16. Get members of a global group (-system, remote)
  17. } -constraints {
  18. domain
  19. } -body {
  20. twapi::get_global_group_members "Domain Admins" -system [testconfig domain_controller]
  21. } -result [list $administrator_account_name] -match superset
  22.  
  23. test get_global_group_members-3.0 {
  24. Get members of a global group -level 0
  25. } -body {
  26. set kl [twapi::get_global_group_members None -level 0]
  27. verify_recordarray $kl {-name}
  28. valid_account_names [twapi::recordarray column $kl -name]
  29. } -result 1
  30.  
  31. test get_global_group_members-3.1 {
  32. Get members of a global group -level 1
  33. } -body {
  34. set kl [twapi::get_global_group_members None -level 1]
  35. verify_recordarray $kl {-name -attributes}
  36. valid_account_names [twapi::recordarray column $kl -name]
  37. } -result 1
  38.  
  39.  
  40. test get_global_group_members-4.0 {
  41. Get members of a global group -resume -system
  42. } -constraints {
  43. systemmodificationok domain
  44. } -setup {
  45. set dc [testconfig domain_controller]
  46. set naccounts [populate_accounts $dc]
  47. # Reduce buffer size so more than one iteration is required
  48. twapi::Twapi_SetNetEnumBufSize 8000
  49. } -body {
  50. set iters 0
  51. set more 1
  52. set resumehandle 0
  53. set valid_accounts 1
  54. set total 0
  55. while {$more} {
  56. foreach {more resumehandle count accounts} [twapi::get_global_group_members "Domain Users" -resume $resumehandle -system $dc] break
  57. incr iters
  58. incr total [llength $accounts]
  59. set valid_accounts [expr {$valid_accounts & [valid_account_names $accounts $dc]}]
  60. }
  61. list [expr {$iters > 1}] $valid_accounts [expr {$total > $naccounts}]
  62.  
  63. } -cleanup {
  64. twapi::Twapi_SetNetEnumBufSize -1; # Reset buffer size
  65. # User accounts deleted in general cleanup
  66. } -result {1 1 1}
  67.  
  68. test get_global_group_members-5.0 {
  69. Get members of a global group -resume -level -system
  70. } -constraints {
  71. systemmodificationok domain
  72. } -setup {
  73. set dc [testconfig domain_controller]
  74. set naccounts [populate_accounts $dc]
  75. # Reduce buffer size so more than one iteration is required
  76. twapi::Twapi_SetNetEnumBufSize 8000
  77. } -body {
  78. set iters 0
  79. set more 1
  80. set resumehandle 0
  81. set valid_accounts 1
  82. set total 0
  83. while {$more} {
  84. foreach {more resumehandle count accounts} [twapi::get_global_group_members "Domain Users" -resume $resumehandle -level 1 -system $dc] break
  85. verify_recordarray $accounts {-name -attributes}
  86. incr iters
  87. incr total [twapi::recordarray size $accounts]
  88. set valid_accounts [expr {$valid_accounts & [valid_account_names [twapi::recordarray column $accounts -name] $dc]}]
  89. }
  90. list [expr {$iters > 1}] $valid_accounts [expr {$total > $naccounts}]
  91. } -cleanup {
  92. twapi::Twapi_SetNetEnumBufSize -1; # Reset buffer size
  93. # User accounts deleted in general cleanup
  94. } -result {1 1 1}
  95.