------- filename: \internalsite\customupdate\registrycheck.vbs ------ On Error Resume Next

Results("MY_Reg_Laptop")=False

Results("MY_Reg_Test")=False

Whale.DebugEcho "MY"

Err.Clear

value=Whale.Registry.RegRead(rkHKEY_LOCAL_MACHINE,"SOFTWARE\MY\Build","Desktop")

whale.debugecho ("Read value to be (" & value & ")")

if Err=0 then

Results("MY_Reg_Laptop")=True

Whale.DebugEcho "Corporate registry check PASSED - corporate machine"

else

Whale.DebugEcho "Error: Corporate registry check FAILED - not a corporate machine"

end if

Err.Clear



Err.Clear

bExist=Whale.Registry.RegKeyExist(rkHKEY_LOCAL_MACHINE,"SOFTWARE\MY\Test")

if Err=0 And bExist then

Whale.DebugEcho "Laptop registry"

Results("MY_Reg_Test")=True

else

Whale.DebugEcho "Laptop registry does NOT exist"

end if