VBSã§ãƒã‚°ã‚ªãƒ³ã‚¹ã‚¯ãƒªãƒ—トをå†æ§‹ç¯‰ï¼ˆãã®ï¼“） - ヨッシーã®éƒ¨å±‹ä»Šå›žã¯OSã®è˜åˆ¥ï¼ˆXP以外ã¯å‹•ä½œä¸å¯ã¨ã™ã‚‹ï¼‰ã‚³ãƒ¼ãƒ‰ã‚’考ãˆã‚‹ã€‚ NT4.0時代ã§ã¯OSã®ã€Ver】コマンドを使用ã—ã¦æŒ¯ã‚Šåˆ†ã‘ã¦ã„ãŸãŒä½•æ•…ã‹VBAã§ã¯ã‚¨ãƒ©ãƒ¼ã¨ãªã‚‹ã€‚ 記述ã—ãŸã‚³ãƒ¼ãƒ‰ã¯ä»¥ä¸‹ã®é€šã‚Šã€‚ 1: Set objSll = CreateObject("WScript.Shell") 2: Set objExec = objSll.Exec("ver") 3: Do Until objExec.StdOut.AtEndOfStream 4: 　strLine = objExec.StdOut.ReadLine 5: 　Debug.Print(strLine) 6: Loop 2行目ã§ã€ŒæŒ‡å®šã•ã‚ŒãŸãƒ•ã‚¡ã‚¤ãƒ«ãŒè¦‹ã¤ã‹ã‚Šã¾ã›ã‚“ã€ã¨ãªã‚‹ã€‚ 仕方ãªãä»–ã®ã‚³ãƒ¼ãƒ‰ã‚’ã‚ãŸã£ã¦è¦‹ã‚‹ãŒãã®æ‰‹æ³•ã¯æ§˜ã€…ã 。 ç§ãŒç®¡ç†ã—ã¦ã„る環境ã§ã¯ã‚ã‚Šå¾—ãªã„ã“ã¨ã ãŒã€Win95ã‚„98ç‰ã§ãƒã‚°ã‚¤ãƒ³ã•ã‚Œã¦ã‚‚エラーã¨ãªã‚‰ãªã„コードã«ã—ãŸã„
第6回　WshShellオブジェクトã®è©³ç´°ï¼ˆ2）
WshEnvironment
「wshã«ã¦ã€OSã‚’è˜åˆ¥ã™ã‚‹æ–¹æ³•ã€ï¼ˆ1） Windows Server Insider ï¼ ï¼ IT
{{#tags}}- {{label}}
{{/tags}}