Check to determine a Laptop or Desktop

Computing

hits.

Rep

Gamerscore 33992

ZoneUnderground

Last Updated on Friday, 21 August 2009 23:40 Written by Administrator Friday, 21 August 2009 23:12

To delete registry sub-keys and key path:

Dim strCompType

'****Main Code
On Error Resume Next

strCompType = WshShell.RegRead("HKLM\System\CurrentControlSet\Services\Pcmcia\Start")

'Check if a laptop
If (strCompType = "0") Then
MSGBOX ("Laptop Being Used")

Else

MSGBOX ("Desktop Being Used")

End If

Please Note: Append to Template.vbs to run this script.