Call "d:\kix\udf\netview2.udf"
$computerlist=NetView2()
For Each $computer In $computerlist
$PRODUCTTYPE=ReadValue('\\$computer\HKEY_LOCAL_MACHINE\SYSTEM\CURRENTCONTROLSET\CONTROL\PRODUCTOPTIONS','PRODUCTTYPE')
If $PRODUCTTYPE="WinNT"
$regkey='\\'+$computer+'\HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion'
$regvalue='CurrentVersion'
If ReadValue($regkey,$regvalue)='5.0'
? "$computer 2k"
$RDD=KeyExist('\\$computer\HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\CompBatt')
? $rdd
If ($RDD=1)
? "$computer is laptop"
Open(1,"C:\laptop2k.TXT",5)
WriteLine (1,"$computer"+@CRLF)
Close(1)
EndIf
EndIf
EndIf
Next

BREAK ON
CLS
;Requires WMIQuery > http://www.kixtart.org/board/ultimatebb.php?ubb=get_topic;f=12;t=000117
;http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/win32_systemenclosure.asp
;Thanks Radimus for the inspiration!!
$casetype=WMIQuery('ChassisTypes','Win32_SystemEnclosure')[0]

?$casetype

FOR EACH $lt IN split($casetype, '8,9,10,11')
$lt="Lap"
NEXT

IF $lt<>""
?'PORTABLE'
ELSE
?'DESKTOP'
ENDIF

get $k

;Portable units would be
;--
;8 Portable
;9 Laptop
;10 Notebook
;11 Hand Held

;Desktops would be
;--
;1 Other
;2 Unknown
;3 Desktop
;4 Low Profile Desktop
;5 Pizza Box
;6 Mini Tower
;7 Tower
;12 Docking Station
;13 All in One
;14 Sub Notebook
;15 Space-Saving
;16 Lunch Box
;17 Main System Chassis
;18 Expansion Chassis
;19 SubChassis
;20 Bus Expansion Chassis
;21 Peripheral Chassis
;22 Storage Chassis
;23 Rack Mount Chassis
;24 Sealed-Case PC

If KeyExist("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Enum\ACPI\PNP0C0A") or KeyExist("HKEY_LOCAL_MACHINE\Enum\ACPI\*PNP0C0A")
$msg = messagebox ("This is a laptop!!","laptop",0)
Else
$msg = messagebox ("This is not a laptop!!","laptop",0)
Endif

$sComps=NetView2()
for each $sComp in $sComps
$iRC=IsLaptop($sComp,1)
select
case $iRC=-1
? $sComp+' is unknown'
case $iRC=1
? $sComp+' is a laptop'
case $iRC=0
? $sComp+' is not a laptop'
case 1
? 'undefined'
endif
next
exit 0

DEBUG OFF
BREAK OFF
if instr(@scriptdir,'beta') or instr(@scriptdir,'test')
BREAK ON
endif

Dim $iRC
$iRC=SETOPTION('Explicit','ON')
$iRC=SETOPTION('NoVarsInStrings','ON')
$iRC=SETOPTION('WrapAtEOL','ON')

$iRC=SETTITLE('Script Title')

$iRC=Main()

exit 0

I had two days off from Office, It is glad to know that the topic is still hot. Any ways I checked Citrix man's script and sorry to say that I found that key(PNPOCOA) in 4 desktop PC's in my company which is Compaq D51C/P253. thees PC was having COMPBATT key too where my script failed first time.

I found NTDOC (WMI query) was only Possible but as somebody said WMI is good only for admin script, I found that if I add WMI script in my login script and machine doesn’t have WMI installed the entire script is failing to proceed.

I'll say what is my actual requirement to find laptop, My laptop users are taking their machines at home this is causing a virus threat, so we decided to write a script to check the dat version in laptop if it is old show a message to call help desk and log them off without further mercy !!

Pls let me know is there any other way to do this ... this is the requirement from or Vice president of I.T.

I'll post my old code

code:

$laptop=KeyExist("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\CompBatt")
   If $laptop=1
	$datver=ReadValue("HKEY_LOCAL_MACHINE\SOFTWARE\Network Associates\TVD\VirusScan Enterprise\CurrentVersion","szVirDefVer")
	$srvdat=ReadProfileString("\\qasrvho\updates$\update.ini","SuperDat-IA32","DATVersion")
	If ($datver=$srvdat)
		? "same version"
	Else
		? "vier. is diffrent"
		$msg=MessageBox ("Your virus deffnition files are old, Please call IT help desk immediatly!! You wont be able to login to network unless you have latest deffnition file","Virus file allert",16)
		Logoff (1)
	EndIf 
  EndIf