{"id":5832,"date":"2015-07-15T15:47:27","date_gmt":"2015-07-15T06:47:27","guid":{"rendered":"http:\/\/www.ka-net.org\/blog\/?p=5832"},"modified":"2015-07-15T15:47:27","modified_gmt":"2015-07-15T06:47:27","slug":"%e5%8f%b3%e3%82%af%e3%83%aa%e3%83%83%e3%82%af%e3%83%a1%e3%83%8b%e3%83%a5%e3%83%bc%e3%81%8b%e3%82%89%e3%83%95%e3%82%a9%e3%83%ab%e3%83%80%e3%82%92%e7%ae%a1%e7%90%86%e8%80%85%e6%a8%a9%e9%99%90%e3%81%a7","status":"publish","type":"post","link":"https:\/\/www.ka-net.org\/blog\/?p=5832","title":{"rendered":"\u53f3\u30af\u30ea\u30c3\u30af\u30e1\u30cb\u30e5\u30fc\u304b\u3089\u30d5\u30a9\u30eb\u30c0\u3092\u7ba1\u7406\u8005\u6a29\u9650\u3067\u958b\u304f(\u30b3\u30de\u30f3\u30c9 \u30d7\u30ed\u30f3\u30d7\u30c8)"},"content":{"rendered":"

\u30d5\u30a9\u30eb\u30c0\u3092Shift\u30ad\u30fc\u3092\u62bc\u3057\u306a\u304c\u3089\u53f3\u30af\u30ea\u30c3\u30af\u3059\u308b\u3068\u3001\u300c\u30b3\u30de\u30f3\u30c9 \u30a6\u30a3\u30f3\u30c9\u30a6\u3092\u3053\u3053\u3067\u958b\u304f<\/span>\u300d\u3068\u3044\u3046\u30e1\u30cb\u30e5\u30fc\u304c\u8868\u793a\u3055\u308c\u307e\u3059\u3002<\/p>\n

\"RunAsAdminMenu_01\"<\/a><\/p>\n

\u30b3\u30de\u30f3\u30c9 \u30d7\u30ed\u30f3\u30d7\u30c8\u3067\u30d5\u30a9\u30eb\u30c0\u5185\u306e\u30d5\u30a1\u30a4\u30eb\u64cd\u4f5c\u3092\u3057\u305f\u3044\u3068\u304d\u7b49\u306b\u4f7f\u3048\u308b\u3001\u3068\u3066\u3082\u4fbf\u5229\u306a\u30e1\u30cb\u30e5\u30fc\u306a\u306e\u3067\u3059\u304c\u4e00\u3064\u3060\u3051\u4e0d\u6e80\u304c\u3042\u308a\u307e\u3059\u3002<\/p>\n

\u305d\u308c\u306f\u201c\u7ba1\u7406\u8005\u6a29\u9650\u3067\u958b\u3051\u306a\u3044\u201d<\/span>\u3053\u3068\u3067\u3059\u3002<\/p>\n

\u30b3\u30de\u30f3\u30c9 \u30d7\u30ed\u30f3\u30d7\u30c8\u3092\u7ba1\u7406\u8005\u3068\u3057\u3066\u5b9f\u884c\u3057\u3066\u30d5\u30a9\u30eb\u30c0\u79fb\u52d5\u3059\u308c\u3070\u826f\u3044\u3060\u3051\u306a\u306e\u3067\u3059\u304c\u3001\u30a4\u30c1\u30a4\u30c1CD\u30b3\u30de\u30f3\u30c9\u5165\u529b\u3057\u3066\u30d1\u30b9\u3092\u5165\u529b\u3057\u3066\u2026\u3068\u3044\u3046\u4f5c\u696d\u304c\u975e\u5e38\u306b\u9762\u5012\u304f\u3055\u3044\u3067\u3059\u3002<\/p>\n

\u305d\u3053\u3067\u3001VBScript\uff06\u30ec\u30b8\u30b9\u30c8\u30ea\u7de8\u96c6\u3067\u53f3\u30af\u30ea\u30c3\u30af\u30e1\u30cb\u30e5\u30fc\u304b\u3089\u30d5\u30a9\u30eb\u30c0\u3092\u7ba1\u7406\u8005\u6a29\u9650\u3067\u958b\u3051\u308b\u3088\u3046\u306b\u3057\u3066\u307f\u307e\u3057\u305f\u3002<\/p>\n

\u203b \u4e0b\u8a18\u30b9\u30af\u30ea\u30d7\u30c8\u3068\u30ec\u30b8\u30b9\u30c8\u30ea\u7de8\u96c6\u306e\u52d5\u4f5c\u78ba\u8a8d\u306fWindows 7(64\u30d3\u30c3\u30c8\u7248)\u3067\u884c\u3044\u307e\u3057\u305f\u3002<\/span><\/p>\n

\u30b9\u30af\u30ea\u30d7\u30c8\u30d5\u30a1\u30a4\u30eb\u306e\u6e96\u5099<\/h4>\n

\u307e\u305a\u306f\u53f3\u30af\u30ea\u30c3\u30af\u30e1\u30cb\u30e5\u30fc\u304b\u3089\u5b9f\u884c\u3059\u308b\u30b9\u30af\u30ea\u30d7\u30c8\u30d5\u30a1\u30a4\u30eb\u3092\u6e96\u5099\u3057\u307e\u3059\u3002<\/p>\n

Option Explicit\r\n\r\nPrivate Const AdminPhrase = "AdminScript"\r\n\r\nDim args\r\n\r\nSet args = WScript.Arguments\r\nIf args.Count < 1 Then\r\n  MsgBox "\u5f15\u6570\u304c\u6b63\u3057\u304f\u3042\u308a\u307e\u305b\u3093\u3002" & vbCrLf & _\r\n         "\u51e6\u7406\u3092\u4e2d\u6b62\u3057\u307e\u3059\u3002", vbExclamation + vbSystemModal\r\n  WScript.Quit\r\nElseIf args.Count < 2 Then\r\n  RunasAdminProc args(0)\r\n  WScript.Quit\r\nElseIf args(1) <> AdminPhrase Then\r\n  RunasAdminProc args(0)\r\n  WScript.Quit\r\nEnd If\r\n\r\nWith CreateObject("Shell.Application")\r\n  Select Case IsFolderOrFile(args(0))\r\n    Case 1: .ShellExecute "cmd.exe", " \/k CD \/D " & ChrW(34) & args(0) & ChrW(34)\r\n    Case 2: .ShellExecute ChrW(34) & args(0) & ChrW(34)\r\n  End Select\r\nEnd With\r\n\r\nPrivate Sub RunasAdminProc(ByVal arg)\r\n'\u7ba1\u7406\u8005\u6a29\u9650\u3067\u30b9\u30af\u30ea\u30d7\u30c8\u5b9f\u884c\r\n  Dim com\r\n  \r\n  com = ChrW(34) & WScript.ScriptFullName & ChrW(34) & " " & ChrW(34) & arg & ChrW(34) & " " & AdminPhrase\r\n  CreateObject("Shell.Application").ShellExecute "wscript.exe", com, "", "runas"\r\nEnd Sub\r\n\r\nPrivate Function IsFolderOrFile(ByVal arg)\r\n'\u30d5\u30a9\u30eb\u30c0\u30fb\u30d5\u30a1\u30a4\u30eb\u5224\u5225\r\n  Dim ret\r\n\r\n  ret = 0 '\u521d\u671f\u5316\r\n  On Error Resume Next\r\n  With CreateObject("Scripting.FileSystemObject")\r\n    If .FolderExists(arg) = True Then\r\n      ret = 1\r\n    ElseIf .FileExists(arg) = True Then\r\n      ret = 2\r\n    End If\r\n  End With\r\n  On Error GoTo 0\r\n  IsFolderOrFile = ret\r\nEnd Function<\/pre>\n
\u4e0a\u8a18\u30b3\u30fc\u30c9\u3092vbs\u30d5\u30a1\u30a4\u30eb\u3068\u3057\u3066\u9069\u5f53\u306a\u30d5\u30a9\u30eb\u30c0(\u4eca\u56de\u306f C:\\System\\RunAsAdmin.vbs<\/span> )\u306b\u4fdd\u5b58\u3057\u307e\u3059\u3002<\/p>\n
\u30ec\u30b8\u30b9\u30c8\u30ea\u7de8\u96c6<\/h4>\n
\u203b \u4e0b\u8a18\u30ec\u30b8\u30b9\u30c8\u30ea\u7de8\u96c6\u4f5c\u696d\u306f\u81ea\u5df1\u8cac\u4efb\u3067\u884c\u3063\u3066\u304f\u3060\u3055\u3044\u3002\u5ff5\u306e\u305f\u3081\u3001\u4e8b\u524d\u306b\u30ec\u30b8\u30b9\u30c8\u30ea\u306e\u30d0\u30c3\u30af\u30a2\u30c3\u30d7\u3092\u53d6\u3063\u3066\u304a\u304f\u3053\u3068\u3092\u304a\u85a6\u3081\u3057\u307e\u3059\u3002<\/span><\/p>\n
\u30b9\u30af\u30ea\u30d7\u30c8\u30d5\u30a1\u30a4\u30eb\u306e\u6e96\u5099\u304c\u3067\u304d\u305f\u3089\u3001\u4eca\u5ea6\u306f\u53f3\u30af\u30ea\u30c3\u30af\u30e1\u30cb\u30e5\u30fc\u306b\u65b0\u3057\u3044\u9805\u76ee\u3092\u8ffd\u52a0\u3059\u308b\u305f\u3081\u3001\u30ec\u30b8\u30b9\u30c8\u30ea\u306e\u7de8\u96c6\u4f5c\u696d\u3092\u884c\u3044\u307e\u3059\u3002<\/p>\n
    \n
  1. \u30d5\u30a1\u30a4\u30eb\u306e\u53f3\u30af\u30ea\u30c3\u30af\u30e1\u30cb\u30e5\u30fc<\/li>\n