How do I use VBScript to get System Info?

That's an excellent idea, but my boss wouldn't buy off on that

this site has a script with OS and service pack info:
http://cwashington.netreach.net/depo/view.asp?Index=987&ScriptType=vbscript

this 1 shows: Username, Hostname, IP address, netcard desciption, User Domain, MAC address, DHCP?, current network drive mappings.
http://cwashington.netreach.net/depo/view.asp?Index=680&ScriptType=vbscript

Date and time in 3 formats:

------------------------
DateInfo = DateInfo & Now & VbCrLf
DateInfo = DateInfo & Date & VbCrLf
DateInfo = DateInfo & Time & VbCrLf
Wscript.Echo DateInfo
-----------------------

The nest for the processor would be...

Set objEnv = WshShell.Environment("Process")
Message = Message & vbCrLf & "--- .Shell Environment Object Process variables:" & vbCrLf
Message = Message & "OS: " & objEnv("OS") & vbCrLf
If (objEnv("OS")="Windows_NT") Then
    Message = Message & "PROCESSOR_IDENTIFIER: " & objEnv("PROCESSOR_IDENTIFIER") & vbCrLf
    Message = Message & "PROCESSOR_ARCHITECTURE: " & objEnv("PROCESSOR_ARCHITECTURE") & vbCrLf
    Message = Message & "PROCESSOR_LEVEL: " & objEnv("PROCESSOR_LEVEL") & vbCrLf
End If

...the IP address is a bit long but I'm popping a box up, you can shave it...

arAddresses = GetIPAddresses()
info = ""
for each ip in arAddresses
    info = info & ip & vbTab & GetFQDN(ip) & vbCR
next
  WScript.echo info
Function GetFQDN(ipaddress)
  set sh = createobject("wscript.shell")
  set fso = createobject("scripting.filesystemobject")
  Set Env = sh.Environment("PROCESS")

  if Env("OS") = "Windows_NT" then
    workfile = fso.gettempname
    sh.run "%comspec% /c nslookup " & ipaddress & "  > " & workfile,0,true
   set sh = nothing
   set ts = fso.opentextfile(workfile)
   data = split(ts.readall,vbcr)
   ts.close
   set ts = nothing
   fso.deletefile workfile
   set fso = nothing
  for n = 0 to ubound(data)
    if instr(data(n),"Name") then
      parts = split(data(n),":")
        hostname= trim(cstr(parts(1)))
       Exit For
    end if
    hostname = "could not resolve IP address"
  next
    GetFQDN = hostname
  else
   set sh = nothing
   set fso = nothing
   GetFQDN = ""
  end if
End Function
Function GetIPAddresses()
  set sh = createobject("wscript.shell")
  set fso = createobject("scripting.filesystemobject")
  Set Env = sh.Environment("PROCESS")
  if Env("OS") = "Windows_NT" then
    workfile = fso.gettempname
    sh.run "%comspec% /c ipconfig > " & workfile,0,true
  else
    'winipcfg in batch mode sends output to
    'filename winipcfg.out
    workfile = "winipcfg.out"
    sh.run "winipcfg /batch" ,0,true
  end if
  set sh = nothing
  set ts = fso.opentextfile(workfile)
  data = split(ts.readall,vbcr)
  ts.close
  set ts = nothing
  fso.deletefile workfile
  set fso = nothing
  arIPAddress = array()
  index = -1
  for n = 0 to ubound(data)
    if instr(data(n),"IP Address") then
      parts = split(data(n),":")
      if trim(parts(1)) <> "0.0.0.0" then
        index = index + 1
        ReDim Preserve arIPAddress(index)
        arIPAddress(index)= trim(cstr(parts(1)))
      end if
    end if
  next
  GetIPAddresses = arIPAddress
End Function