主頁 > 知識(shí)庫 > 遠(yuǎn)程或本地獲取系統(tǒng)信息的腳本RGIS.vbs

遠(yuǎn)程或本地獲取系統(tǒng)信息的腳本RGIS.vbs

熱門標(biāo)簽:琿春電子地圖標(biāo)注 福建醫(yī)療智能外呼系統(tǒng)哪家好 福建外呼系統(tǒng)購買 百度地圖標(biāo)注的位置怎么更改 鴿森地圖標(biāo)注 地圖標(biāo)注都什么意思 聯(lián)通能辦理400電話是多少錢 龍族幻想白銀異聞天使地圖標(biāo)注 菏澤電銷機(jī)器人管理軟件
*******************************************************************************
RGIS v1.03
Remote Get Infomation Script, by zzzEVAzzz
Welcome to visite www.isgrey.com  www.h4h4.com
Usage:
cscript rgis.vbs [/r targetIP username password] [/o filename] [/v] [/a] [/h]
/r: remote get info.
/o: output to file.
/v: get more infomation.
/a: get applications infomation.
/h: show usage.
*******************************************************************************

描述:遠(yuǎn)程或本地獲取系統(tǒng)信息的腳本。
特點(diǎn):不依賴于目標(biāo)的ipc$開放與否。
原理:直接訪問目標(biāo)的windows管理規(guī)范服務(wù)(WMI)。
支持平臺(tái):win2kpro win2kserver winxp
使用方法:
在命令行方式下使用windows自帶的腳本宿主程序cscript.exe調(diào)用腳本,例如:

c:\&;cscript rgis.vbs [/r 目標(biāo)IP 用戶名 密碼] [/o 輸出文件] [/v] [/a] [/h]

參數(shù)都是可選的。
/r 用于遠(yuǎn)程獲得信息。空密碼用""表示。
/o 加輸出文件路徑和名字,如文件不存在則自動(dòng)新建,如存在則添加信息在末尾。
/v 獲取詳細(xì)信息。
/a 獲取應(yīng)用程序信息。
/h 顯示Usage。
不加參數(shù)則顯示本地信息。

腳本訪問的目標(biāo)的135端口,如果目標(biāo)135端口未開放,或者WMI服務(wù)關(guān)閉,那么腳本無法使用。
另外,網(wǎng)絡(luò)不是很好時(shí),可能會(huì)等待較多的時(shí)間。
有問題和建議請(qǐng)到 灰色軌跡論壇 或 H4網(wǎng)絡(luò)安全論壇 發(fā)短消息給我。我的ID是zzzevazzz

最后更新:2002-12-7
更新記錄:
1.03  增加獲得應(yīng)用程序信息的功能
1.02  增加獲得HotFix和端口過濾簡(jiǎn)單信息的功能
1.01  增加輸出到文件的功能
1.00  最初版本
復(fù)制代碼 代碼如下:

if (lcase(right(wscript.fullname,11))="wscript.exe") then
   set objshell=wscript.createobject("wscript.shell")
   objshell.run("cmd.exe /k cscript //nologo "chr(34)wscript.scriptfullnamechr(34))
   wscript.quit
end if
with wscript.arguments
if .count>0 then
   ipaddress="."
   outfile=""
   username=""
   password=""
   viewtype=0
   program=0
   for arg=0 to .count-1
      select case left(lcase(.item(arg)),2)
      case "/h","/?","\h","\?"
         usage()
     wscript.quit
      case "/r","\r"
     if arg+3=.count-1 then
     ipaddress=.item(arg+1)
     username=.item(arg+2)
     password=.item(arg+3)
     else
     wscript.echo "Arguments Error!"vbcrlf
     usage()
     wscript.quit
     end if
      case "/v","\v"
     viewtype=1
      case "/o","\o"
     outfile=.item(arg+1)
      case "/a","\a"
     program=1
      end select
   next
end if
end with

on error resume next
if outfile>"" then
   set fs=createobject("scripting.filesystemobject")
   showerr()
   set of=fs.opentextfile(outfile,8,true)
   showerr()
end if
wscript.echo "Getting Infomation...."vbcrlf
set objlocator=createobject("wbemscripting.swbemlocator")
showerr()
set objswb=objlocator.connectserver(ipaddress,"root/cimv2",username,password)
showerr()
on error goto 0

set obj1=objget("win32_computersystem")
set obj2=objget("win32_operatingsystem")
set col3=objswb.instancesof("win32_processor")
set obj4=objget("win32_logicalmemoryconfiguration")
set obj5=objget("win32_bios")
set obj6=objget("win32_displayconfiguration")
set col7=objswb.instancesof("win32_diskdrive")
set col8=objswb.instancesof("win32_logicaldisk")
set col9=objswb.instancesof("win32_networkadapterconfiguration")
set col10=objswb.instancesof("win32_quickfixengineering")
if program=1 then
   set objswb1=objlocator.connectserver(ipaddress,"root/default",username,password)
   set obj11=objswb1.get("stdregprov")
end if

wnl "OS Info :"
wnl "  Computer Name : "obj1.name
wnl "  User Name : "obj1.username
wnl "  Domain : "obj1.domain
domainrole=""
select case obj1.domainrole
case 0
   domainrole="Workstation"
case 1
   domainrole="Member Workstation"
case 2
   domainrole="Server"
case 3
   domainrole="Member Server"
case 4
   domainrole="Backup Domain Controller"
case 5
   domainrole="Main Domain Controller"
end select
with obj2
wnl "  Domain Role : "domainrole
wnl "  Caption : ".caption
wnl "  Organization : ".organization
wnl "  Registered User : ".registereduser
wnl "  Install Date : "timeformat(.installdate)
wnl "  Last BootUp Time : "timeformat(.lastbootuptime)
wnl "  Windows Directory : ".windowsdirectory
if viewtype=1 then
wnl "  System Directory : ".systemdirectory
wnl "  Boot Device : ".bootdevice
wnl "  Country Code : ".countrycode
wnl "  CSName : ".csname
wnl "  Description : ".description
wnl "  Manufacturer : ".manufacturer
wnl "  Serial Number : ".serialnumber
wnl "  Version : ".version
wnl "  System Type : "obj1.systemtype
wnl "  System Startup Delay : "obj1.systemstartupdelay"s"
wnl "  System Startup Options : "obj1.systemstartupoptions(0)
for i=1 to ubound(obj1.systemstartupoptions)
   wnl space(28)obj1.systemstartupoptions(i)
next
end if
end with

wnl vbcrlf"Processor Info :"
wnl "  Number Of Processors : "obj1.numberofprocessors
for each obj3 in col3
with obj3
wnl "  Device ID : ".deviceid
wnl "  Name : ".name
wnl "  Current Clock Speed : ".currentclockspeed"MHz"
wnl "  Description : ".description
if viewtype=1 then
wnl "  Ext Clock : ".extclock"MHz"
wnl "  L2 Cache Size : ".l2cachesize"KB"
wnl "  L2 Cache Speed : ".l2cachespeed"MHz"
wnl "  Processor Id : ".processorid
wnl "  Manufacturer : ".manufacturer
wnl "  Socket Designation : ".socketdesignation
wnl "  Address Width : ".addresswidth"Bit"
wnl "  Data Width : ".datawidth"Bit"
end if
end with
next

with obj4
wnl vbcrlf"Memory Info :"
wnl "  Total Physical Memory : "cint(.totalphysicalmemory/1024)"MB"
wnl "  Free Physical Memory : "cint(obj2.freephysicalmemory/1024)"MB"
if viewtype=1 then
wnl "  Total PageFile Space : "cint(.totalpagefilespace/1024)"MB"
wnl "  Total Virtual Memory : "cint(.totalvirtualmemory/1024)"MB"
wnl "  Available Virtual Memory : "cint(.availablevirtualmemory/1024)"MB"
end if
end with

if viewtype=1 then
wnl vbcrlf"BIOS Info :"
wnl "  Description : "obj5.description
wnl "  Current Language : "obj5.currentlanguage
wnl "  Version : "obj5.version
wnl "  Manufacturer : "obj5.manufacturer
end if

with obj6
wnl vbcrlf"Display Configuration :"
wnl "  Caption : ".caption
if viewtype=1 then
wnl "  Device Name : ".devicename
wnl "  Driver Version : ".driverversion
end if
wnl "  Display Frequency : ".displayfrequency"Hz"
wnl "  Bits Per Pel : ".bitsperpel"Bit"
wnl "  Pels : ".pelswidth" x ".pelsheight
end with

wnl vbcrlf"Disk Info :"
for each obj7 in col7
with obj7
wnl "  DeviceID : ".deviceid
wnl "  Caption : ".caption
wnl "  Interface Type : ".interfacetype
if viewtype=1 then
wnl "  SCSI Bus : ".scsibus
wnl "  SCSI Logical Unit : ".scsilogicalunit
wnl "  SCSI Port : ".scsiport
wnl "  SCSI TargetId : ".scsitargetid
wnl "  Sectors Per Track : ".sectorspertrack"KB"
end if
wnl "  Partitions : ".partitions
wnl "  Size : "sizeformat(.size)
end with
next
str="  Volume"+space(2)+"Type"+space(8)+"Format"+space(4)
str=str+"Size"+space(6)+"Free"+space(12)+"Label"
wnl str
for each obj8 in col8
with obj8
drivetype=""
select case .drivetype
case 0
   drivetype="Unknow"
case 1
   drivetype="NoRootDir"
case 2
   drivetype="Removable"
case 3
   drivetype="Fixed"
case 4
   drivetype="Network"
case 5
   drivetype="CD-ROM"
case 6
   drivetype="RAM"
end select
strpercent=""
if .size>"" and .freespace>"" then
strpercent=" ("formatpercent(.freespace/.size,0)")"
end if
str="  "wsp(.caption,8)wsp(drivetype,12)wsp(.filesystem,10)wsp(sizeformat(.size),10)
str=strwsp(sizeformat(.freespace)strpercent,16).volumename
wnl str
end with
next

wnl vbcrlf"NIC Informaton :"
for each obj9 in col9
with obj9
if .IPEnabled then
wnl "  Index : ".index
wnl "  Description : ".description
if viewtype=1 then
wnl "  DHCP Enabled : ".dhcpenabled
wnl "  DHCP Server : ".dhcpserver
wnl "  DNS Host Name : ".dnshostname
wnl "  DNS Server Search Order : "wfl(.dnsserversearchorder)
wnl "  WINS Primary Server : ".winsprimaryserver
end if
wnl "  IP Address : "wfl(.ipaddress)
wnl "  MAC Address : ".macaddress
wnl "  Default IP Gateway : "wfl(.defaultipgateway)
wnl "  IP Subnet : "wfl(.ipsubnet)
if viewtype=1 then
wnl "  IP Filter Security Enabled : ".ipfiltersecurityenabled
wnl "  IPSec Permit IP Protocols : "wfl(.ipsecpermitipprotocols)
wnl "  IPSec Permit TCP Ports : "wfl(.ipsecpermittcpports)
wnl "  IPSec Permit UDP Ports : "wfl(.ipsecpermitudpports)
end if
end if
end with
next

if viewtype=1 then
wnl vbcrlf"Hot Fixes Info :"
for each obj10 in col10
wnl "  Hot Fix ID : "obj10.hotfixid
wnl "  Fix Comments : "obj10.fixcomments
wnl "  Install Date : "obj10.installdate
wnl "  Service Pack In Effect : "obj10.servicepackineffect
next
end if

if program=1 then
wnl vbcrlf"Applications :"
HKLM=h80000002
keypath="SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"
obj11.enumkey HKLM,keypath,keyarray
redim str(ubound(keyarray)+1)
j=0
for i=0 to ubound(keyarray)
   obj11.getstringvalue HKLM,keypath+keyarray(i),"displayname",strvalue
   if strvalue>"" then
   str(j)=strvalue
   j=j+1
   end if
next
if j>1 then
for i=0 to j-1
   for k=0 to j-i-1
      if strcomp(str(k),str(k+1),1)=1 then
     strtemp=str(k+1)
     str(k+1)=str(k)
     str(k)=strtemp
      end if
   next
next
end if
for i=0 to j-1
   wnl "  "str(i)
next
end if

sub showerr()
if err.number then
   wscript.echo "Error 0x"cstr(hex(err.number))" ."
   if err.description>"" then
      wscript.echo "Error description: "err.description"."
   end if
   wscript.quit
end if
end sub

sub wnl(msg)
wscript.echo msg
if isobject(of) then
   on error resume next
   of.writeline msg
   showerror()
   on error goto 0
end if
end sub

function wfl(byref obj)
str=""
for i=0 to ubound(obj)
   str=strobj(i)" "
next
wfl=str
end function

function wsp(msg,num)
if msg>"" then
   msg=left(msg,num-1)
   wsp=msgspace(num-len(msg))
else
   wsp=space(num)
end if
end function

function timeformat(msg)
timeformat=left(msg,4)"/"mid(msg,5,2)"/"mid(msg,7,2)" "mid(msg,9,2)":"mid(msg,11,2)":"mid(msg,13,2)
end function

function sizeformat(msg)
if msg>"" then
size=msg/1048576
if size>1024 then
  sizeformat=round(size/1024,2)"GB"
else
  sizeformat=round(size,1)"MB"
end if
end if
end function

function objget(msg)
set col=objswb.instancesof(msg)
for each objx in col
   set obj=objx
next
set objget=obj
end function

function usage()
wscript.echo string(79,"*")
wscript.echo "RGIS v1.03"
wscript.echo "Remote Get Infomation Script, by zzzEVAzzz"
wscript.echo "Welcome to visite www.isgrey.com  www.h4h4.com"
wscript.echo "Usage:"
wscript.echo "cscript rgis.vbs [/r targetIP username password] [/o filename] [/v] [/a] [/h]"
wscript.echo "/r: remote get info."
wscript.echo "/o: output to file."
wscript.echo "/v: get more infomation."
wscript.echo "/a: get applications infomation."
wscript.echo "/h: show usage."
wscript.echo string(79,"*")vbcrlf
end function
您可能感興趣的文章:
  • 解析php中獲取系統(tǒng)信息的方法
  • System.Timers.Timer定時(shí)執(zhí)行程序示例代碼
  • C#利用System.Threading.Thread.Sleep即時(shí)輸出信息的詳解
  • Linux下semop等待信號(hào)時(shí)出現(xiàn)Interrupted System Call錯(cuò)誤(EINTR)解決方法
  • java system類使用方法示例 獲取系統(tǒng)信息

標(biāo)簽:南京 達(dá)州 柳州 資質(zhì)掛靠 內(nèi)蒙古 丹東 鶴壁 張掖

巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《遠(yuǎn)程或本地獲取系統(tǒng)信息的腳本RGIS.vbs》,本文關(guān)鍵詞  遠(yuǎn)程,或,本地,獲取,系統(tǒng),;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題,煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們,我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《遠(yuǎn)程或本地獲取系統(tǒng)信息的腳本RGIS.vbs》相關(guān)的同類信息!
  • 本頁收集關(guān)于遠(yuǎn)程或本地獲取系統(tǒng)信息的腳本RGIS.vbs的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章