Initial revision

1 files changed, 13 insertions, 0 deletions

diff --git a/usergroupinfo b/usergroupinfo
new file mode 100755
index 0000000..f9fa9b8
--- /dev/null
+++ b/usergroupinfo
@@ -0,0 +1,13 @@
+#!/usr/bin/perl
+@input = "| grep -i \"@ARGV\"" if @ARGV;
+@users = `cat /etc/passwd @input`;
+#print @input;
+foreach $n (@users)
+{
+  $user =~ /(\S+)/;
+  ($a, $b, $c, $d, $name) = split (/:/, $n);
+  ($name) = split(/,/,$name);
+  next if ($c < 100);
+  print "$a\t($name)\t";
+  print `id -Gn $a`;
+}