Snippets ( Hardware Information ) - Revision history

Guinness: /* _GetUnusedDrives */

2014-05-12T19:47:00Z

_GetUnusedDrives

← Older revision		Revision as of 19:47, 12 May 2014
Line 141:		Line 141:

	Func _GetUnusedDrives()		Func _GetUnusedDrives()
	Local ~~$aReturn[1] = [0],~~ $sReturn = ''		Local $sReturn = 'B:\|C:\|D:\|E:\|F:\|G:\|H:\|I:\|J:\|K:\|L:\|M:\|N:\|O:\|P:\|Q:\|R:\|S:\|T:\|U:\|V:\|W:\|X:\|Y:\|Z:\|'

	~~For $i = 1 To 26~~
	~~$sReturn &= Chr($i + 64) & '~~:\|'
	~~Next~~

	Local $aArray = DriveGetDrive('ALL')		Local $aArray = DriveGetDrive('ALL')
	If @error Then		If @error Then
	$aArray = $~~aReturn~~		Local $aError = [0]
			$aArray = $aError
			$aError = 0
	EndIf		EndIf

	For $i = 1 To $aArray[0]		For $i = 1 To $aArray[0]
	$sReturn = StringReplace($sReturn, ~~StringLeft(~~$aArray[$i]~~, 1)~~ & ':\|', '')		$sReturn = StringReplace($sReturn, $aArray[$i] & '\|', '')
	Next		Next
	Return StringSplit(StringTrimRight($sReturn, 1), '\|')		Return StringSplit(StringTrimRight($sReturn, StringLen('\|')), '\|')
	EndFunc ;==>_GetUnusedDrives		EndFunc ;==>_GetUnusedDrives
	</syntaxhighlight>		</syntaxhighlight>

Guinness: /* _IsTrueCrypt */

2014-05-12T19:43:06Z

_IsTrueCrypt

← Older revision		Revision as of 19:43, 12 May 2014
Line 197:		Line 197:
	; Check if a drive is a TrueCrypt drive.		; Check if a drive is a TrueCrypt drive.
	Func _IsTrueCrypt($sDrive)		Func _IsTrueCrypt($sDrive)
	Return StringInStr(_WinAPI_QueryDosDevice(StringLeft($sDrive, 1) & ':'), 'TrueCrypt'~~, 2~~) > 0		Return StringInStr(_WinAPI_QueryDosDevice(StringLeft($sDrive, StringLen('A')) & ':'), 'TrueCrypt') > 0
	EndFunc ;==>_IsTrueCrypt		EndFunc ;==>_IsTrueCrypt
	</syntaxhighlight>		</syntaxhighlight>

Rindeal at 00:08, 17 January 2014

2014-01-17T00:08:58Z

@@ Line 60: / Line 60: @@
      Return SetError(1, 1, 0)
 EndFunc   ;==>_GetComputerModel
 </syntaxhighlight>

Guinness: /* _GetDriveBusType */

2012-12-16T11:42:51Z

_GetDriveBusType

← Older revision		Revision as of 11:42, 16 December 2012
Line 76:		Line 76:
	#include <WinAPIEx.au3>		#include <WinAPIEx.au3>

	~~Global Const~~ $aDrive = DriveGetDrive('ALL')		Local $aDrive = DriveGetDrive('ALL')

	For $i = 1 To $aDrive[0]		For $i = 1 To $aDrive[0]
	ConsoleWrite(StringUpper($aDrive[$i]) & ' => ' & _GetDriveBusType($aDrive[$i]) & @CRLF)		ConsoleWrite(StringUpper($aDrive[$i]) & ' => ' & _GetDriveBusType($aDrive[$i]) & @CRLF)
	Next		Next

	; Get a string representation of a drive's bus type.		; Get a string representation of a drive's bus type.
	Func _GetDriveBusType($sDrive)		Func _GetDriveBusType($sDrive)
	Local ~~Const~~ $aArray[14][2] = _		Local $aArray[14][2] = [[$DRIVE_BUS_TYPE_UNKNOWN, 'UNKNOWN'], _
	[[$DRIVE_BUS_TYPE_UNKNOWN, 'UNKNOWN'], _		[$DRIVE_BUS_TYPE_SCSI, 'SCSI'], _
	[$DRIVE_BUS_TYPE_SCSI, 'SCSI'], _		[$DRIVE_BUS_TYPE_ATAPI, 'ATAPI'], _
	[$DRIVE_BUS_TYPE_ATAPI, 'ATAPI'], _		[$DRIVE_BUS_TYPE_ATA, 'ATA'], _
	[$DRIVE_BUS_TYPE_ATA, 'ATA'], _		[$DRIVE_BUS_TYPE_1394, '1394'], _
	[$DRIVE_BUS_TYPE_1394, '1394'], _		[$DRIVE_BUS_TYPE_SSA, 'SSA'], _
	[$DRIVE_BUS_TYPE_SSA, 'SSA'], _		[$DRIVE_BUS_TYPE_FIBRE, 'FIBRE'], _
	[$DRIVE_BUS_TYPE_FIBRE, 'FIBRE'], _		[$DRIVE_BUS_TYPE_USB, 'USB'], _
	[$DRIVE_BUS_TYPE_USB, 'USB'], _		[$DRIVE_BUS_TYPE_RAID, 'RAID'], _
	[$DRIVE_BUS_TYPE_RAID, 'RAID'], _		[$DRIVE_BUS_TYPE_ISCSI, 'ISCSI'], _
	[$DRIVE_BUS_TYPE_ISCSI, 'ISCSI'], _		[$DRIVE_BUS_TYPE_SAS, 'SAS'], _
	[$DRIVE_BUS_TYPE_SAS, 'SAS'], _		[$DRIVE_BUS_TYPE_SATA, 'SATA'], _
	[$DRIVE_BUS_TYPE_SATA, 'SATA'], _		[$DRIVE_BUS_TYPE_SD, 'SD'], _
	[$DRIVE_BUS_TYPE_SD, 'SD'], _		[$DRIVE_BUS_TYPE_MMC, 'MMC']]
	[$DRIVE_BUS_TYPE_MMC, 'MMC']]		Local $iDriveType = _WinAPI_GetDriveBusType($sDrive)
			If @error Then
	Local ~~Const~~ $iDriveType = _WinAPI_GetDriveBusType($sDrive)		Return $aArray[0][1]
			EndIf
	If @error Then		Return $aArray[$iDriveType][1]
	Return $aArray[0][1]
	EndIf

	Return $aArray[$iDriveType][1]
	EndFunc ;==>_GetDriveBusType		EndFunc ;==>_GetDriveBusType
	</syntaxhighlight>		</syntaxhighlight>

Jaberwocky6669: Edited snippets to conform to template Snippet Header.

2012-11-13T20:20:49Z

Edited snippets to conform to template Snippet Header.

Show changes

IEvKI3gv9Wrkd41u: +Snippets Category (+ normalize top)

2012-11-12T15:16:51Z

+Snippets Category (+ normalize top)

← Older revision		Revision as of 15:16, 12 November 2012
Line 1:		Line 1:
			__TOC__
			[[category:Snippets]]

	{{Snippet Credit Header}}		{{Snippet Credit Header}}

Jaberwocky6669: Cnnverted to Template:Snippet Header, added Snippet Credit Header, added "Return To Contents" after each snippet

2012-11-11T18:21:28Z

Cnnverted to Template:Snippet Header, added Snippet Credit Header, added "Return To Contents" after each snippet

← Older revision		Revision as of 18:21, 11 November 2012
Line 1:		Line 1:
	~~<div class="center" style="width:auto; margin-left:auto; margin-right:auto;">'''Please always credit an author in your script if you use their code, Its only polite.'''</div>~~		{{Snippet Credit Header}}
	~~===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">'''~~ _ComputerNameAndModel~~() ~ Author - [http://www.autoitscript.com/forum/user/~~35302-guinness/ guinness~~] '''</blockquote> =====~~
			{{Snippet Header\|_ComputerNameAndModel\|35302-guinness\|guinness\|\|}}

	<syntaxhighlight lang="autoit">		<syntaxhighlight lang="autoit">
Line 23:		Line 24:
	</syntaxhighlight>		</syntaxhighlight>

	~~===== <blockquote style="background-color:white; padding:1em; border:2px solid~~ #~~8FBC8F">'''~~ _GetComputerModel~~() ~ Author - [http://www.autoitscript.com/forum/user/~~35302-guinness/ guinness~~] '''</blockquote> =====~~		[[#top\|Return To Contents]]

			{{Snippet Header\|_GetComputerModel\|35302-guinness\|guinness\|\|}}

	<syntaxhighlight lang="autoit">		<syntaxhighlight lang="autoit">
Line 42:		Line 45:
	</syntaxhighlight>		</syntaxhighlight>

	~~===== <blockquote style="background-color:white; padding:1em; border:2px solid~~ #~~8FBC8F">'''~~ _GetDriveBusType~~() ~ Author - [http://www.autoitscript.com/forum/user/~~35302-guinness/ guinness~~] '''</blockquote> =====~~		[[#top\|Return To Contents]]

			{{Snippet Header\|_GetDriveBusType\|35302-guinness\|guinness\|\|}}

	<syntaxhighlight lang="autoit">		<syntaxhighlight lang="autoit">
	#include <APIConstants.au3>		#include <APIConstants.au3>
Line 75:		Line 81:
	EndFunc ;==>_GetDriveBusType		EndFunc ;==>_GetDriveBusType
	</syntaxhighlight>		</syntaxhighlight>

	[[#top\|Return To Contents]]		[[#top\|Return To Contents]]

	~~===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">'''~~ _GetUnusedDrives~~() ~ Author - [http://www.autoitscript.com/forum/user/~~35302-guinness/ guinness~~] '''</blockquote> =====~~		{{Snippet Header\|_GetUnusedDrives\|35302-guinness\|guinness\|\|}}

	<syntaxhighlight lang="autoit">		<syntaxhighlight lang="autoit">
Line 105:		Line 112:
	</syntaxhighlight>		</syntaxhighlight>

	~~===== <blockquote style="background-color:white; padding:1em; border:2px solid~~ #~~8FBC8F">'''~~ _IsSubst~~() ~ Author - [http://www.autoitscript.com/forum/user/~~35302-guinness/ guinness~~] '''</blockquote> =====~~		[[#top\|Return To Contents]]

			{{Snippet Header\|_IsSubst\|35302-guinness\|guinness\|\|}}

	<syntaxhighlight lang="autoit">		<syntaxhighlight lang="autoit">
Line 118:		Line 127:
	</syntaxhighlight>		</syntaxhighlight>

	~~===== <blockquote style="background-color:white; padding:1em; border:2px solid~~ #~~8FBC8F">'''~~ _IsTrueCrypt~~() ~ Author - [http://www.autoitscript.com/forum/user/~~35302-guinness/ guinness~~] '''</blockquote> =====~~		[[#top\|Return To Contents]]

			{{Snippet Header\|_IsTrueCrypt\|35302-guinness\|guinness\|\|}}

	<syntaxhighlight lang="autoit">		<syntaxhighlight lang="autoit">
Line 131:		Line 142:
	</syntaxhighlight>		</syntaxhighlight>

	~~===== <blockquote style="background-color:white; padding:1em; border:2px solid~~ #~~8FBC8F">''' Toggle Monitor On/Off ~ Author - [http://www.autoitscript.com/forum/user/~~7688-greenmachine/ greenmachine~~] '''</blockquote> =====~~		[[#top\|Return To Contents]]

			{{Snippet Header\|_MonitorToggle\|7688-greenmachine\|greenmachine\|\|}}

	<syntaxhighlight lang="autoit">		<syntaxhighlight lang="autoit">
Line 151:		Line 164:
	EndFunc ;==>_MonitorToggle		EndFunc ;==>_MonitorToggle
	</syntaxhighlight>		</syntaxhighlight>

			[[#top\|Return To Contents]]

	{{Snippet Header\|_GetTotalScreenResolution\|28010-larrydalooza\|LarryDalooza\|16404-brettf\|BrettF}}		{{Snippet Header\|_GetTotalScreenResolution\|28010-larrydalooza\|LarryDalooza\|16404-brettf\|BrettF}}

	<syntaxhighlight lang="autoit"> Global Const $aTSR = _GetTotalScreenResolution()		<syntaxhighlight lang="autoit">
			Global Const $aTSR = _GetTotalScreenResolution()

	MsgBox(0, "Total Screen Resolution", "Width = " & $aTSR[0] & @TAB & "Height = " & $aTSR[1])		MsgBox(0, "Total Screen Resolution", "Width = " & $aTSR[0] & @TAB & "Height = " & $aTSR[1])

	~~; Original code by Larry. Edited by~~
	Func _GetTotalScreenResolution()		Func _GetTotalScreenResolution()
	Local Const $SM_VIRTUALWIDTH = 78		Local Const $SM_VIRTUALWIDTH = 78
Line 169:		Line 184:

	Return $aRet		Return $aRet
	EndFunc </syntaxhighlight>		EndFunc
			</syntaxhighlight>

			[[#top\|Return To Contents]]

Jaberwocky6669 at 18:12, 11 November 2012

2012-11-11T18:12:57Z

← Older revision		Revision as of 18:12, 11 November 2012
Line 152:		Line 152:
	</syntaxhighlight>		</syntaxhighlight>

	{{Snippet Header\|_GetTotalScreenResolution\|28010-larrydalooza\|LarryDalooza\|\|BrettF}}		{{Snippet Header\|_GetTotalScreenResolution\|28010-larrydalooza\|LarryDalooza\|16404-brettf\|BrettF}}

	<syntaxhighlight lang="autoit"> Global Const $aTSR = _GetTotalScreenResolution()		<syntaxhighlight lang="autoit"> Global Const $aTSR = _GetTotalScreenResolution()

Jaberwocky6669: /* _GetTotalScreenResolution ~ Author - LarryDalooza */

2012-11-11T18:04:50Z

_GetTotalScreenResolution ~ Author - LarryDalooza

← Older revision		Revision as of 18:04, 11 November 2012
Line 152:		Line 152:
	</syntaxhighlight>		</syntaxhighlight>

	~~=====<blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">'''~~ _GetTotalScreenResolution ~~~ Author - [http://www.autoitscript.com/forum/user/~~28010-larrydalooza/ LarryDalooza~~]'''</blockquote> =====~~		{{Snippet Header\|_GetTotalScreenResolution\|28010-larrydalooza\|LarryDalooza\|\|BrettF}}

	<syntaxhighlight lang="autoit"> Global Const $aTSR = _GetTotalScreenResolution()		<syntaxhighlight lang="autoit"> Global Const $aTSR = _GetTotalScreenResolution()
Line 158:		Line 158:
	MsgBox(0, "Total Screen Resolution", "Width = " & $aTSR[0] & @TAB & "Height = " & $aTSR[1])		MsgBox(0, "Total Screen Resolution", "Width = " & $aTSR[0] & @TAB & "Height = " & $aTSR[1])

	; Original code by Larry. Edited by ~~BrettF~~		; Original code by Larry. Edited by
	Func _GetTotalScreenResolution()		Func _GetTotalScreenResolution()
	Local Const $SM_VIRTUALWIDTH = 78		Local Const $SM_VIRTUALWIDTH = 78

Jaberwocky6669: /* _GetTotalScreenResolution ~ Author - LarryDalooza */ fixed code formatting -- I'll get the hang of this wiki stuff one day

2012-11-11T12:43:29Z

_GetTotalScreenResolution ~ Author - LarryDalooza: fixed code formatting -- I'll get the hang of this wiki stuff one day

← Older revision		Revision as of 12:43, 11 November 2012
Line 164:		Line 164:

	Local Const $SM_VIRTUALHEIGHT = 79		Local Const $SM_VIRTUALHEIGHT = 79
	Local Const $VirtualDesktopHeight = DllCall("user32.dll", "int", "GetSystemMetrics", "int", $SM_VIRTUALHEIGHT)		Local Const $VirtualDesktopHeight = DllCall("user32.dll", "int", "GetSystemMetrics", "int", $SM_VIRTUALHEIGHT)

	Local Const $aRet[2] = [$VirtualDesktopWidth[0], $VirtualDesktopHeight[0]]		Local Const $aRet[2] = [$VirtualDesktopWidth[0], $VirtualDesktopHeight[0]]