strComputer = "."
strToEmail = "shill@nicholaslabs.com"

smtpUserName = "nicholaslabs@gmail.com"
smtpPassword = "DellCo11ect"

Set WshNetwork = WScript.CreateObject("WScript.Network")

strComputername 	= WshNetwork.ComputerName
strUserDomainname 	= WshNetwork.UserDomain
strUserName 		= WshNetwork.UserName

Set objWMIservice = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
set colitems = objWMIservice.ExecQuery("Select * from Win32_BIOS",,48)
For each objitem in colitems
  strBody = strBody & _
            "Service Tag:	" & objitem.serialnumber & vbCrLf & _
            "Username:	" & strUserName & vbCrLf & _
	    "Computer:	" & strComputername & vbCrLf & _
	    "Domain:		" & strUserDomainname
Next

Set ObjEmail = CreateObject("CDO.Message")
With ObjEmail
 .Subject =  "Computer Discovery" 
 .From =     smtpUserName
 .To =       strToEmail 
 .TextBody = strBody
End With

strSchemas = "http://schemas.microsoft.com/cdo/configuration/"
With ObjEmail.Configuration.Fields
 .Item (strSchemas & "sendusing") = 2 
 .Item (strSchemas & "smtpserver") = "smtp.gmail.com"
 .Item (strSchemas & "smtpauthenticate") = 1
 .Item (strSchemas & "smtpserverport") = 465
 .Item (strSchemas & "smtpconnectiontimeout") = 120
 .Item (strSchemas & "sendusername") = LCase(smtpUserName)
 .Item (strSchemas & "sendpassword") = smtpPassword
 .Item (strSchemas & "smtpusessl") = True
 .Update
End With

ObjEmail.Send