Need help to Convert a very little vbs script to autoit script

[Borje 10]

Hello everybody is there somebody out there can help me to convert this little vbs script to to a autoit script?

code:

Option Explicit

Dim Title

Title = "Icon Layout"

Dim fso, TgtDLL, WshShell

Set WshShell = CreateObject("WScript.Shell")

Set fso = CreateObject("Scripting.FileSystemObject")

TgtDLL = fso.GetSpecialFolder(0) & "\System32\LAYOUT.DLL"

On Error Resume Next

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

WshShell.RegWrite "HKCR\CLSID\{19F500E0-9964-11cf-B63D-08002B317C03}\", "Desktop Icon Layout", "REG_SZ"

WshShell.RegWrite "HKCR\CLSID\{19F500E0-9964-11cf-B63D-08002B317C03}\InProcServer32\", "Layout.dll", "REG_SZ"

WshShell.RegWrite "HKCR\CLSID\{19F500E0-9964-11cf-B63D-08002B317C03}\InProcServer32\ThreadingModel", "Apartment", "REG_SZ"

WshShell.RegWrite "HKCR\Directory\Background\shellex\ContextMenuHandlers\IconLayout\","{19F500E0-9964-11cf-B63D-08002B317C03}", "REG_SZ"

WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Shell Extensions\Approved\{19F500E0-9964-11cf-B63D-08002B317C03}", "Desktop Icon Layout", "REG_SZ"

fso.CopyFile "LAYOUT.DLL", TgtDLL, True

MsgBox "Save and Restore Desktop Icon Layout" & vbCR & "has been added to the Desktop context menu.",4096,"End"

Set WshShell = Nothing

Set fso = Nothing

[cdkid 5]

Just look at some of the following things in the helpfile

RegRead()
RegWrite()
MsgBox()
FileCopy()
FileFindFirstFile

Use those and see what you can do, then if you can't get it, post here what you already did.

~cdkid

Edited September 13, 2007 by cdkid

[MrCreatoR 159]

Maybe something like this:

$Title = "Icon Layout"
$TgtDLL = @SystemDir & "\LAYOUT.DLL"

RegWrite("HKCR\CLSID\{19F500E0-9964-11cf-B63D-08002B317C03}", "Desktop Icon Layout", "REG_SZ")
RegWrite("HKCR\CLSID\{19F500E0-9964-11cf-B63D-08002B317C03}\InProcServer32", "Layout.dll", "REG_SZ")
RegWrite("HKCR\CLSID\{19F500E0-9964-11cf-B63D-08002B317C03}\InProcServer32\ThreadingModel", "Apartment", "REG_SZ")
RegWrite("HKCR\Directory\Background\shellex\ContextMenuHandlers\IconLayout", "{19F500E0-9964-11cf-B63D-08002B317C03}", "REG_SZ")
RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Shell Extensions\Approved\{19F500E0-9964-11cf-B63D-08002B317C03}", _
    "Desktop Icon Layout", "REG_SZ")

FileCopy("LAYOUT.DLL", $TgtDLL, 1)
MsgBox(4096, "End", "Save and Restore Desktop Icon Layout" & @CR & "has been added to the Desktop context menu.")

[Borje 10]

Thanks Ms Creator you are super good and give fast help......

Exactly what I want thank you very much...

[MrCreatoR 159]

Thanks

You wellcome

and BTW, if i understand right, check this out (no Dll using)