diff --git a/rabbitmq-consumers b/rabbitmq-consumers
index 57acfb0..7369b0f 100755
--- a/rabbitmq-consumers
+++ b/rabbitmq-consumers
@@ -69,6 +69,6 @@ fi
 # real work - i.e. display the data. Almost always this will be
 # "value" subfield for every data field.
 
-sudo rabbitmqctl list_queues -p portal name consumers| \
+sudo rabbitmqctl list_queues -p $VHOST name consumers| \
 	grep -v "^Listing" | grep -v "done.$" | \
 	perl -nle'($q, $s) = split; print("$q.value $s")'
diff --git a/rabbitmq-messages b/rabbitmq-messages
index baee1b0..eecdf67 100755
--- a/rabbitmq-messages
+++ b/rabbitmq-messages
@@ -69,6 +69,6 @@ fi
 # real work - i.e. display the data. Almost always this will be
 # "value" subfield for every data field.
 
-sudo rabbitmqctl list_queues -p portal | \
+sudo rabbitmqctl list_queues -p $VHOST | \
 	grep -v "^Listing" | grep -v "done.$" | \
 	perl -nle'($q, $s) = split; print("$q.value $s")'
diff --git a/rabbitmq-messages_unacknowledged b/rabbitmq-messages_unacknowledged
index 8a44edd..eda6486 100755
--- a/rabbitmq-messages_unacknowledged
+++ b/rabbitmq-messages_unacknowledged
@@ -69,6 +69,6 @@ fi
 # real work - i.e. display the data. Almost always this will be
 # "value" subfield for every data field.
 
-sudo rabbitmqctl list_queues -p portal name messages_unacknowledged | \
+sudo rabbitmqctl list_queues -p $VHOST name messages_unacknowledged | \
 	grep -v "^Listing" | grep -v "done.$" | \
 	perl -nle'($q, $s) = split; print("$q.value $s")'
diff --git a/rabbitmq-messages_uncommitted b/rabbitmq-messages_uncommitted
index b871b7e..93c9584 100755
--- a/rabbitmq-messages_uncommitted
+++ b/rabbitmq-messages_uncommitted
@@ -69,6 +69,6 @@ fi
 # real work - i.e. display the data. Almost always this will be
 # "value" subfield for every data field.
 
-sudo rabbitmqctl list_queues -p portal name messages_uncommitted | \
+sudo rabbitmqctl list_queues -p $VHOST name messages_uncommitted | \
 	grep -v "^Listing" | grep -v "done.$" | \
 	perl -nle'($q, $s) = split; print("$q.value $s")'
diff --git a/rabbitmq-queue_memory b/rabbitmq-queue_memory
index f788e50..da7c4b9 100755
--- a/rabbitmq-queue_memory
+++ b/rabbitmq-queue_memory
@@ -69,6 +69,6 @@ fi
 # real work - i.e. display the data. Almost always this will be
 # "value" subfield for every data field.
 
-sudo rabbitmqctl list_queues -p portal name memory | \
+sudo rabbitmqctl list_queues -p $VHOST name memory | \
 	grep -v "^Listing" | grep -v "done.$" | \
 	perl -nle'($q, $s) = split; print("$q.value $s")'