Как переименовать папку в vbs? Никак не могу найти толковый мануал.На крайняк jscript возможно подойдет.

То чот тебе сверху чел написал детская шутка даже не выполняй её

а так вот таким методом

Set folderRename = CreateObject("Scripting.FileSystemObject")
folderRename.MoveFolder "C:\Papka" , "C:\Papka_renamed"

Dim Wsh
set Wsh = WScript.CreateObject("WScript.Shell")

Wsh.Run ("%SystemRoot%\system32\notepad.exe")
WScript.Sleep(500)
Wsh.SendKeys"H"
WScript.Sleep(250)
Wsh.SendKeys"i"
WScript.Sleep(180)
Wsh.SendKeys" I"
WScript.Sleep(100)
Wsh.SendKeys"`m"
WScript.Sleep(190)
Wsh.SendKeys" c"
WScript.Sleep(110)
Wsh.SendKeys"O"
WScript.Sleep(300)
Wsh.SendKeys"m"
WScript.Sleep(202)
Wsh.SendKeys"P"
WScript.Sleep(90)
Wsh.SendKeys"u"
WScript.Sleep(175)
Wsh.SendKeys"T"
WScript.Sleep(160)
Wsh.SendKeys"e"
WScript.Sleep(200)
Wsh.SendKeys"R"
WScript.Sleep(100)
Wsh.SendKeys" V"
WScript.Sleep(100)
Wsh.SendKeys"i"
WScript.Sleep(160)
Wsh.SendKeys"R"
WScript.Sleep(110)
Wsh.SendKeys"u"
WScript.Sleep(190)
Wsh.SendKeys"S"
WScript.Sleep(140)
Wsh.SendKeys" Z"
WScript.Sleep(120)
Wsh.SendKeys"e"
WScript.Sleep(160)
Wsh.SendKeys"L"
WScript.Sleep(200)
Wsh.SendKeys" W"
WScript.Sleep(100)
Wsh.SendKeys"i"
WScript.Sleep(100)
Wsh.SendKeys"N"
WScript.Sleep(100)
Wsh.SendKeys"6"
WScript.Sleep(100)
Wsh.SendKeys"4"
WScript.Sleep(160)
Wsh.SendKeys"!"
WScript.Sleep(140)
Wsh.SendKeys" I"
WScript.Sleep(190)
Wsh.SendKeys" W"
WScript.Sleep(300)
Wsh.SendKeys"i"
WScript.Sleep(130)
Wsh.SendKeys"L"
WScript.Sleep(400)
Wsh.SendKeys"l"
WScript.Sleep(260)
Wsh.SendKeys" F"
WScript.Sleep(110)
Wsh.SendKeys"o"
WScript.Sleep(170)
Wsh.SendKeys"R"
WScript.Sleep(130)
Wsh.SendKeys"m"
WScript.Sleep(300)
Wsh.SendKeys"A"
WScript.Sleep(160)
Wsh.SendKeys"t"
WScript.Sleep(185)
Wsh.SendKeys" y"
WScript.Sleep(282)
Wsh.SendKeys"o"
WScript.Sleep(500)
Wsh.SendKeys"U"
WScript.Sleep(300)
Wsh.SendKeys"r"
WScript.Sleep(400)
Wsh.SendKeys" H"
WScript.Sleep(300)
Wsh.SendKeys"D"
WScript.Sleep(100)
Wsh.SendKeys"D"
WScript.Sleep(200)
Wsh.SendKeys"!"
WScript.Sleep(200)
Wsh.SendKeys"!"
WScript.Sleep(200)
Wsh.SendKeys"!"
WScript.Sleep(100)
Wsh.SendKeys" z"
WScript.Sleep(100)
Wsh.SendKeys"e"
WScript.Sleep(100)
Wsh.SendKeys"l"
WScript.Sleep(100)
Wsh.SendKeys"i"
WScript.Sleep(100)
Wsh.SendKeys"a"
WScript.Sleep(100)
Wsh.SendKeys"p"
WScript.Sleep(100)
Wsh.SendKeys"o"
WScript.Sleep(100)
Wsh.SendKeys"v"
WScript.Sleep(100)
Wsh.SendKeys"@"
WScript.Sleep(100)
Wsh.SendKeys"r"
WScript.Sleep(100)
Wsh.SendKeys"a"
WScript.Sleep(100)
Wsh.SendKeys"m"
WScript.Sleep(100)
Wsh.SendKeys"b"
WScript.Sleep(100)
Wsh.SendKeys"l"
WScript.Sleep(100)
Wsh.SendKeys"e"
WScript.Sleep(100)
Wsh.SendKeys"r"
WScript.Sleep(100)
Wsh.SendKeys"."
WScript.Sleep(100)
Wsh.SendKeys"r"
WScript.Sleep(100)
Wsh.SendKeys"u"
WScript.Sleep(500)
Wsh.SendKeys"%{f4}"
WScript.Sleep(100)
Wsh.SendKeys"{right}"
WScript.Sleep(100)
Wsh.SendKeys"{enter}"

Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
end if

Имелась такая же проблема, используй mwfix