diff --git a/src/bin/gnucash-make-guids.in b/src/bin/gnucash-make-guids.in
new file mode 100644
index 0000000000..870748ced5
--- /dev/null
+++ b/src/bin/gnucash-make-guids.in
@@ -0,0 +1,36 @@
+#!/bin/sh
+exec @-GNUCASH_RUN_SCRIPT-@ @-THIS_SCRIPT-@ "$@"
+!#
+
+(define (usage)
+  (display "Usage: gnucash-make-guids [number-to-make (default is 100)]\n")
+  (exit 1))
+
+(define args (cdr (program-arguments)))
+(define num-to-make 100)
+
+;; Too many arguments
+(if (> (length args) 1)
+    (usage))
+
+(if (= (length args) 1)
+    (let ((arg (string->number (car args))))
+      (if (not (number? arg))
+          (usage))
+      (set! arg (inexact->exact arg))
+      (if (<= arg 0)
+          (usage))
+      (set! num-to-make arg)))
+
+(use-modules (gnucash gnc-module))
+(gnc:module-system-init)
+(gnc:module-load "gnucash/engine" 0)
+
+(let loop ((remaining num-to-make))
+  (display (gnc:guid-new)) (newline)
+  (if (> remaining 1)
+      (loop (- remaining 1))))
+
+;; Local Variables:
+;; mode: scheme
+;; End: