On Error Resume Next
Set objShell = CreateObject("WScript.Shell")
strComputerMgmt = "mmc compmgmt.msc"
objShell.Run strComputerMgmt
If Err.Number <> 0 Then
MsgBox "コンピューターの管理の起動に失敗しました。" & vbCrLf & "エラー: " & Err.Description, vbExclamation
End If
Set objShell = Nothing
On Error Resume Next
Set objShell = CreateObject("WScript.Shell")
strComputerMgmt = "mmc compmgmt.msc"
objShell.Run strComputerMgmt
If Err.Number <> 0 Then
MsgBox "コンピューターの管理の起動に失敗しました。" & vbCrLf & "エラー: " & Err.Description, vbExclamation
End If
Set objShell = Nothing