FRIHOST FORUMS SEARCH FAQ TOS BLOGS COMPETITIONS
You are invited to Log in or Register a free Frihost Account!


VBS - PART 1 - Computer info





gidevelop
Here is a small gadget to get your computer info things like compuetrname | username | domain | IP

Create a file called pcinfo.vbs or whatever you want keep the extension though VBS and paste the code below in it

Code:
Dim strComputername, strDomain, strUser, strIp, strLoc, wshshell

Set wshShell = CreateObject("WScript.Shell")
   strComputername = wshShell.ExpandEnvironmentStrings("%COMPUTERNAME%")
   strDomain = wshShell.ExpandEnvironmentStrings("%userdomain%")
   strUser = wshShell.ExpandEnvironmentStrings("%USERNAME%")
   


arAddresses = GetIPAddresses()


info = ""

info = info & "***** TIBI PC Info Tool ***** "& vbCrLf & vbCrLf &"computername: " & strComputername & vbCrLf & "domain: " & strDomain & vbCrLf & "username: " & strUser & vbCrLf

for each ip in arAddresses

info = info & "ip adress: " & ip & vbCrLf

next




  WScript.echo info

Function GetFQDN(ipaddress)
'====
' Returns Fully Qualified Domain Name
' from reverse DNS lookup via nslookup.exe
' only implemented for NT4, 2000
'====
  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()
'=====
' Returns array of IP Addresses as output
' by ipconfig or winipcfg...
'
' Win98/WinNT have ipconfig (Win95 doesn't)
' Win98/Win95 have winipcfg (WinNt doesn't)
'
' Note: The PPP Adapter (Dial Up Adapter) is
' excluded if not connected (IP address will be 0.0.0.0)
' and included if it is connected.
'=====
  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



   

   Set wshShell = CreateObject("WScript.Shell")
   strComputername = wshShell.ExpandEnvironmentStrings("%COMPUTERNAME%")
   strDomain = wshShell.ExpandEnvironmentStrings("%userdomain%")
   strUser = wshShell.ExpandEnvironmentStrings("%USERNAME%")
   







Available for XP, NT, 98, 95 (who ever is still using it )
Related topics
New forum area (computer problems)
Abbott and Costello Buy a Computer
DOUBLE HDD AND FTP
751 Useful Windows XP Files
Idiots on the computer
Computer Games
Programming links, info, and tutorials
My first Visual Basic program!
Computer Output Issue.
How to speed up slow PC's?
My Computer Freezes with my new video card (Solved I think)
VBS - PART 2 - Shell Control via VBS
VBS - PART 2 - Shell Control via VBS PART 2
A vbs or bat loading bar
Reply to topic    Frihost Forum Index -> Computers -> Software

FRIHOST HOME | FAQ | TOS | ABOUT US | CONTACT US | SITE MAP
© 2005-2011 Frihost, forums powered by phpBB.