BREAK On
$IPaddr = EnumIPinfo(0,0)
 if $IPaddr = "0.0.0.0" or $IPaddr = ""
  $IPinfo = GetIPinfo()
  $IPaddr = $IPinfo[0]
  $SNmask = $IPinfo[1]
  $Gateway = $IPinfo[2]
else
  $SNmask = EnumIPinfo(0,1)
  $Gateway = EnumIPinfo(0,3)
endif

; Connect to specified computer
$objWMIService = GetObject( "winmgmts://./root/cimv2" )

; Query processor properties
$colItems = $objWMIService.ExecQuery( "Select * from Win32_Processor", , 48 )
; Display results
For Each $objItem in $colItems
	$mycpu = ($objItem.CurrentClockSpeed) + " MHz"
Next

; Query memory properties
$colItems = $objWMIService.ExecQuery( "Select * from Win32_LogicalMemoryConfiguration", , 48 )
For Each $objItem in $colItems
	$mymemory = ( ( $objItem.TotalPhysicalMemory + 1023 ) / 1024 )
Next

; Query harddisk properties
$colItems = $objWMIService.ExecQuery( "Select * from Win32_DiskDrive", , 48 )
; Display results
For Each $objItem in $colItems
	; Some trickery to enable working with large numbers
	$Size  = $objItem.Size
	$LSize = Len( $Size )
	$MSize = SubStr( $Size, 1, $LSize - 3 )
	$Size  = ( 524288 + $MSize ) / 1048576
Next

; Header line for screen output
$myline = "@WKSTA,$IPaddr,@address,@PRODUCTTYPE @CSD,$mycpu,$mymemory,$Size,@UserID,@date"
IF Open( 3 , "Installation_Log.csv" , 5 ) = 0
  $x = WriteLine( 3 , $myline + @CRLF )
ELSE
  BEEP
  ? "failed to open file, error code : [" + @ERROR + "]"
ENDIF

Quit 0