VBScript - (prg)

Permette di eseguire il Lock di un computer.

script

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

wshShell.Run "RunDll32.exe user32.dll,LockWorkStation"

 

Eseguire semplicemente:

cscript LockWorkStation.vbs

il computer verrà bloccato sulla schermata di login.

Permette di visualizzare la schermata "Display Properties".

script

Set objArgs = WScript.Arguments

If (objArgs.Count = 0) Then

    wscript.echo ""

    wscript.echo "Usage: cscript ShowDisplayPropertiesWindow.vbs [Themes|Background|ScreenSaver|Appearance|Settings|Web]"

    WScript.Quit(0)

End if

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

wshShell.Run "rundll32.exe shell32.dll,Control_RunDLL desk.cpl ,@" & objArgs(0)

 

Eseguendo:

cscript ShowDisplayPropertiesWindow.vbs Themes

secondo il parametro passato verrà visualizzata la tab corrispondente nella schermata "Display Properties":

     

è possibile usare uno dei seguenti parametri:

• Themes
• Background
• ScreenSaver
• Appearance
• Settings
• Web

Note:
La seguente chiave di registro può essere utilizzata per nascondere le tab che non interessano.

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\system
NoDispScrSavPage	REG_DWORD	1
NoDispBackgroundPage	REG_DWORD	1
NoDispSettingsPage	REG_DWORD	1
NoDispAppearancePage	REG_DWORD	1

ATTENZIONE: se usate in modo errato il Registry Editor, potreste causare problemi seri che potrebbero richiedere la reinstallazione del vostro Sistema Operativo.

Permette di visualizzare il prodotto e l'ultimo numero di service pack applicato.

script

On Error Resume Next

set shell = createobject("wscript.shell")

sValueProductName = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\" & "ProductName"

sValueVersion = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\" & "CSDVersion"

pr = shell.regread(sValueProductName)

if Err.number <> 0 then

    wscript.echo "Error reading ProductName"

    wscript.quit(1)

end if

sp = shell.regread(sValueVersion)

if Err.number <> 0 then

    wscript.echo pr & " - " & "NO Service Pack"

else

    wscript.echo pr & " - " & sp

end if

 

Eseguendo:

cscript ShowProductAndServicePackNumber.vbs

si ottiene il risultato seguente:

Permette di eseguire lo shutdown di un computer.

script

Set sh = WScript.CreateObject("Shell.Application")

sh.ShutdownWindows

Set sh = Nothing

 

Eseguendo:

cscript Shutdown.vbs

verrà presentata la schermata seguente di shutdown: