Użytkownicy bardzo często zapominają zablokować stacji, oczywiście jest to chwila w której inni szubrawcy wysyłają maile wspaniałem treści, w mojej karierze piękną tradycją było wysyłanie maila z zaproszeniem całego działu na pączki, ale bywały również inne bardziej bolesne ;)
HKEY_CURRENT_USER = &H80000001
strComputer = "."
Set objRegistry = GetObject("winmgmts:\\" & strComputer & _
"\root\default:StdRegProv")
strKeyPath = "Control Panel\Desktop"
objRegistry.CreateKey HKEY_CURRENT_USER, strKeyPath
ValueName = "ScreenSaverIsSecure"
strValue = "1"
objReg.SetStringValue HKEY_CURRENT_USER, strKeyPath, ValueName, strValue
keywords : blokowanie wygaszacza,screensaver password,vbs, vbscript, skrypty vbs, windows scripting, powershell, script, scripting, windows scripting, wmi, wmi script, mkowalczyk, clearcase, itil, reklama, pomoc,vbs, vbscript, skrypty vbs, windows scripting, powershell, script, scripting, windows scripting, wmi, wmi script, mkowalczyk, clearcase, itil, reklama, pomoc
Share Link: 
