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

Timestamp:

Nov 19, 2011, 5:05:03 PM (14 years ago)

Author:

Herwig Bauernfeind

Message:

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

File:

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

trunk/guitools/shared/rxrpclib.vrs

@@ -9 +9 @@
 /*   _rpcquerygroupmem(server,username,password,grouprid)  */
 /*   _rpcqueryuser(server,username,password,userrid)       */
+/*   _rpcsrvinfo(server,username,password)                 */
 
 /*:VRX         _rpcenumdomgroups
@@ -126 +127 @@
     password = arg(3)
 
-    say '  'samba.!rpcclientexe' 'server' --user='username'%'password' --command="enumprinters" 'debuglevel' '
-    address cmd samba.!rpcclientexe' 'server' --user='username'%'password' --command="enumprinters" 'debuglevel' >'samba.!msg
+    usercred = '--user='username'%'password
+
+    say     '  'samba.!rpcclientexe' 'server' 'usercred' --command="enumprinters" 'debuglevel' '
+    address cmd samba.!rpcclientexe' 'server' 'usercred' --command="enumprinters" 'debuglevel' >'samba.!msg
 
     rpc.enumprinters. = ""
@@ -381 +384 @@
     password = arg(3)
 
-    say '  'samba.!rpcclientexe' 'server' --user='username'%'password' --command="srvinfo" 'debuglevel' '
-    address cmd samba.!rpcclientexe' 'server' --user='username'%'password' --command="srvinfo" 'debuglevel' >'samba.!msg
+    usercred = '--user='username'%'password
+    if UserCred   = 'USERCRED'   | UserCred = '' | UserCred = '--user=%' then UserCred = '-N'
+
+    say     '  'samba.!rpcclientexe' 'server' 'usercred' --command="srvinfo" 'debuglevel' >'samba.!msg
+    address cmd samba.!rpcclientexe' 'server' 'usercred' --command="srvinfo" 'debuglevel' >'samba.!msg
 
     rpc.srvinfo. = ""
@@ -432 +438 @@
         rpc.srvinfo.LOGONSTATUS=substr(rpcline,pos("NT_STATUS",rpcline),)
     end
+    say '  rpc.srvinfo.LOGONSTATUS = "'rpc.srvinfo.LOGONSTATUS'"'
     IF options.!debug == 1 THEN SAY time()" _rpcsrvinfo() done, "retval
 return retval