On Error Resume Next

const HKEY_CURRENT_USER = &H80000001
const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."

Dim objComputer, objNic, Nic, strNic, lngCount
strIP = ""

Set objComputer = CreateObject("WScript.Network")

strLogon = objComputer.UserName
strComputerName = objComputer.ComputerName
strDomain = objComputer.UserDomain

Set objNic = GetObject("winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")

For Each Nic in objNic
    strNic = Nic.Description
    If Nic.IPEnabled Then
 strIP = strIP & VbTab & Nic.IPAddress(0) & VbCrLf
    End If

Next

Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
 strComputer & "\root\default:StdRegProv")

strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion"

strValue = "RegisteredOwner"
objReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValue,strOwner

strValue = "ProductName"
objReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValue,strProductName

strValue = "BuildLab"
objReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValue,strBuild

strValue = "BuildLab"
objReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValue,strBuild

strValue = "CSDVersion"
objReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValue,strCSDVersion

strValue = "ProductID"
objReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValue,strProductID

strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon"

strValue = "DefaultUserName"
objReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValue,strDefaultUserName

strValue = "DefaultDomainName"
objReg.GetStringValue
HKEY_LOCAL_MACHINE,strKeyPath,strValue,strDefaultDomainName

Const URL = "http://xml.showmyip.com/"
Set objXML = CreateObject("Microsoft.XMLDOM")
objXML.Async=false
objXML.Load(URL)

For Each x in objXML.DocumentElement.ChildNodes
    If x.NodeName = "ip" then
       strPubIP = x.text
    End If
    If x.NodeName = "host" then
       strPubHost = x.text
    End If
Next


strMsgBody = "Computer is registered to: " & strOwner & " and is
logged on as " & strLogon & VbCrLf & "They are using " &
strProductName & " " & strCSDVersion & " Build " & strBuild & VbCrLf &
"Product ID: " & strProductID & VbCrLf & "Computer Name is : " &
strComputerName & VbCrLf & "Default User Name: " & strDefaultUserName
& VbCrLf & "Default Domain Name: " & strDefaultDomainName & " -Actual
Domain Name: " & strDomain & VbCrLf & "IP Address(es):" & VbCrLf &
strIP & VbCrLf & "Public IP: " & strPubIP & vbCrLf & "Public Host
Name: " & strPubHost


Set objEmail = CreateObject("CDO.Message")
objEmail.From = "yourthumbdrive@helpme.com"
objEmail.To = "emailaddress@somewhere.com
objEmail.Subject = "Thumb Drive Location"
objEmail.Textbody = strMsgBody
objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
        "somesmtpserver.com
objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send