|
I work as Administrator on a NT4 server and I would like to update workstations NT4, 2000 and XP, who are ordinary users
For example, to install a sceensaver :
dim $filter[0]
$filter[0] = 'Computer'
$objDomain = GetObject('WinNT://' + @DOMAIN + ',domain')
$objDomain.Filter = $filter
for Each $OC in $objDomain
$res=WRITEVALUE("\\"+$OC.Name+"\HKEY_CURRENT_USER\Control Panel\Desktop","ScreenSaveTimeOut","1800","REG_SZ")
$res=WRITEVALUE("\\"+$OC.Name+"\HKEY_CURRENT_USER\Control Panel\Desktop","ScreenSaveActive","1","REG_SZ")
$res=WRITEVALUE("\\"+$OC.Name+"\HKEY_CURRENT_USER\Control Panel\Desktop","SCRNSAVE.EXE","////C:\WINNT\System32\logon.scr","REG_SZ")
$res=WRITEVALUE("\\"+$OC.Name+"\HKEY_CURRENT_USER\Control Panel\Desktop","ScreenSaverIsSecure","1","REG_SZ")
$res=WRITEVALUE("\\"+$OC.Name+"\HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System","NoDispScrSavPage","1","REG_DWORD")
Next
This script doesn't work. The HKCU is updated but not the HKU
And for updade the HKU I need a SID.
Jean
| 
