On Error Resume Next Dim FileExtKey, WshShell ,Shell , FileExtStatus FileExtKey = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt" Set WshShell = WScript.CreateObject("WScript.Shell") FileExtStatus = WshShell.RegRead(FileExtKey) Select Case FileExtStatus Case 0 Msg1 = MsgBox ("Windows Explorer will not show files name extensions . ") If Msg1 = 1 Then WshShell.RegWrite FileExtKey, 1, "REG_DWORD" Case 1 Msg2= MsgBox ("Windows Explorer will show files name extensions . " ) If Msg2=1 Then WshShell.RegWrite FileExtKey, 0, "REG_DWORD" End Select Set Shell = Wscript.CreateObject("WScript.Shell") Shell.AppActivate "Program Manager" Shell.SendKeys "{F5}" Set Shell = Nothing If err.number<>0 then WScript.Echo ("Script Check Failed") Wscript.Quit 1001 Else WScript.Echo ("Script Check Passed") Wscript.Quit 0 End If