svn commit: samba r8237 - in branches/SAMBA_4_0/testprogs/ejs: .

tridge at samba.org tridge at samba.org
Fri Jul 8 09:38:41 GMT 2005


Author: tridge
Date: 2005-07-08 09:38:41 +0000 (Fri, 08 Jul 2005)
New Revision: 8237

WebSVN: http://websvn.samba.org/cgi-bin/viewcvs.cgi?view=rev&root=samba&rev=8237

Log:
expanded the samr.js test to do a samr_Connect(), samr_EnumDomains() and samr_Close()


Modified:
   branches/SAMBA_4_0/testprogs/ejs/samr.js


Changeset:
Modified: branches/SAMBA_4_0/testprogs/ejs/samr.js
===================================================================
--- branches/SAMBA_4_0/testprogs/ejs/samr.js	2005-07-08 09:37:54 UTC (rev 8236)
+++ branches/SAMBA_4_0/testprogs/ejs/samr.js	2005-07-08 09:38:41 UTC (rev 8237)
@@ -30,16 +30,47 @@
 function test_Connect(conn)
 {
 	var io = irpcObj();
-
 	print("Testing samr_Connect\n");
-
 	io.input.system_name = NULL;
 	io.input.access_mask = 0;
 	status = dcerpc_samr_Connect(conn, io);
-	printVars(io);
 	check_status_ok(status);
+	return io.output.connect_handle;
 }
 
+/*
+  test the samr_Close interface
+*/
+function test_Close(conn, handle)
+{
+	var io = irpcObj();
+	print("Testing samr_Close\n");
+	io.input.handle = handle;
+	status = dcerpc_samr_Close(conn, io);
+	check_status_ok(status);
+}
+
+/*
+  test the samr_EnumDomains interface
+*/
+function test_EnumDomains(conn, handle)
+{
+	var io = irpcObj();
+	print("Testing samr_EnumDomains\n");
+	io.input.connect_handle = handle;
+	io.input.resume_handle = 0;
+	io.input.buf_size = 0;
+	status = dcerpc_samr_EnumDomains(conn, io);
+	check_status_ok(status);
+	print("Found " + io.output.num_entries + " domains\n");
+	entries = io.output.sam.entries;
+	for (i=0;i<io.output.num_entries;i++) {
+		print("\t" + entries[i].name.string + "\n");
+	}
+}
+
+
+
 if (ARGV.length == 0) {
    print("Usage: samr.js <RPCBINDING>\n");
    exit(0);
@@ -55,6 +86,8 @@
    return;
 }
 
-test_Connect(conn);
+handle = test_Connect(conn);
+test_EnumDomains(conn, handle);
+test_Close(conn, handle);
 
 print("All OK\n");



More information about the samba-cvs mailing list