BREAK ON CLS? "System Manufacturer is = "WMIQuery("Manufacturer","Win32_ComputerSystem")? "System Model is = "WMIQuery("Model","Win32_ComputerSystem")? "System Serial Number is = "WMIQuery("SerialNumber","Win32_BIOS")? "System BIOS Version is = "WMIQuery("SMBIOSBIOSVersion","Win32_BIOS")? "System BIOS Date is = "WMIQuery("Version","Win32_BIOS")? "CPU Speed is = "WMIQuery("CurrentClockSpeed","Win32_Processor") " Mhz"? "System Memory = "val(WMIQuery("TotalPhysicalMemory","Win32_LogicalMemoryConfiguration"))/1024 " MB"for each $dimm in Split(WMIQuery("Capacity","Win32_PhysicalMemory"),"|") ? "Dimm Size = "val($dimm) / 1048576 " MB" next? "Video Card is = "WMIQuery("Description","Win32_VideoController")? "Video Res is = "WMIQuery("VideoModeDescription","Win32_VideoController")? "Modem is = "WMIQuery("Description","Win32_POTSModem")for each $nic in Split(WMIQuery("ProductName","Win32_NetworkAdapter"),"|") if instr($nic,"miniport")=0 and instr($nic,"RAS")=0 and instr($nic,"Parallel")=0 ? "Network Card is = "$nic endif next
FUNCTION WMIQuery($what,$from,optional $computer,optional $where, optional $x) dim $strQuery, $objEnumerator, $value if not $computer $computer="@WKSTA" endif $strQuery = "Select $what From $from" if $where and $x $strQuery = $strQuery + " Where $where = '$x'" endif $SystemSet = GetObject("winmgmts:{impersonationLevel=impersonate}!//$computer") $objEnumerator = $SystemSet.ExecQuery($strQuery) For Each $objInstance in $objEnumerator If @Error = 0 and $objInstance <> "" $=execute("$$value = $$objInstance.$what") $WMIQuery="$value"+"|"+"$WMIQuery" EndIf Next $WMIQuery=left($WMIQuery,len($WMIQuery)-1) exit @error
ENDFUNCTION
after installing WMICORE I just copied and paste ur code like this, Now pls tell me where I have to make changes in ur code.
_________________________
“I’ll not change you unless you don’t have intention to change yourself”
--H:Quran
