Punto informatico Network
Login Esegui login | Non sei registrato? Iscriviti ora (è gratuito!)
Username: Password:
  • Annuncio Pubblicitario

[RISOLTO!! Grazie a Tutti!] Aiutino con Script....

Office fa le bizze? Photoshop non funziona più? Forse possiamo darti una mano...

[RISOLTO!! Grazie a Tutti!] Aiutino con Script....

Messaggioda Robertoxxx » ven apr 13, 2007 10:54 am

Salve,
volevo chiedere a tutti gli utenti di MegaLab come posso creare uno script con formato vbs che modifichi un valore nel registro di Windows.
Spero che abbiate capito cosa intendo.
Grazie.
Ultima modifica di Robertoxxx il ven apr 13, 2007 1:09 pm, modificato 1 volta in totale.
Visitate il mio sito che parla di grafica http://www.informarts.org
Avatar utente
Robertoxxx
Senior Member
Senior Member
 
Messaggi: 449
Iscritto il: mer feb 28, 2007 6:47 pm

Messaggioda Kgiulio » ven apr 13, 2007 12:44 pm

ho visto giusto ora la guida per i baloon tips, dai un'occhiata al codice: [;)]
    Option Explicit
    On Error Resume Next

    Dim WSHShell, n, p, itemtype, MyBox
    Set WSHShell = WScript.CreateObject("WScript.Shell")

    p = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\EnableBalloonTips"

    itemtype = "REG_DWORD"

    n = WSHShell.RegRead (p)
    errnum = Err.Number

    if errnum <> 1 then

    WSHShell.RegWrite p, 0, itemtype
    End If

    If n = 0 Then
    WshShell.RegWrite p, 1, itemtype
    MyBox = MsgBox("I balloon tips sono abilitati", 64, "Visualizza o nascondi i balloon tips")
    End If

    If n = 1 Then
    WshShell.Regwrite p, 0, itemtype
    MyBox = MsgBox("I balloon tips sono disabilitati", 64, "Visualizza o nascondi i balloon tips")
    End If

    Set WshShell = Nothing

comunque è particolare perché c'è una funzione IF che modifica il valore in base a quello che c'è già, se ti serve solo modificare un valore la puoi evitare [std]
Ultima modifica di Kgiulio il ven apr 13, 2007 12:47 pm, modificato 2 volte in totale.
Avatar utente
Kgiulio
Silver Member
Silver Member
 
Messaggi: 1663
Iscritto il: gio set 09, 2004 8:08 pm
Località: Italia

Messaggioda Robertoxxx » ven apr 13, 2007 12:45 pm

Anche io me ne sono accorto, ho provato a modificare tutto ma nulla. Non capisco come fa lo script a modificare il valore dword!
Dovrei mettere un valore diverso ma non so come fare.
P.S:Grazie per la risposta
Visitate il mio sito che parla di grafica http://www.informarts.org
Avatar utente
Robertoxxx
Senior Member
Senior Member
 
Messaggi: 449
Iscritto il: mer feb 28, 2007 6:47 pm


Messaggioda Kgiulio » ven apr 13, 2007 12:48 pm

di preciso cosa devi fare?
Avatar utente
Kgiulio
Silver Member
Silver Member
 
Messaggi: 1663
Iscritto il: gio set 09, 2004 8:08 pm
Località: Italia

Messaggioda Robertoxxx » ven apr 13, 2007 12:49 pm

Kgiulio ha scritto:di preciso cosa devi fare?

Dovrei una chiave dword di nome EnableLUA che si trova al seguente percorso:
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System
Visitate il mio sito che parla di grafica http://www.informarts.org
Avatar utente
Robertoxxx
Senior Member
Senior Member
 
Messaggi: 449
Iscritto il: mer feb 28, 2007 6:47 pm

Messaggioda Rumez » ven apr 13, 2007 12:50 pm

Avatar utente
Rumez
Membro Ufficiale (Gold)
Membro Ufficiale (Gold)
 
Messaggi: 1783
Iscritto il: mar mag 13, 2003 2:08 pm

Messaggioda Kgiulio » ven apr 13, 2007 12:59 pm

Robertoxxx ha scritto:
Kgiulio ha scritto:di preciso cosa devi fare?

Dovrei creare una chiave dword di nome EnableLUA con valore 1 che si trova al seguente percorso:
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System

ecco secondo me come puoi fare:
    Option Explicit
    On Error Resume Next

    Dim WSHShell, n, p, itemtype, MyBox
    Set WSHShell = WScript.CreateObject("WScript.Shell")

    p = "HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\System\EnableLUA"
    itemtype = "REG_DWORD"

    n = WSHShell.RegRead (p)
    errnum = Err.Number

    if errnum <> 1 then

    WSHShell.RegWrite p, 1, itemtype
    End If

    If n = 0 Then
    WshShell.RegWrite p, 1, itemtype
    MyBox = MsgBox("LUA è stato abilitato!", 64, "Attivazione LUA")
    End If

    If n = 1 Then
    WshShell.Regwrite p, 0, itemtype
    MyBox = MsgBox("LUA è stato disabilitato!", 64, "Attivazione LUA")
    End If

    Set WshShell = Nothing

a cosa serve abilitare questa cosa?
Avatar utente
Kgiulio
Silver Member
Silver Member
 
Messaggi: 1663
Iscritto il: gio set 09, 2004 8:08 pm
Località: Italia

Messaggioda Robertoxxx » ven apr 13, 2007 1:01 pm

In verità si chiama UAC (User Account Control)
P.S: Questa funzione è conpatibile solo con W. Vista
Serve per disattivare e abilitare l'UAC
Visitate il mio sito che parla di grafica http://www.informarts.org
Avatar utente
Robertoxxx
Senior Member
Senior Member
 
Messaggi: 449
Iscritto il: mer feb 28, 2007 6:47 pm

Messaggioda Kgiulio » ven apr 13, 2007 1:02 pm

prova.. poi magari dai un feedback [:D] [;)]
Avatar utente
Kgiulio
Silver Member
Silver Member
 
Messaggi: 1663
Iscritto il: gio set 09, 2004 8:08 pm
Località: Italia

Messaggioda Rumez » ven apr 13, 2007 1:03 pm

Codice: Seleziona tutto

Dim WshShell, bKey

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

WshShell. RegWrite"HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\EnableLUA", 1, "REG_DWORD"





dove l'1 prima di "REG_DWORD" è il valore intero che vuoi assegnare alla chiave
Avatar utente
Rumez
Membro Ufficiale (Gold)
Membro Ufficiale (Gold)
 
Messaggi: 1783
Iscritto il: mar mag 13, 2003 2:08 pm

Messaggioda Robertoxxx » ven apr 13, 2007 1:04 pm

Grazie ci sono riuscito!
Visitate il mio sito che parla di grafica http://www.informarts.org
Avatar utente
Robertoxxx
Senior Member
Senior Member
 
Messaggi: 449
Iscritto il: mer feb 28, 2007 6:47 pm


Torna a Software

Chi c’è in linea

Visitano il forum: Nessuno e 3 ospiti

Powered by phpBB © 2002, 2005, 2007, 2008 phpBB Group
Traduzione Italiana phpBB.it

megalab.it: testata telematica quotidiana registrata al Tribunale di Cosenza n. 22/09 del 13.08.2009, editore Master New Media S.r.l.; © Copyright 2008 Master New Media S.r.l. a socio unico - P.I. 02947530784. GRUPPO EDIZIONI MASTER Spa Tutti i diritti sono riservati. Per la pubblicità: Master Advertising