Sign in to follow this  
Followers 0
sept06

Dumping variables to text file

3 posts in this topic

I am anew beginner in Autoit ....

i found th following script on this forum which displays inormations about computer .

I tried to write the rsults to a text file .

Biy i am not getting the whole thing ....

I think the script loops when displaying meesages .....

Any ideas .. Out there ? Thanks !

; Generated by AutoIt Scriptomatic

$wbemFlagReturnImmediately = 0x10

$wbemFlagForwardOnly = 0x20

$colItems = ""

$strComputer = "localhost"

$Output=""

$Output = $Output & "Computer: " & $strComputer & @CRLF

$Output = $Output & "==========================================" & @CRLF

$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")

$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_DiskDrive", "WQL", _

$wbemFlagReturnImmediately + $wbemFlagForwardOnly)

If IsObj($colItems) then

For $objItem In $colItems

;~ $Output = $Output & "Availability: " & $objItem.Availability & @CRLF

$Output = $Output & "BytesPerSector: " & $objItem.BytesPerSector & @CRLF

$strCapabilities = $objItem.Capabilities(0)

$Output = $Output & "Capabilities: " & $strCapabilities & @CRLF

$strCapabilityDescriptions = $objItem.CapabilityDescriptions(0)

$Output = $Output & "CapabilityDescriptions: " & $strCapabilityDescriptions & @CRLF

$Output = $Output & "Caption: " & $objItem.Caption & @CRLF

;~ $Output = $Output & "CompressionMethod: " & $objItem.CompressionMethod & @CRLF

;~ $Output = $Output & "ConfigManagerErrorCode: " & $objItem.ConfigManagerErrorCode & @CRLF

;~ $Output = $Output & "ConfigManagerUserConfig: " & $objItem.ConfigManagerUserConfig & @CRLF

;~ $Output = $Output & "CreationClassName: " & $objItem.CreationClassName & @CRLF

;~ $Output = $Output & "DefaultBlockSize: " & $objItem.DefaultBlockSize & @CRLF

$Output = $Output & "Description: " & $objItem.Description & @CRLF

$Output = $Output & "DeviceID: " & $objItem.DeviceID & @CRLF

;~ $Output = $Output & "ErrorCleared: " & $objItem.ErrorCleared & @CRLF

;~ $Output = $Output & "ErrorDescription: " & $objItem.ErrorDescription & @CRLF

;~ $Output = $Output & "ErrorMethodology: " & $objItem.ErrorMethodology & @CRLF

;~ $Output = $Output & "Index: " & $objItem.Index & @CRLF

;~ $Output = $Output & "InstallDate: " & WMIDateStringToDate($objItem.InstallDate) & @CRLF

$Output = $Output & "InterfaceType: " & $objItem.InterfaceType & @CRLF

;~ $Output = $Output & "LastErrorCode: " & $objItem.LastErrorCode & @CRLF

$Output = $Output & "Manufacturer: " & $objItem.Manufacturer & @CRLF

;~ $Output = $Output & "MaxBlockSize: " & $objItem.MaxBlockSize & @CRLF

;~ $Output = $Output & "MaxMediaSize: " & $objItem.MaxMediaSize & @CRLF

$Output = $Output & "MediaLoaded: " & $objItem.MediaLoaded & @CRLF

$Output = $Output & "MediaType: " & $objItem.MediaType & @CRLF

;~ $Output = $Output & "MinBlockSize: " & $objItem.MinBlockSize & @CRLF

$Output = $Output & "Model: " & $objItem.Model & @CRLF

$Output = $Output & "Name: " & $objItem.Name & @CRLF

;~ $Output = $Output & "NeedsCleaning: " & $objItem.NeedsCleaning & @CRLF

;~ $Output = $Output & "NumberOfMediaSupported: " & $objItem.NumberOfMediaSupported & @CRLF

$Output = $Output & "Partitions: " & $objItem.Partitions & @CRLF

;~ $Output = $Output & "PNPDeviceID: " & $objItem.PNPDeviceID & @CRLF

;~ $strPowerManagementCapabilities = $objItem.PowerManagementCapabilities(0)

;~ $Output = $Output & "PowerManagementCapabilities: " & $strPowerManagementCapabilities & @CRLF

;~ $Output = $Output & "PowerManagementSupported: " & $objItem.PowerManagementSupported & @CRLF

;~ $Output = $Output & "SCSIBus: " & $objItem.SCSIBus & @CRLF

;~ $Output = $Output & "SCSILogicalUnit: " & $objItem.SCSILogicalUnit & @CRLF

;~ $Output = $Output & "SCSIPort: " & $objItem.SCSIPort & @CRLF

;~ $Output = $Output & "SCSITargetId: " & $objItem.SCSITargetId & @CRLF

$Output = $Output & "SectorsPerTrack: " & $objItem.SectorsPerTrack & @CRLF

$Output = $Output & "Signature: " & $objItem.Signature & @CRLF

$Output = $Output & "Size: " & $objItem.Size & @CRLF

$Output = $Output & "Status: " & $objItem.Status & @CRLF

;~ $Output = $Output & "StatusInfo: " & $objItem.StatusInfo & @CRLF

;~ $Output = $Output & "SystemCreationClassName: " & $objItem.SystemCreationClassName & @CRLF

$Output = $Output & "SystemName: " & $objItem.SystemName & @CRLF

$Output = $Output & "TotalCylinders: " & $objItem.TotalCylinders & @CRLF

$Output = $Output & "TotalHeads: " & $objItem.TotalHeads & @CRLF

$Output = $Output & "TotalSectors: " & $objItem.TotalSectors & @CRLF

$Output = $Output & "TotalTracks: " & $objItem.TotalTracks & @CRLF

$Output = $Output & "TracksPerCylinder: " & $objItem.TracksPerCylinder & @CRLF

if Msgbox(1,"WMI Output",$Output) = 2 then ExitLoop

$Output=""

Next

Else

Msgbox(0,"WMI Output","No WMI Objects Found for class: " & "Win32_DiskDrive" )

Endif

; >> here comes my attempt ..

$file = FileOpen("info5.txt", 1)

FileWrite($file,"Computer="& $strComputer & @crlf);

FileWrite($file,""& @crlf);

FileWrite($file,"BytesPerSector="& $objItem.BytesPerSector & @crlf);

FileWrite($file,"Capabilities="& $strCapabilities & @crlf);

FileWrite($file,"CapabilityDescriptions="& $strCapabilityDescriptions & @crlf);

FileWrite($file,"Caption="& $objItem.Caption & @crlf);

FileWrite($file,"Description="& $objItem.Description & @crlf);

FileWrite($file,"DeviceID="& $objItem.DeviceID & @crlf);

FileWrite($file,"InterfaceType="& $objItem.InterfaceType & @crlf);

FileWrite($file,"size="& $objItem.Size & @crlf);

FileClose($file)

; here ends my

;~ Func WMIDateStringToDate($dtmDate)

;~ Return (StringMid($dtmDate, 5, 2) & "/" & _

;~ StringMid($dtmDate, 7, 2) & "/" & StringLeft($dtmDate, 4) _

;~ & " " & StringMid($dtmDate, 9, 2) & ":" & StringMid($dtmDate, 11, 2) & ":" & StringMid($dtmDate,13, 2))

;~ EndFunc

Share this post


Link to post
Share on other sites



I think the For...Next loop is whats repeating, just move your stuff right before the "if msgbox..." line

Instead of filewrite

Your job'll be much easier with 'filewriteline'

Good attempt though

Share this post


Link to post
Share on other sites

#3 ·  Posted (edited)

try to replace this:

$Output=""oÝ÷ Û­Øb±«­¢+ØÀÌØí=ÕÑÁÕÐôÀÌØí=ÕÑÁÕеÀí±oÝ÷ Ù§íz»ay«­¢+Ù¥5ͽà Ä°ÅÕ½Ðí]5$=ÕÑÁÕÐÅÕ½Ðì°ÀÌØí=ÕÑÁÕФôÈÑ¡¸á¥Ñ1½½

Edit:then write $Output to the file

RK

Edited by rbhkamal

"When the power of love overcomes the love of power, the world will know peace"-Jimi Hendrix

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0