NT sver & 2000 clients Screen Saver

[Guest]

I have a NT server with 2000 client machines. I need to implement a password
protected screen saver for a time out of 30 minutes on 10 machines and 15
minutes on the remainder. I have been spending hours on this trying to get
it to work.
This is what i have done:-
Created a reg file on a floppy to insert into the clients a: - this didnt
work because of registry permissions
I then tried to put a reg file into the users logon script on the server -
this didnt work because of registry permissions
I am now looking at altering the registry permission of each user but am
thinking their must be a better way to do this.
Do I use poledit or system policy?
I tried to manually change this on each users pc under the registry KEYNAME
"control panel\desktop"
Can someone help im just pulling my hair out trying to get this to work



Expand AllCollapse All

 

[Guest]

You can use a VBS Script file to run a remote registry from a computer, logon
as the domain admin user.

This Script may help you…
Dim oFSO, TS, strComputer, objShell, objComputer, strSvrList, oFile, oShell,
uidShell
Const ForReading = 1
Set oShell = CreateObject("Wscript.Shell")
set uidShell = WScript.CreateObject("WScript.Shell")
' Read machine names from the dupuidlist.txt file.
Set oFSO = WScript.CreateObject("Scripting.FileSystemObject")
Set TS = oFSO.OpenTextFile (".\ClonedUIDList.txt", ForReading)
Do While Not TS.AtEndOfStream
strComputer = Trim(TS.ReadLine)

' Reset the UID
On Error Resume Next

' Re-sets the cloned UID to zero
uidShell.RegWrite
"HKLM\SOFTWARE\ComputerAssociates\eTrustAntivirus\CurrentVersion\ID", 0,
"REG_BINARY"

' Adds a key to aid future troubleshooting.
uidShell.RegWrite
"HKLM\SOFTWARE\ComputerAssociates\eTrustAntivirus\7.0\CurrentVersion", "New
UID generated by post clone VBS"

' Msgbox when the last server on the list has been tested.
If TS.AtEndOfStream = True Then
MsgBox "Finished resetting UID's from list",vbOk+vbInformation,"Reset
UID's"

End if
' Do it all again until end of list.
' Next

Loop

TS.Close
Set TS = Nothing
Set oFSO = Nothing
Set oFile = Nothing


Do reply on your success,

Stanley George

 

[Guest]

Stanley....WOW thanks for your indepth reply. Unfortunately I do not know
how to use VBS and what you have written I am unsure how to implement. I
apologise for not being able to take full advantage of your knowledge and
your effort to help.

 

[Guest]

Hi Lennon,
It’s very easy to do that… you can use your notepad to edit the file.
You need to make two files. One is the code file with vbs extension. And
other file is
(ClonedUIDList.txt) containing the system names.
And you have to change the code file
HKLM\SOFTWARE\ComputerAssociates\eTrustAntivirus\7.0\CurrentVersion
With the setting you want to make changes.

Regards,
Stanley George