regedit kaydını vbs çevirmek istiyorum

[Bien]

Aşağıda bulunan kaydı .vbs çevirmek istiyorum yardım olabilir misiniz

Kod: Tümünü seç

Windows Registry Editor Version 5.00 

[HKEY_CLASSES_ROOT\AllFilesystemObjects\shellex\ContextMenuHandlers\Copy To]
@="{C2FBB630-2971-11D1-A18C-00C04FD75D13}"
 

[velociraptor]

Bunu iki yöntemle yapabilirsin fakat en sağlamı aşağıdaki , çünkü RegWrite metodunun bazı sakıncaları var :
1. REG_MULTI_SZ değerlerini desteklemez
2. REG_BINARY e bir DWORD yazabilir daha uzunlarını desteklemez

Kod: Tümünü seç

Const HKEY_CLASSES_ROOT = &H80000000
strComputer = "."
Set objReg=GetObject( _
    "winmgmts:{impersonationLevel=impersonate}!\\" & _
   strComputer & "\root\default:StdRegProv")

strKeyPath = "AllFilesystemObjects\shellex\ContextMenuHandlers\Copy to"
objReg.CreateKey HKEY_CLASSES_ROOT,strKeyPath
strValue = "{C2FBB630-2971-11D1-A18C-00C04FD75D13}"
objReg.SetStringValue HKEY_CLASSES_ROOT,_
    strKeyPath,strValueName,strValue
WScript.Echo "istediğin değer oluşturuldu bien"

[Bien]

Teşekkürler

Sonunda ki mesajda güzel olmuş :)

[velociraptor]

bir iki deneme yapayım RegWrite metodunu kullanrak ta aynı değer nasıl yazılır onu da görürüz

[velociraptor]

RegWrite Metodu ile daha az kod kullanarak aynı sonuç alınmış hali

Kod: Tümünü seç

Dim WshShell, bKey
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegWrite "HKCR\AllFilesystemObjects\shellex\ContextMenuHandlers\Copy to\", "{C2FBB630-2971-11D1-A18C-00C04FD75D13}"
WScript.Echo "istediğin değer RegWrite ile oluşturuldu bien"

[Bien]

Bu daha kısa ve daha anlaşılır.
Tekrar teşekkürler :)

[velociraptor]

Evet ama dediğim gibi bazı kullanılamadığı durumlar var yukarında sakıncalarını yazdım ama %90 iş görecektir