I?m trying to do that (in title) and I?m wondering how… I know that it?s possible by GPO (user conf/admin templates/control panel/… and so on), but the point is… I need to exclude 3 computers from meeting rooms of that policy because they are used for presentations for several users. Well, I can?t deny permissions on GPO permissions for machines if policy is for user configuration (as far as I know), it doesnt work… also, I tried to do a vbs file modifying the registry key (so, I can validate de machine name), but modify the registry key for screen saver doesn work properly for me, cause just active after reboot, doesnt accept the delay that I set and password doesnt work always… pls.. someone can give me advices?
below is my script for modifying… (I tried to modify both HKEY_USERS and HKEY_CURRENT_USER
—————-start
Set objSysInfo = CreateObject(“ADSystemInfo”)
CN = split(objSysInfo.ComputerName, “,”) (0)
computername = right(CN,len(CN)-3)
strComputer = “.”
Set StdOut = WScript.StdOut
Const HKEY_CURRENT_USER = &H80000001
Const HKEY_USERS = &H80000003
Set objReg = GetObject(“winmgmts:\\” & strComputer & “\root\default:StdRegProv”)
Set objRegusers = GetObject(“winmgmts:\\” & strComputer & “\root\default:StdRegProv”)
strKeyPath = “Control Panel\Desktop”
strKeyPathusers = “.Default\Control Panel\Desktop”
objReg.CreateKey HKEY_CURRENT_USER, strKeyPath
objRegusers.CreateKey HKEY_USERS, strKeyPathusers
IF computername <> “meetingpc” THEN
ValueName = “ScreenSaveTimeout”
strValue = “20”
objReg.SetStringValue HKEY_CURRENT_USER, strKeyPath, ValueName, strValue
objRegusers.SetStringValue HKEY_USERS, strKeyPathusers, ValueName, strValue
ValueName = “ScreenSaverIsSecure”
strValue = “1”
objReg.SetStringValue HKEY_CURRENT_USER, strKeyPath, ValueName, strValue
objRegusers.SetStringValue HKEY_USERS, strKeyPathusers, ValueName, strValue
End IF
—————end
