Probleme avec compte non-admin. [VB] - VB/VBA/VBS - Programmation
MarshPosté le 26-12-2007 à 09:28:41
Bonjour à tous, voila je débute en Visual Basic et j'aurai besoin de vos conseils pour deux petits problemes. Le premier, c'est que je n'arrive pas à creer une clé de registre avec un compte qui n'est pas administrateur,cela me met le message ci-dessous. http://img242.imageshack.us/my.php [...] iptzg3.jpg
Le deuxieme probleme, c'est que je n'arrive pas a editer la clé de registre "ShellState" en REG_BINARY, j'ai aussi un message d'erreur me disant que le type est incorrect. J'aimerai lui donner la valeur "2400000033800100000000000000000000000000010000000d0000000000000002000000", est-ce que cela est possible, ou il faut absolument que tout soit en binaire ?
Voici mon code :
strComputer = "." Set wshshell = wscript.createobject("wscript.shell" )
Marsh Posté le 26-12-2007 à 09:28:41
Bonjour à tous,
voila je débute en Visual Basic et j'aurai besoin de vos conseils pour deux petits problemes.
Le premier, c'est que je n'arrive pas à creer une clé de registre avec un compte qui n'est pas administrateur,cela me met le message ci-dessous.
http://img242.imageshack.us/my.php [...] iptzg3.jpg
Le deuxieme probleme, c'est que je n'arrive pas a editer la clé de registre "ShellState" en REG_BINARY, j'ai aussi un message d'erreur me disant que le type est incorrect.
J'aimerai lui donner la valeur "2400000033800100000000000000000000000000010000000d0000000000000002000000", est-ce que cela est possible, ou il faut absolument que tout soit en binaire ?
Voici mon code :
strComputer = "."
Set wshshell = wscript.createobject("wscript.shell" )
Set WshNet = CreateObject("WScript.Network" )
User = WshNet.Username
wshshell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoActiveDesktop", "00000000", "REG_DWORD"
wshshell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDesktop", "00000000", "REG_DWORD"
wshshell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoSaveSettings", "00000000", "REG_DWORD"
wshshell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\ClassicShell", "00000000", "REG_DWORD"
wshshell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\ShellState", "2400000033800100000000000000000000000000010000000d0000000000000002000000", "REG_BINARY"
set wshshell = nothing
set wshNet = nothing
Merci d'avance pour votre aide