code:

---

Grpmaint --enum --sam \\servername --Global --name REALEC1 --outfile grp.txt  

---

code:

---

 BREAK ON
 $domainstring = "DOMAINNAME"
 $GroupString = "REALC1"
 $GroupObj = GetObject("WinNT://" + $DomainString + "/" + $GroupString)
 IF EXIST("H:\USERLIST.CSV")
       DEL "H:\USERLIST.CSV"
 ENDIF
 IF Open( 3 , "H:\USERLIST.CSV" , 5 )  = 0
       $hdr = "GROUPNAME"
       $x = WriteLine( 3 , $hdr + @crlf)
       For each $UserObj in $GroupObj.Members
            $List = $List + $UserObj.Name
       Next
       $x = WriteLine( 3 , $list + @crlf)
       ?$list + @crlf
       $x = CLOSE(3)
 ENDIF

 $groupobj = 0
 ?"Process is complete.."
 SLEEP 2

---

code:

---

 BREAK ON
 $domainstring = "DOMAINNAME"
 $domainobj = GetObject("WinNT://" + $domainstring)
 $domainobj.filter = Array("group")
 IF EXIST("H:\GRPLIST.CSV")
       DEL "H:\GRPLIST.CSV"
 ENDIF
 IF Open( 3 , "H:\GRPLIST.CSV" , 5 )  = 0
       $hdr = "GROUPNAME"
       $x = WriteLine( 3 , $hdr + @crlf)
       FOR EACH $groupobj IN $domainobj
             IF $groupobj.class = "Group"
                   $list = $list + $groupobj.name
             ENDIF
       NEXT
       $x = WriteLine( 3 , $list + @crlf)
       ?$list + @crlf
       $x = CLOSE(3)
 ENDIF

 $domainobj = 0
 ?"Process is complete.."
 SLEEP 2
 

---

code:

---

 BREAK ON
 $domainstring="ComputerName"
 $userstring = "jdoe"
 $userobj = GetObject("WinNT://" + $domainstring + "/" + $userstring)
 IF EXIST("H:\PGRP.CSV")
       DEL "H:\PGRP.CSV"
 ENDIF
 IF Open( 3 , "H:\PGRP.CSV" , 5 )  = 0
       $hdr = "GROUPNAME"
       $x = WriteLine( 3 , $hdr + @crlf)
       FOR EACH $groupobj IN $userobj.groups
             $list = $list + $groupobj.name
       NEXT
       $x = WriteLine( 3 , $list + @crlf)
       ?$list + @crlf
       $x = CLOSE(3)
 ENDIF

 $userobj = 0
 ?"Process is complete.."
 SLEEP 2

---

code:

---

 ;if INGROUP("RealEC")
USE R: /delete /Persistent
USE R: "\\FS1\RealEC"   
   ? "Member of RealEC group"
endif 

---

code:

---

if ingroup('groupname')
  use r: \delete
  ? 'Error '+@ERROR+' - '+@SERROR
  use r: '\\server\share'
  ? 'Error '+@ERROR+' - '+@SERROR
endif

---

code:

---

if INGROUP("RealEC")
      ? "Member of RealEC group"
      USE R: /delete /Persistent
      USE R: "\\FS1\RealEC"
      if @error
            ? "MAPPING ERROR: @error"
            ? "press any key to continue"
            get $somekey
      endif
else
      ? "not Member of RealEC group"

endif 

---

quote:

---

Only if you support Windows 9x computers. During testing you won't need to do anything. Additionally, there's a batch file in the KiXtart distribution that enables you to remotely update the KiXtart RPC Server. Installing/updating the KiXtart RPC SErver does not require a reboot fo the server.

---