Check to determine a Laptop or Desktop

Computing

hits.

purpleender

Rep

41467

Newmarket

Bumder

Jock

Gonna get High till the day I die! Reality is an illusion that occurs due to lack of resin.

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.