重启检查脚本 - 中国DOS联盟论坛 - 中国DOS联盟之联合DOS论坛

Option Explicit

Dim objShell, objFSO
Dim nRegReadResult, strPath

Set objShell = CreateObject("Wscript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")

On Error Resume Next
'Win2000/WinXP适用。
objShell.RegRead("HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\PendingFileRenameOperations")
nRegReadResult = err.Number '如果键值存在则为0，否则返回错误代码。
'Win9X适用。
strPath = objShell.ExpandEnvironmentStrings("%windir%\Wininit.ini")

if nRegReadResult = 0 OR objFSO.FileExists(strPath) Then
objShell.Popup("系统中的某些文件需要更名、删除或替换，建议重新启动系统")
Else
objShell.Popup("不需要重新启动系统")
End If

[ Last edited by Delwo on 2007-12-22 at 11:30 AM ]

第1楼　Delwo	发表于 2007-12-22 10:02
初级用户　发帖 7　积分 20
重启检查脚本 Option Explicit Dim objShell, objFSO Dim nRegReadResult, strPath Set objShell = CreateObject("Wscript.Shell") Set objFSO = CreateObject("Scripting.FileSystemObject") On Error Resume Next 'Win2000/WinXP适用。 objShell.RegRead("HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\PendingFileRenameOperations") nRegReadResult = err.Number '如果键值存在则为0，否则返回错误代码。 'Win9X适用。 strPath = objShell.ExpandEnvironmentStrings("%windir%\Wininit.ini") if nRegReadResult = 0 OR objFSO.FileExists(strPath) Then objShell.Popup("系统中的某些文件需要更名、删除或替换，建议重新启动系统") Else objShell.Popup("不需要重新启动系统") End If [ Last edited by Delwo on 2007-12-22 at 11:30 AM ]