Changeset 662 for trunk/guitools/shared/rxrpclib.vrs

Timestamp:

Nov 13, 2011, 4:25:35 PM (14 years ago)

Author:

Herwig Bauernfeind

Message:

GUI-Tools: EVFSGUI 2.5.x: Start implementing server based logon script support

File:

• trunk/guitools/shared/rxrpclib.vrs (modified) (16 diffs)

trunk/guitools/shared/rxrpclib.vrs

@@ -1 +1 @@
 /* REXX Function Library for RPC calls */
 
-/* Currently implemented functions:
-   _rpcenumdomgroups(server,username,password) 
-   _rpcenumdomusers(server,username,password)  
-   _rpcenumprinters(server,username,password)  
-   _rpcnetshareenum(server,username,password)
-   _rpcnetsharegetinfo(server,username,password,share)
-   _rpcquerygroupmem(server,username,password,grouprid)
-   _rpcqueryuser(server,username,password,userrid)
- */
+/* Currently implemented functions:                        */
+/*   _rpcenumdomgroups(server,username,password)           */
+/*   _rpcenumdomusers(server,username,password)            */
+/*   _rpcenumprinters(server,username,password)            */  
+/*   _rpcnetshareenum(server,username,password)            */
+/*   _rpcnetsharegetinfo(server,username,password,share)   */
+/*   _rpcquerygroupmem(server,username,password,grouprid)  */
+/*   _rpcqueryuser(server,username,password,userrid)       */
 
 /*:VRX         _rpcenumdomgroups
 */
-_rpcenumdomgroups: procedure expose rpc. samba. options.
+_rpcenumdomgroups: procedure expose rpc. samba. options. debuglevel
     IF options.!debug == 1 THEN SAY time()" _rpcenumdomgroups() started"
     server   = arg(1)
@@ -19 +18 @@
     password = arg(3)
 
-    say '  'samba.!rpcclientexe' 'server' --user='username'%'password' --command="enumdomgroups"'
-    address cmd samba.!rpcclientexe' 'server' --user='username'%'password' --command="enumdomgroups" >'samba.!msg
+    say '  'samba.!rpcclientexe' 'server' --user='username'%'password' --command="enumdomgroups" 'debuglevel' '
+    address cmd samba.!rpcclientexe' 'server' --user='username'%'password' --command="enumdomgroups" 'debuglevel' >'samba.!msg
 
     rpc.enumdomgroups. = ""
@@ -64 +63 @@
     IF options.!debug == 1 THEN SAY time()" _rpcenumdomgroups() done, "retval" "rpc.enumdomgroups.LOGONSTATUS
 return retval 
+
 /*:VRX         _rpcenumdomusers
 */
-_rpcenumdomusers:  procedure expose rpc. samba. options.
+_rpcenumdomusers:  procedure expose rpc. samba. options.  debuglevel
     IF options.!debug == 1 THEN SAY time()" _rpcenumdomusers() started"
     server   = arg(1)
@@ -72 +72 @@
     password = arg(3)
 
-    say '  'samba.!rpcclientexe' 'server' --user='username'%'password' --command="enumdomusers"'
-    address cmd samba.!rpcclientexe' 'server' --user='username'%'password' --command="enumdomusers" >'samba.!msg
+    say '  'samba.!rpcclientexe' 'server' --user='username'%'password' --command="enumdomusers" 'debuglevel' '
+    address cmd samba.!rpcclientexe' 'server' --user='username'%'password' --command="enumdomusers" 'debuglevel' >'samba.!msg
 
     rpc.enumdomusers. = ""
@@ -120 +120 @@
 /*:VRX         _rpcenumprinters
 */
-_rpcenumprinters: procedure expose rpc. samba. options.
+_rpcenumprinters: procedure expose rpc. samba. options. debuglevel
     IF options.!debug == 1 THEN SAY time()" _rpcenumprinters() started"
     server   = arg(1)
@@ -126 +126 @@
     password = arg(3)
 
-    say '  'samba.!rpcclientexe' 'server' --user='username'%'password' --command="enumprinters"'
-    address cmd samba.!rpcclientexe' 'server' --user='username'%'password' --command="enumprinters" >'samba.!msg
+    say '  'samba.!rpcclientexe' 'server' --user='username'%'password' --command="enumprinters" 'debuglevel' '
+    address cmd samba.!rpcclientexe' 'server' --user='username'%'password' --command="enumprinters" 'debuglevel' >'samba.!msg
 
     rpc.enumprinters. = ""
@@ -168 +168 @@
 /*:VRX         _rpcnetshareenum
 */
-_rpcnetshareenum: procedure expose rpc. samba. options.
+_rpcnetshareenum: procedure expose rpc. samba. options.  debuglevel
     IF options.!debug == 1 THEN SAY time()" _rpcnetshareenum() started"
     server   = arg(1)
@@ -174 +174 @@
     password = arg(3)
 
-    say '  'samba.!rpcclientexe' 'server' --user='username'%'password' --command="netshareenum"'
-    address cmd samba.!rpcclientexe' 'server' --user='username'%'password' --command="netshareenum" >'samba.!msg
+    say '  'samba.!rpcclientexe' 'server' --user='username'%'password' --command="netshareenum" 'debuglevel' '
+    address cmd samba.!rpcclientexe' 'server' --user='username'%'password' --command="netshareenum" 'debuglevel' >'samba.!msg
 
     rpc.netshareenum. = ""
@@ -217 +217 @@
 /*:VRX         _rpcnetsharegetinfo
 */
-_rpcnetsharegetinfo:  procedure expose rpc. samba. options.
+_rpcnetsharegetinfo:  procedure expose rpc. samba. options.  debuglevel
     IF options.!debug == 1 THEN SAY time()" _rpcnetsharegetinfo() started"
     server   = arg(1)
@@ -224 +224 @@
     share    = arg(4)
 
-    say '  'samba.!rpcclientexe' 'server' --user='username'%'password' --command="netsharegetinfo 'share'"'
-    address cmd samba.!rpcclientexe' 'server' --user='username'%'password' --command="netsharegetinfo 'share'" >'samba.!msg
+    say '  'samba.!rpcclientexe' 'server' --user='username'%'password' --command="netsharegetinfo 'share'" 'debuglevel' '
+    address cmd samba.!rpcclientexe' 'server' --user='username'%'password' --command="netsharegetinfo 'share'" 'debuglevel' >'samba.!msg
 
     rpc.netsharegetinfo. = ""
@@ -268 +268 @@
 /*:VRX         _rpcquerygroupmem
 */
-_rpcquerygroupmem: procedure expose rpc. samba. options.
+_rpcquerygroupmem: procedure expose rpc. samba. options.  debuglevel
     IF options.!debug == 1 THEN SAY time()" _rpcquerygroupmem() started"
     server   = arg(1)
@@ -275 +275 @@
     grouprid = arg(4)
 
-    say '  'samba.!rpcclientexe' 'server' --user='username'%'password' --command="querygroupmem 'grouprid'"'
-    address cmd samba.!rpcclientexe' 'server' --user='username'%'password' --command="querygroupmem 'grouprid'" >'samba.!msg
+    say '  'samba.!rpcclientexe' 'server' --user='username'%'password' --command="querygroupmem 'grouprid'" 'debuglevel' '
+    address cmd samba.!rpcclientexe' 'server' --user='username'%'password' --command="querygroupmem 'grouprid'" 'debuglevel' >'samba.!msg
 
     rpc.querygroupmem. = ""
@@ -322 +322 @@
 /*:VRX         _rpcqueryuser
 */
-_rpcqueryuser: procedure expose rpc. samba. options.
+_rpcqueryuser: procedure expose rpc. samba. options.  debuglevel
     IF options.!debug == 1 THEN SAY time()" _rpcqueryuser() started"
     server   = arg(1)
@@ -329 +329 @@
     userrid  = arg(4)
 
-    say '  'samba.!rpcclientexe' 'server' --user='username'%'password' --command="queryuser 'userrid'"'
-    address cmd samba.!rpcclientexe' 'server' --user='username'%'password' --command="queryuser 'userrid'" >'samba.!msg
+    say '  'samba.!rpcclientexe' 'server' --user='username'%'password' --command="queryuser 'userrid'" 'debuglevel' '
+    address cmd samba.!rpcclientexe' 'server' --user='username'%'password' --command="queryuser 'userrid'" 'debuglevel' >'samba.!msg
 
     rpc.queryuser. = ""
@@ -375 +375 @@
 /*:VRX         _rpcsrvinfo
 */
-_rpcsrvinfo: 
+_rpcsrvinfo:  procedure expose rpc. samba. options.  debuglevel
     IF options.!debug == 1 THEN SAY time()" _rpcsrvinfo() started"
     server   = arg(1)
@@ -381 +381 @@
     password = arg(3)
 
-    say '  'samba.!rpcclientexe' 'server' --user='username'%'password' --command="srvinfo"'
-    address cmd samba.!rpcclientexe' 'server' --user='username'%'password' --command="srvinfo" >'samba.!msg
+    say '  'samba.!rpcclientexe' 'server' --user='username'%'password' --command="srvinfo" 'debuglevel' '
+    address cmd samba.!rpcclientexe' 'server' --user='username'%'password' --command="srvinfo" 'debuglevel' >'samba.!msg
 
     rpc.srvinfo. = ""