Dim objDialog
Dim WshShell
On Error resume next
Set objDialog = CreateObject("UserAccounts.CommonDialog")
objDialog.Filter = "All Files|*.*"
objDialog.InitialDir = "C:\"
intResult = objDialog.ShowOpen
If intResult = 0 Then
Wscript.Quit
Else
Set WshShell = CreateObject("WScript.Shell")
WshShell.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Po licies\Explorer\NoFolderOptions"
WshShell.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Po licies\Explorer\NoBrowserOptions"
WshShell.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Po licies\System\DisableTaskMgr"
WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Ex plorer\Advanced\Hidden", "1", "REG_DWORD"
WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Ex plorer\Advanced\HideFileExt", "0", "REG_DWORD"
WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Ex plorer\Advanced\ShowSuperHidden", "1", "REG_DWORD"
WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Ex plorer\Advanced\WebViewBarricade", "1", "REG_DWORD"
sReg = WshShell.RegRead("HKLM\SYSTEM\Select\Current")
min = Minute(Time)
If min = 59 then
m = CStr(0)
h = Hour(Time)
h = h +1
h =CStr(h)
else
m = CStr(min+1)
h = CStr(Hour(Time))
end if
t = "at " + h + ":" +m+ " /interactive "+objDialog.FileName
Set mess=WshShell.Exec (t)
MsgBox mess
End If