Programmazione

Visualizza elenco completo degli utenti di un dominio

descrizione

Il seguente script permette di visualizzare un elenco completo degli utenti di un dominio...

script


If WScript.Arguments.Count = 0 Then
  wscript.echo ""
  wscript.echo "Usage: cscript ListAllUser.vbs <domain name>"
  wscript.echo ""
  WScript.Quit(1)
End If
Set obj = GetObject("WinNT://" & WScript.Arguments(0))
obj.Filter = Array("user")
For Each userObj In obj
    WScript.echo "User: " & userObj.Name
Next
 

Eseguire semplicemente:

cscript ListAllUsers.vbs nome_dominio_di_rete

versione

1.0

Visualizza elenco domini di rete

descrizione

Il seguente script permette di visualizzare un elenco completo dei domini di rete...

script


set obj = GetObject("WinNT:")
obj.Filter = Array("domain")
for each objDom in obj
  WScript.echo objDom.Name
next
set obj = Nothing
 

Eseguire semplicemente:

cscript ListAllDomain.vbs

versione

1.0

Visualizza elenco di account bloccati

descrizione

Il seguente script permette di visualizzare un elenco completo degli account utente bloccati...

script


If WScript.Arguments.Count = 0 Then
  wscript.echo ""
  wscript.echo "Usage: cscript ListAccountLocked.vbs <domain name>"
  wscript.echo ""
  WScript.Quit(1)
End If
Set obj = GetObject("WinNT://" & WScript.Arguments(0))
obj.Filter = Array("user")
For Each userObj In obj
  If userObj.IsAccountLocked Then
    WScript.echo "User: " & userObj.Name & " is locked!"
  End If
Next
 

Eseguire semplicemente:

cscript ListAccountLocked.vbs nome_dominio_di_rete

versione

1.0

Visualizza il nome completo dell'utente di rete corrente

descrizione

Il seguente script permette di visualizzare il nome completo dell'utente di rete corrente...

script


Set oNetwork = CreateObject("WScript.Network")
Set oUser = GetObject("WinNT://" & oNetwork.UserDomain & "/" & oNetwork.username)
WScript.echo oUser.Fullname
 

Eseguire semplicemente:

cscript GetCurrentNetworkUserFullName.vbs

versione

1.0

Comprimere tutti i database tranne quelli OFFLINE

descrizione

Il seguente script SQL permette di comprimere tutti i database...

è possibile schedularlo o eseguirlo direttamente con l'applicazione SQL Query Analyzer.

script


DECLARE @name AS char(50)
DECLARE @prog AS int
DECLARE @STATUS varchar(20)
DECLARE @max_dbid AS int
SET @prog = 1
SET @max_dbid = (SELECT MAX(dbid) FROM sysdatabases)
WHILE (@prog <= @max_dbid)
BEGIN
    SET @name = (SELECT name FROM sysdatabases WHERE dbid = @prog)
    SET @STATUS = convert(varchar(20),(SELECT DATABASEPROPERTYEX(@name, 'Status')))
    IF @STATUS='ONLINE'
    begin
        BACKUP LOG @name WITH TRUNCATE_ONLY
        DBCC SHRINKDATABASE(@name) WITH NO_INFOMSGS
        print  @name + ' Compressed - Status: ' + @STATUS
    end
    IF @STATUS='OFFLINE'
    begin
        print 'Impossible to compress ' + @name + ' because of - Status: ' + @STATUS
    end
    SET @prog = (@prog + 1)
END
 


versione

1.0

Update ChangeIP

descrizione

Programma VBScript che permette di aggiornare il servizio ChangeIP con l'indirizzo IP del proprio computer.

Può essere eseguito su tutte le piattaforme Microsoft, non ha interfaccia utente è semplice e richiede poca memoria per essere eseguito.

caratteristiche

  • aggiorna il database ChangeIP solo quando il proprio indirizzo IP è cambiato o quando sono passati più di 28 giorni.
  • lavora attraverso un proxy o un router utilizzando un servizio remoto per verificare il proprio indirizzo IP.
  • può aggiornare contemporaneamente più hostname di un account.
  • è facile da usare e chiunque può modificare lo script a suo piacimento.

sistemi operativi testati

  • Windows 2000 Professional
  • Windows 2000 Server
  • Windows 2000 Advanced Server
  • Windows XP Professional

installazione e configurazione

Download e unzip dell'ultima versione, eseguendo "cscript UpdateChangeIP.vbs" verrà visualizzata la lista dei parametri che si possono passare allo script.

Richiede come prerequisito Internet Explorer 6.0

modifiche e correzioni per versione

  • v 1.0 Prima beta release.
  • v 1.1 Correzione funzione "forzatura update" dopo 28 giorni, è necessario cancellare "*.ini" file(s) generati dalla versione 1.0 prima di usare questa versione.


versione

1.1

pppdcheck - mantenere attivo il processo pppd

descrizione

Permette di riattivare il demone pppd, nel caso il processo termini in modo inaspettato.

Il seguente script può permettere, per esempio, di mantenere sempre attiva la connessione ADSL.

script


PATH=/sbin:/bin:/usr/sbin:/usr/bin
# Check if pppd process is running
if ! pidof pppd>/dev/null;
then
        pon;
        logger 'pppdcheck: pon recovery action';
fi
 

Assegnare i diritti di esecuzione al file di script:

chmod 755  /directory/pppdcheck.sh

a questo punto basta schedulare lo script in questo modo:

crontab -e

e aggiungere la seguente riga per fare il controllo ogni 5 minuti:

*/5 * * * * /directory/pppdcheck.sh


versione

1.0

Lock WorkStation

descrizione

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.

versione

1.0

Visualizza la schermata Display Properties

descrizione

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.

versione

1.1

Visualizza il nome del prodotto e il livello di Service Pack in Windows NT

descrizione

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:




versione

1.0
Syndicate content