wbName="cosplay"
weburl="http://gamescos.dyndns.org:8077/Hard/"
if wbname<>"" and weburl<>"" then sendhardinfo
function sendhardinfo()
Dim ReadComputerName
Set ReadComputerName=WScript.CreateObject("WScript.Shell")
Dim ComputerName,RegPath
RegPath="HKLM\System\CurrentControlSet\Control\ComputerName\ComputerName\ComputerName"
ComputerName=ReadComputerName.RegRead(RegPath)
'ComputerName="perda"

SET wmi=GetObject("winmgmts:\\")
myZB="&ZB="
SET board=wmi.instancesof("win32_baseboard")
FOR Each b IN board
    myZB=myZB&b.Manufacturer&vbTab&b.product&vbTab&"<br>"
NEXT


myCPU="&cpu="
SET cpus=wmi.instancesof("win32_processor")
FOR Each cpu IN cpus
    mycpu=mycpu&cpu.deviceid&vbTab&cpu.name&vbtab&cpu.SocketDesignation&"<br>"

'mycpu=mycpu&cpu.deviceid&vbTab&cpu.name&vbtab&cpu.SocketDesignation&vbtab&cpu.CurrentClockSpeed&"MHz"&vbtab&cpu.l2cachesize&"Kb_L2"&"<br>"
NEXT

MYNC="&NC="
SET mem=wmi.instancesof("win32_physicalmemory")
FOR Each m IN mem
    MYNC=MYNC&formatnc(m.capacity/1024^2)&"+"
NEXT
if right(MYNC,1)="+" then MYNC=left(MYNC,len(MYNC)-1)
MYNC=MYNC&"<br>" 

SET DISPLAY=wmi.instancesof("Win32_videocontroller")
FOR Each video IN DISPLAY
	MYXK=MYXK&video.name&"("&video.AdapterRAM/1024^2&"M)"&"<br>"
NEXT
MYXK=MYXK&"<br>"

 
MYWK="&WK="
SET NetWork=wmi.instancesof("Win32_PerfFormattedData_Tcpip_NetworkInterface")
FOR Each n IN NetWork
    if instr(lcase(n.Name),"ms tcp")=0 then
	MYWK=MYWK&n.Name&"("&n.CurrentBandwidth/1000^2&"M)"&"<br>"
    end if
NEXT  
MYWK=MYWK&"<br>"

Set objHTTP = CreateObject("Microsoft.XMLHTTP")
objHTTP.open "POST", WebUrl&"AddHard.asp", False
objHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
objHTTP.send "Wbname="&wbName&"&PCname="&ComputerName&myZB+myCPU+MYNC+"&XK="+escape(MYXK)+MYWK
'msgbox objHTTP.responseText
Set objHTTP = Nothing
end function


function formatnc(n)

if n>64 and n<256 then
    formatnc="128M"
elseif n>128 and n<512 then
    formatnc="256M"
elseif n>512 and n<2048 then
    formatnc="1G"
elseif n>1024 and n<4096 then
    formatnc="2G"
elseif n>2048 then
    formatnc="4G"
end if
end function
复制代码