DevAdmin Blog

Blog di Ermanno Goletto (Microsoft MVP Directory Services - MCSE - MCSA - MCITP - MCTS)
posts - 1026, comments - 598, trackbacks - 8

My Links

News

Il blog si è trasferito al seguente link:

www.devadmin.it

Avatar

Visualizza il profilo di Ermanno Goletto su LinkedIn

Follow ermannog on Twitter


Il contenuto di questo blog e di ciascun post viene fornito “così come é”, senza garanzie, e non conferisce alcun diritto. Questo blog riporta il mio personale pensiero che non riflette necessariamente il pensiero del mio datore di lavoro.

Logo Creative Commons Deed


Logo SysAdmin.it SysAdmin.it Staff


Logo TechNet Forum TechNet Italia @ForumTechNetIt Follow TechNet Forum on Twitter


Logo MVP

Article Categories

Archives

Post Categories

Blogs

Friends

Knowledge Base

MVP Sites

Resources

Blocco Computer

E' possibile bloccare il computer dopo un certo tempo tramite la Account Lockout Policy se però si avesse la necessità di bloccare il computer immediatamente è posibile usare il comando:

%windir%\System32\Rundll32.exe user32.dll,LockWorkStation

Dal momento che è possibile accedere alla funzionalità di bloccaggio computer tramite CTRL+ALT+CANC questo comando torna utile nel caso si dovesse bloccare il computer al termine di un processo batch o di uno script oppure se si vuole creare sul desktop uno shortcut per agevolare l'accesso alla funzionalità agli utenti.

In quest'ultima ipotesi per agevolare anche il lavoro aggli amministratori di sistema è possibile utilizzare il seguente script per automatizzare la creazione dello shortcut sul desktop dell'utente:

Option Explicit

Dim wshShell
Set wshShell = WScript.CreateObject ( "WScript.Shell" )

Dim strAllUsersDesktopFolder
strAllUsersDesktopFolder = wshShell.SpecialFolders ( "AllUsersDesktop" )

Dim objShortcut
Set objShortcut = WshShell.CreateShortcut ( strAllUsersDesktopFolder& "\LockWorkstation.lnk" )

'Set Shortcut Properties
objShortcut.Description = "Locks the workstation"
objShortcut.IconLocation = "%windir%\System32\shell32.dll, 47"
objShortcut.TargetPath = "%windir%\System32\Rundll32.exe"
objShortcut.Arguments = "user32.dll,LockWorkStation"
objShortcut.WorkingDirectory = "%windir%"

'Save Shortcut
objShortcut.Save

Set objShortcut = Nothing
Set WshShell = Nothing

Print | posted on Thursday, July 24, 2008 12:13 PM | Filed Under [ Links Code, Snippets & Scripts Tips IT ]

Powered by:
Powered By Subtext Powered By ASP.NET