// using jscript - dont use vb, nobody is using vbscript in infopath, it hurts the brain, trust me.
//Call Wscript to get user logged in details:
var oNet = new ActiveXObject("Wscript.Network");
sUserID = oNet.surname;
// Call AD to get details about user:
var objSysinfo = new ...