CODE: [Copy to clipboard]
Set WshShell = WScript.CreateObject("WScript.Shell")
Set objWMIService = Getobject("Winmgmts:")
Set colProcessList = objWMIService.ExecQuery _
("select * from Win32_Process where name='cmd.exe'")
IF IsArray(colProcessList) Then
MsgBox "亲爱的朋友,请先关闭该软件后,再运行本程序执行备份", 64, "友情提示"
Else
WshShell.Run "xcopy.txt"
end if
CODE: [Copy to clipboard]
Set Ws = CreateObject("WScript.Shell")
Dim Wmi, Proc, Info, Flag, Target
Target = "cmd.exe"
Flag = False
Set Wmi = Getobject("Winmgmts:")
Set Proc = Wmi.Execquery("Select * From Win32_Process")
For Each Info In Proc
If Info.Name = Target Then Flag = True
Next
If Flag = False Then
Ws.Run "xcopy.txt"
Else
MsgBox "亲爱的朋友,请先关闭该软件后,再运行本程序执行备份", 64, "友情提示"
End If