{"id":5761,"date":"2015-06-25T15:21:22","date_gmt":"2015-06-25T06:21:22","guid":{"rendered":"http:\/\/www.ka-net.org\/blog\/?p=5761"},"modified":"2018-07-31T10:19:04","modified_gmt":"2018-07-31T01:19:04","slug":"%e3%83%91%e3%82%b9%e3%83%af%e3%83%bc%e3%83%89%e3%81%ab%e4%bd%bf%e3%81%88%e3%81%9d%e3%81%86%e3%81%aa%e3%83%a9%e3%83%b3%e3%83%80%e3%83%a0%e3%81%aa%e6%96%87%e5%ad%97%e5%88%97%e3%82%92%e4%bd%9c%e6%88%90","status":"publish","type":"post","link":"https:\/\/www.ka-net.org\/blog\/?p=5761","title":{"rendered":"\u30d1\u30b9\u30ef\u30fc\u30c9\u306b\u4f7f\u3048\u305d\u3046\u306a\u30e9\u30f3\u30c0\u30e0\u306a\u6587\u5b57\u5217\u3092\u4f5c\u6210\u3059\u308bVBScript"},"content":{"rendered":"<p><a href=\"\/\/www.ka-net.org\/blog\/?p=5758\" title=\"GUID\u3092\u4f5c\u6210\u3059\u308bVBScript | \u521d\u5fc3\u8005\u5099\u5fd8\u9332\" target=\"_blank\">\u524d\u56de\u306e\u8a18\u4e8b<\/a>\u306e\u7d9a\u304d\u3067\u3059\u3002<\/p>\n<p>\u524d\u56de\u306fGUID\u3092\u4f5c\u6210\u3059\u308b\u30b9\u30af\u30ea\u30d7\u30c8\u3067\u3057\u305f\u304c\u3001\u4eca\u56de\u306f\u30d1\u30b9\u30ef\u30fc\u30c9\u306b\u4f7f\u3048\u305d\u3046\u306a\u30e9\u30f3\u30c0\u30e0\u306a\u6587\u5b57\u5217\u3092\u4f5c\u6210\u3059\u308b\u30b9\u30af\u30ea\u30d7\u30c8\u3067\u3059(\u5143\u3005\u306f\u300c<a href=\"\/\/www.ka-net.org\/blog\/?p=2669\" title=\"\u30e9\u30f3\u30c0\u30e0\u306a\u6587\u5b57\u5217\u3092\u751f\u6210\u3059\u308bVBA\u30de\u30af\u30ed | \u521d\u5fc3\u8005\u5099\u5fd8\u9332\" target=\"_blank\">\u30e9\u30f3\u30c0\u30e0\u306a\u6587\u5b57\u5217\u3092\u751f\u6210\u3059\u308bVBA\u30de\u30af\u30ed<\/a>\u300d\u3067\u66f8\u3044\u305f\u30b3\u30fc\u30c9\u3067\u3059)\u3002<\/p>\n<pre class=\"brush: vb; title: ; notranslate\" title=\"\">Option Explicit\r\n\r\nDim num, cbo\r\nDim ret\r\n\r\nnum = InputBox(&quot;\u30d1\u30b9\u30ef\u30fc\u30c9\u306e\u6587\u5b57\u6570\u3092\u9078\u629e\u3057\u3066\u304f\u3060\u3055\u3044\u3002&quot;, _\r\n               &quot;\u6587\u5b57\u6570\u9078\u629e&quot;, 16)\r\nIf IsEmpty(num) = True Then WScript.Quit\r\nIf IsNumeric(num) = False Then WScript.Quit\r\n\r\ncbo = InputBox(&quot;\u6587\u5b57\u306e\u7d44\u307f\u5408\u308f\u305b\u3092\u9078\u629e\u3057\u3066\u304f\u3060\u3055\u3044\u3002&quot; &amp; vbNewLine &amp; _\r\n               &quot;1\uff1a\u6570\u5b57\u306e\u307f&quot; &amp; vbNewLine &amp; _\r\n               &quot;2\uff1a\u6570\u5b57\uff0b\u534a\u89d2\u82f1\u5b57(\u5c0f\u6587\u5b57)&quot; &amp; vbNewLine &amp; _\r\n               &quot;3\uff1a\u6570\u5b57\uff0b\u534a\u89d2\u82f1\u5b57(\u5c0f\u6587\u5b57)\uff0b\u534a\u89d2\u82f1\u5b57(\u5927\u6587\u5b57)&quot; &amp; vbNewLine &amp; _\r\n               &quot;4\uff1a\u6570\u5b57\uff0b\u534a\u89d2\u82f1\u5b57(\u5c0f\u6587\u5b57)\uff0b\u534a\u89d2\u82f1\u5b57(\u5927\u6587\u5b57)\uff0b\u8a18\u53f7&quot;, _\r\n               &quot;\u6587\u5b57\u306e\u7d44\u307f\u5408\u308f\u305b\u9078\u629e&quot;, 3)\r\nIf IsEmpty(cbo) = True Then WScript.Quit\r\nIf IsNumeric(cbo) = False Then WScript.Quit\r\n\r\nDo\r\n  ret = InputBox(&quot;\u751f\u6210\u3055\u308c\u305f\u4e0b\u8a18\u30d1\u30b9\u30ef\u30fc\u30c9\u3092\u30b3\u30d4\u30fc\uff06\u30da\u30fc\u30b9\u30c8\u3057\u3066\u304a\u4f7f\u3044\u304f\u3060\u3055\u3044\u3002&quot; &amp; vbNewLine &amp; vbNewLine &amp; _\r\n                 &quot;\u5225\u306e\u30d1\u30b9\u30ef\u30fc\u30c9\u3092\u751f\u6210\u3059\u308b\u5834\u5408\u306fEnter\u30ad\u30fc\u3001\u3082\u3057\u304f\u306f\u300cOK\u300d\u30dc\u30bf\u30f3\u3092\u30af\u30ea\u30c3\u30af\u3057\u3066\u304f\u3060\u3055\u3044\u3002&quot; &amp; vbNewLine &amp; _\r\n                 &quot;\u7d42\u4e86\u3059\u308b\u5834\u5408\u306f\u300c\u30ad\u30e3\u30f3\u30bb\u30eb\u300d\u30dc\u30bf\u30f3\u3092\u30af\u30ea\u30c3\u30af\u3057\u3066\u304f\u3060\u3055\u3044\u3002&quot;, _\r\n                 &quot;\u30d1\u30b9\u30ef\u30fc\u30c9\u4f5c\u6210&quot;, GenerateRndString(CInt(num), CInt(cbo)))\r\nLoop Until Len(Trim(ret)) &lt; 1\r\n\r\nPrivate Function GenerateRndString(ByVal Num, ByVal Cbo)\r\n'\u30e9\u30f3\u30c0\u30e0\u306a\u6587\u5b57\u5217\u3092\u751f\u6210\r\n  Dim ret\r\n  Dim proc\r\n  \r\n  '\u521d\u671f\u5316\r\n  ret = &quot;&quot;\r\n  If Num &lt; 1 Then Num = 1\r\n  If Num &gt; 100 Then Num = 100 '\u6587\u5b57\u6570\u4e0a\u9650\r\n  If Cbo &lt; 1 Then Cbo = 1\r\n  If Cbo &gt; 4 Then Cbo = 4 '\u7d44\u307f\u5408\u308f\u305b\u4e0a\u9650\r\n  \r\n  Do\r\n    proc = RndScope(1, Cbo)\r\n    Select Case proc\r\n      Case 1: ret = ret &amp; GetRndNum()\r\n      Case 2: ret = ret &amp; GetRndAlphabetLC()\r\n      Case 3: ret = ret &amp; GetRndAlphabetUC()\r\n      Case 4: ret = ret &amp; GetRndSymbol()\r\n    End Select\r\n  Loop Until Len(ret) &gt;= Num\r\n  GenerateRndString = ret\r\nEnd Function\r\n\r\nPrivate Function GetRndNum()\r\n'\u30e9\u30f3\u30c0\u30e0\u306a\u6570\u5b57(0 - 9)\u3092\u53d6\u5f97\r\n  GetRndNum = RndScope(0, 9)\r\nEnd Function\r\n\r\nPrivate Function GetRndAlphabetLC()\r\n'\u30e9\u30f3\u30c0\u30e0\u306a\u82f1\u5b57(a - z)\u3092\u53d6\u5f97\r\n  GetRndAlphabetLC = ChrW(RndScope(97, 122))\r\nEnd Function\r\n\r\nPrivate Function GetRndAlphabetUC()\r\n'\u30e9\u30f3\u30c0\u30e0\u306a\u82f1\u5b57(A - Z)\u3092\u53d6\u5f97\r\n  GetRndAlphabetUC = ChrW(RndScope(65, 90))\r\nEnd Function\r\n\r\nPrivate Function GetRndSymbol()\r\n'\u30e9\u30f3\u30c0\u30e0\u306a\u8a18\u53f7( !#$%&amp;()*+-:;=@&#x5B;\\]^_`{|}~)\u3092\u53d6\u5f97\r\n  Dim v\r\n  \r\n  v = Array(32, 33, 35, 36, 37, 38, 40, 41, 42, 43, _\r\n            45, 58, 59, 61, 64, 91, 92, 93, 94, 95, _\r\n            96, 123, 124, 125, 126)\r\n  GetRndSymbol = ChrW(v(RndScope(LBound(v), UBound(v))))\r\nEnd Function\r\n\r\nPrivate Function RndScope(ByVal MinNum, ByVal MaxNum)\r\n'\u6307\u5b9a\u3057\u305f\u7bc4\u56f2\u306e\u4e71\u6570\u3092\u751f\u6210\r\n  Dim ret\r\n  \r\n  Randomize\r\n  ret = Int(Rnd() * (MaxNum - MinNum + 1) + MinNum)\r\n  RndScope = ret\r\nEnd Function<\/pre>\n<p>\u5b9f\u884c\u3059\u308b\u3068\u4e0b\u56f3\u306e\u3088\u3046\u306bInputBox\u304c\u8868\u793a\u3055\u308c\u3001Enter\u30ad\u30fc\u3001\u3082\u3057\u304f\u306fOK\u30dc\u30bf\u30f3\u3092\u30af\u30ea\u30c3\u30af\u3059\u308b\u3068\u3001\u6587\u5b57\u5217\u3092\u518d\u751f\u6210\u3057\u307e\u3059\u3002<\/p>\n<p><a href=\"https:\/\/www.ka-net.org\/blog\/wp-content\/uploads\/GeneratePassWord_02.gif\"><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/www.ka-net.org\/blog\/wp-content\/uploads\/GeneratePassWord_02.gif\" alt=\"\" width=\"418\" height=\"177\" class=\"alignnone size-full wp-image-10686\" \/><\/a><\/p>\n<p>\u4ed5\u7d44\u307f\u306f\u5358\u7d14\u3067\u3001\u30e9\u30f3\u30c0\u30e0\u306a\u6570\u5b57\u3001\u82f1\u5b57(\u5c0f\u6587\u5b57\u30fb\u5927\u6587\u5b57)\u3001\u8a18\u53f7(\u8a18\u53f7\u4e00\u89a7\u306f\u300c<a href=\"https:\/\/web.archive.org\/web\/20160609063459\/http:\/\/windows.microsoft.com\/ja-jp\/windows-vista\/tips-for-creating-a-strong-password\" title=\"\u5f37\u529b\u306a\u30d1\u30b9\u30ef\u30fc\u30c9\u306e\u4f5c\u6210\u306b\u95a2\u3059\u308b\u30d2\u30f3\u30c8\" target=\"_blank\">\u5f37\u529b\u306a\u30d1\u30b9\u30ef\u30fc\u30c9\u306e\u4f5c\u6210\u306b\u95a2\u3059\u308b\u30d2\u30f3\u30c8<\/a>\u300d\u3092\u53c2\u8003\u306b\u3057\u307e\u3057\u305f)\u3092\u53d6\u5f97\u3059\u308b\u95a2\u6570\u3092\u7528\u610f\u3057\u3001\u305d\u308c\u3089\u3092\u7d44\u307f\u5408\u308f\u305b\u3066\u6307\u5b9a\u3057\u305f\u6841\u6570\u306e\u6587\u5b57\u5217\u3092\u4f5c\u6210\u3057\u3066\u3044\u308b\u3060\u3051\u3067\u3059\u3002<\/p>\n<div id=\"single_banner_area2\" class=\"clearfix one_banner\">\n<div class=\"single_banner single_banner_left\">\n<script async src=\"https:\/\/pagead2.googlesyndication.com\/pagead\/js\/adsbygoogle.js\"><\/script>\r\n<!-- \u8a18\u4e8b\u4e2d(\u30c7\u30a3\u30b9\u30d7\u30ec\u30a4\u5e83\u544a\u30e6\u30cb\u30c3\u30c8) -->\r\n<ins class=\"adsbygoogle\"\r\n     style=\"display:block\"\r\n     data-ad-client=\"ca-pub-7306936664602087\"\r\n     data-ad-slot=\"5429724765\"\r\n     data-ad-format=\"auto\"\r\n     data-full-width-responsive=\"true\"><\/ins>\r\n<script>\r\n     (adsbygoogle = window.adsbygoogle || []).push({});\r\n<\/script>\n<\/div>\n<div class=\"single_banner single_banner_right\">\n<a href=\"\" target=\"_blank\"><img decoding=\"async\" src=\"\" alt=\"\" title=\"\" \/><\/a>\n<\/div>\n<\/div>\n\n","protected":false},"excerpt":{"rendered":"\u524d\u56de\u306e\u8a18\u4e8b\u306e\u7d9a\u304d\u3067\u3059\u3002 \u524d\u56de\u306fGUID\u3092\u4f5c\u6210\u3059\u308b\u30b9\u30af\u30ea\u30d7\u30c8\u3067\u3057\u305f\u304c\u3001\u4eca\u56de\u306f\u30d1\u30b9\u30ef\u30fc\u30c9\u306b\u4f7f\u3048\u305d\u3046\u306a\u30e9\u30f3\u30c0\u30e0\u306a\u6587\u5b57\u5217\u3092\u4f5c\u6210\u3059\u308b\u30b9\u30af\u30ea\u30d7\u30c8\u3067\u3059(\u5143\u3005\u306f\u300c\u30e9\u30f3\u30c0\u30e0\u306a\u6587\u5b57\u5217\u3092\u751f\u6210\u3059\u308bVBA\u30de\u30af\u30ed\u300d\u3067\u66f8\u3044\u305f\u30b3\u30fc\u30c9\u3067\u3059)\u3002 Optio [&hellip;]","protected":false},"author":1,"featured_media":7132,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"\u30b7\u30f3\u30d7\u30eb\u306a\u4ed5\u7d44\u307f\u306b\u3057\u3066\u307f\u307e\u3057\u305f\u3002\u4f7f\u3046\u3068\u304d\u306f\u9069\u5f53\u306b\u7de8\u96c6\u3057\u3066\u304f\u3060\u3055\u3044\u3002 [\u30d1\u30b9\u30ef\u30fc\u30c9\u306b\u4f7f\u3048\u305d\u3046\u306a\u30e9\u30f3\u30c0\u30e0\u306a\u6587\u5b57\u5217\u3092\u4f5c\u6210\u3059\u308bVBScript]","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":true,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2}},"categories":[6],"tags":[],"class_list":["post-5761","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-vbs"],"aioseo_notices":[],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"https:\/\/www.ka-net.org\/blog\/wp-content\/uploads\/eyecatch-VBScript.png","jetpack_shortlink":"https:\/\/wp.me\/p4UZZr-1uV","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/5761","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=5761"}],"version-history":[{"count":3,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/5761\/revisions"}],"predecessor-version":[{"id":10687,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/5761\/revisions\/10687"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/media\/7132"}],"wp:attachment":[{"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=5761"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=5761"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=5761"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}