From c28a1eb778cd741cbd3f60250fbd2ff3d458255b Mon Sep 17 00:00:00 2001
From: Jos Groot Lipman <jos.grootlipman@aareon.nl>
Date: Mon, 29 Jan 2018 08:17:42 +0000
Subject: [PATCH] Computername ook mee scannen voor op portal

svn path=/Website/trunk/; revision=36752
---
 APPL/FAC/fac_scan_cust.asp | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/APPL/FAC/fac_scan_cust.asp b/APPL/FAC/fac_scan_cust.asp
index e4086c57ee..6ec3774acc 100644
--- a/APPL/FAC/fac_scan_cust.asp
+++ b/APPL/FAC/fac_scan_cust.asp
@@ -137,6 +137,16 @@ result = { aFCLT: aFCLT,
            svnrevision: parseInt("$Revision$".replace(/\D/g,''))
          };
 
+try
+{
+    var WshShell = new ActiveXObject("WScript.Shell");
+    result.computername = WshShell.ExpandEnvironmentStrings("%COMPUTERNAME%");
+}
+catch (e)
+{
+    result.computername = "???";
+}
+
 var SHAinfo = findSHAinfo();
 if (SHAinfo) // niet @Trunk
 {