Computername ook mee scannen voor op portal

svn path=/Website/trunk/; revision=36752

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
 {