r17598: Patch from Martin Kühl <mkhl@samba.org> to update the samba3sam test
[ira/wip.git] / testprogs / ejs / nbtstats
1 #!/usr/bin/env smbscript
2 /*
3         demonstrate access to irpc calls from ejs
4 */      
5
6 var options = GetOptions(ARGV, 
7                          "POPT_AUTOHELP",
8                          "POPT_COMMON_SAMBA");
9 if (options == undefined) {
10    println("Failed to parse options");
11    return -1;
12 }
13
14 var conn = new Object();
15 var irpc = irpc_init();
16
17 status = irpc_connect(conn, "nbt_server");
18 assert(status.is_ok == true);
19
20 io = new Object();
21 io.input = new Object();
22 io.input.level = irpc.NBTD_INFO_STATISTICS;
23 status = irpc.nbtd_information(conn, io);
24 assert(status.is_ok == true);
25 assert(io.results.length == 1);
26
27 print("nbt_server statistics:\n");
28 stats = io.results[0].info.stats;
29
30 for (r in stats) {
31     print("\t" + r + ":\t" + stats[r] + "\n");
32 }
33 return 0;