FAQ VBScriptConsultez toutes les FAQ

1
2
3
Dim WshShell 
Set WshShell = WScript.CreateObject("WScript.Shell") 
WshShell.RegWrite "HKCU\Software\dvp-faqvbs\montest",now

1
2
3
Dim WshShell 
Set WshShell = WScript.CreateObject("WScript.Shell") 
msgbox WshShell.RegRead ("HKCU\Software\dvp-faqvbs\montest")

1
2
3
Dim WshShell 
Set WshShell = WScript.CreateObject("WScript.Shell") 
WshShell.RegDelete ("HKCU\Software\dvp-faqvbs\montest")

1
2
3
Dim WshShell 
Set WshShell = WScript.CreateObject("WScript.Shell") 
WshShell.RegDelete ("HKCU\Software\dvp-faqvbs\")

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim MaCle  
  
Set MaCle = CreateObject("WScript.Shell") 
'nom de votre type de fichier 
MaCle.RegWrite "HKEY_CLASSES_ROOT\Test Ext\", "Test Ext", "REG_SZ" 
'commande a exécuter pour ouvrir les fichiers de ce type 
MaCle.RegWrite "HKEY_CLASSES_ROOT\Test Ext\shell\open\command\", "C:\jmarc\FAQ\TestExt.exe %1", "REG_SZ" 
'icone à utiliser pour représenter les fichiers de ce type, ici la troisième icone contenue dans TestExt.exe 
'(la première icone a l'index 0) 
MaCle.RegWrite "HKEY_CLASSES_ROOT\Test Ext\DefaultIcon\", "C:\jmarc\FAQ\TestExt.exe,2", "REG_SZ" 
  
'extension correspondant à ce type de fichier 
MaCle.RegWrite "HKEY_CLASSES_ROOT\.jmr\", "Test Ext", "REG_SZ"

1
2
3
Set WshShell = CreateObject("WScript.Shell") 
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr", "1" 
Set WshShell = Nothing

1
2
3
Set WshShell = CreateObject("WScript.Shell") 
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr", "" 
Set WshShell = Nothing

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 Option Explicit 
  
 Dim WS, CurKey, Path, tmp, cmp 
 Const SpecKey = "HKCU\Software\Microsoft\Windows\CurrentVersion\Applets\Regedit\Lastkey" 
  
 If GetLocale = 1033 Then cmp = "My Computer\" 
 If GetLocale = 1036 Then cmp = "Poste de travail\" 
  
 Set WS = CreateObject("WScript.Shell") 
 Path = InputBox("Entrez le chemin de clé à ouvrir", "Ouvrir une clé du registre") 
 If Path = "" Then 
	MsgBox "Opération non effectuée !", vbExclamation, "Opération annulée" 
 Else 
	tmp = Mid(Path, InStr(1,Path,"\")) 
	CurKey = VerifyEntry(Path) & tmp  
	CurKey = cmp & CurKey ' Selon la version de Windows (FR ou EN) My Computer ou Poste de travail 
     	WS.RegWrite SpecKey, CurKey, "REG_SZ" 
	WS.Run "Regedit.exe", 1, True 
 End If 
  ' ================== 
 Function VerifyEntry(strIn)  
   ' Fonction de transformation des noms abrégés des racines en noms longs 
   ' pour pouvoir l'ouvrir, sinon l'opération échouera 
   Dim Ret 
   strIn = Left(strIn,InStr(1,strIn,"\") - 1) 
   Select Case UCase(strIn) 
      Case "HKLM" : Ret = "HKEY_LOCAL_MACHINE" 
      Case "HKCU" : Ret = "HKEY_CURRENT_USER" 
      Case "HKCR" : Ret = "HKEY_CLASSES_ROOT" 
      Case "HKUS" : Ret = "HKEY_USERS" 
      Case "HKCC" : Ret = "HKEY_CURRENT_CONFIG" 
      Case "HKEY_LOCAL_MACHINE", "HKEY_CURRENT_USER", "HKEY_CLASSES_ROOT", "HKEY_USERS", "HKEY_CURRENT_CONFIG" : Ret = strIn 
      Case Else : MsgBox "Erreur de données entrées !" : Wscript.Quit 0 
   End Select 
  VerifyEntry = Ret 
End Function