ソフトã¯ä½¿ã‚ãªã„ï¼ã‚¹ã‚¿ãƒ¼ãƒˆã‚¢ãƒƒãƒ—ã®èµ·å‹•é †åºã‚’変更（OS起動速度アップ） | Windows XP/Vista/7ã®è£æŠ€
Windows XPã¨Vistaã®è£æŠ€ã‚’紹介ï¼ã©ã“ã«ã‚‚載ã£ã¦ã„ãªã„ã‚‚ã®ã‚‚ã‚ã‚Šã¾ã™ã€‚Windows XPã¨Vistaã®è£æŠ€ Windows XPã¨Vistaã®è£æŠ€ã‚’ç´¹ä»‹ï¼ ã©ã“ã«ã‚‚載ã£ã¦ã„ãªã„ã‚‚ã®ã‚‚ã‚ã‚Šã¾ã™ã€‚ 質å•ã‚„コメントãŒã‚ã‚Œã°ã©ã†ãžï¼ ã“ã‚“ã«ã¡ã¯ã€ä»Šæ—¥ã¯ã‚½ãƒ•ãƒˆã¯ä½¿ã‚ãšã«ã‚¹ã‚¿ãƒ¼ãƒˆã‚¢ãƒƒãƒ—ã®èµ·å‹•é †åºã‚’変更ã™ã‚‹æ–¹æ³•ã‚’紹介ã—ã¾ã™ã€‚ スタートアップã«ç™»éŒ²ã—ãŸã‚½ãƒ•ãƒˆ(常é§ã‚½ãƒ•ãƒˆ)ã¯Windowsã®èµ·å‹•>サービスã®èµ·å‹•> レジストリã«ç™»éŒ²ã•ã‚ŒãŸãƒ—ãƒã‚°ãƒ©ãƒ ↓ HKEY_LOCAL_MACHINEÂ¥SoftwareÂ¥MicrosoftÂ¥WindowsÂ¥CurrentVersionÂ¥RunOnce HKEY_LOCAL_MACHINEÂ¥SoftwareÂ¥MicrosoftÂ¥WindowsÂ¥CurrentVersionÂ¥Run HKEY_CURRENT_USERÂ¥SoftwareÂ¥Microsoft
VBS for Adobe InDesign＋
InDesignã®ã‚¹ã‚¯ãƒªãƒ—トをä¸å¿ƒã«ã€ãã®ä»–ã‚‚ã‚ã‚‚ã‚。ã“ã“ã«ç½®ã„ã¦ã‚るスクリプトã¯ã€å…¨ã¦ã‚µãƒ³ãƒ—ルã§ã™ã€‚ 使用者ãŒã‚¹ã‚¯ãƒªãƒ—トをé©å®œå¤‰æ›´ã—ã¦ä½¿ç”¨ã™ã‚‹ã“ã¨ã‚’å‰æã«ã—ã¦ã„ã¾ã™ã€‚ ã“れらã®ã‚¹ã‚¯ãƒªãƒ—トや記述を利用ã—ã¦ã€ä½•ã‚‰ã‹ã®æ害ãŒç”Ÿã˜ãŸã¨ã—ã¦ã‚‚〠当方ã§ã¯ä¸€åˆ‡è²¬ä»»ã‚’è² ã„ã¾ã›ã‚“。 一部を除ãã€CS3ã§ã®å‹•ä½œã¯æœªç¢ºèªã§ã™ã€‚確èªãŒå–れ次第更新ã—ã¾ã™ã€‚ Special Contents ï¼»InDesign CS3用　部首別å—形セット］ InDesign CS3ã®å—形パãƒãƒ«ã«éƒ¨é¦–別å—å½¢ã‚»ãƒƒãƒˆã‚’è¿½åŠ ã—ã€æ¼¢å—を探ã—ã‚„ã™ãã—ã¾ã™ã€‚ ï¼»InDesign Object Model CS-CS3ï¼½ InDesign CSã‹ã‚‰CS3（日本語版）ã¾ã§ã®ã‚ªãƒ–ジェクトモデル図。表記ã¯VBã§ã™ãŒæ§‹é€ ã¯ã©ã®è¨€èªžã§ã‚‚åŒã˜ã ã¨æ€ã„ã¾ã™ã€‚é–“é•ã„ãŒå°‘ãªã‹ã‚‰ãšã‚ã‚‹ã®ã§å分注æ„ã—ã¦ãã ã•ã„。 InDesign JavaScript ï¼»
監視
strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Query = "Select * From __InstanceOperationEvent Within 1 " & _ " Where TargetInstance isa ""Win32_LogicalDisk""" Set colEvents = objWMIService.ExecNotificationQuery(Query) Do Set objEvent = colEvents.NextEvent Wscript.Echo objEvent.Path_.Class If objEvent.TargetInstance.DriveType = 2 Then if objEvent.Path_
ï½¢ãƒãƒ¼ã‚«ãƒ« エリア接続｣ã®æœ‰åŠ¹ãƒ»ç„¡åŠ¹ã‚’コマンドラインã‹ã‚‰åˆ¶å¾¡ã™ã‚‹ãƒ¡ãƒ¢ - Passing days
Windows Server 2003ã§ã‚ã‚Œã°ä»¥ä¸‹ã§å‡ºæ¥ã‚‹ã‚‰ã—ã„。ãŒWindowsXPã§ã¯å‡ºæ¥ãªã„。 >netsh interface set interface "ãƒãƒ¼ã‚«ãƒ« エリア接続" enabled >netsh interface set interface "ãƒãƒ¼ã‚«ãƒ« エリア接続" disableXPã®å ´åˆã¯â€¦ >netsh interface set interface "ãƒãƒ¼ã‚«ãƒ« エリア接続" disable å¿…è¦ãªãƒ‘ラメータãŒæŒ‡å®šã•ã‚Œã¦ã„ã¾ã›ã‚“ ã“ã®ã‚³ãƒžãƒ³ãƒ‰ã®æ§‹æ–‡ãŒç„¡åŠ¹ã§ã™ã€‚ヘルプã§æ£ã—ã„構文をå‚ç…§ã—ã¦ãã ã•ã„。 使用法 set interface [name = ] IfName [ [admin = ] ENABLED|DISABLED [connect = ] CONNECTED|DISCONNECTED [newname = ] NewName ] インターフェイス
VBS for WMI サンプル
サービス終了ã®ãŠçŸ¥ã‚‰ã› ã„ã¤ã‚‚Yahoo! JAPANã®ã‚µãƒ¼ãƒ“スをã”利用ã„ãŸã ãèª ã«ã‚ã‚ŠãŒã¨ã†ã”ã–ã„ã¾ã™ã€‚ ãŠå®¢æ§˜ãŒã‚¢ã‚¯ã‚»ã‚¹ã•ã‚ŒãŸã‚µãƒ¼ãƒ“スã¯æœ¬æ—¥ã¾ã§ã«ã‚µãƒ¼ãƒ“スを終了ã„ãŸã—ã¾ã—ãŸã€‚ 今後ã¨ã‚‚Yahoo! JAPANã®ã‚µãƒ¼ãƒ“スをã”愛顧ãã ã•ã„ã¾ã™ã‚ˆã†ã€ã‚ˆã‚ã—ããŠé¡˜ã„ã„ãŸã—ã¾ã™ã€‚
)
Hey, Scripting Guy!: 発言ã«ã¯æ³¨æ„ã—ã¾ã—ょã†
ã“ã®ãƒ–ラウザーã¯ã‚µãƒãƒ¼ãƒˆã•ã‚Œãªããªã‚Šã¾ã—ãŸã€‚ Microsoft Edge ã«ã‚¢ãƒƒãƒ—グレードã™ã‚‹ã¨ã€æœ€æ–°ã®æ©Ÿèƒ½ã€ã‚»ã‚ュリティ更新プãƒã‚°ãƒ©ãƒ ã€ãŠã‚ˆã³ãƒ†ã‚¯ãƒ‹ã‚«ãƒ« サãƒãƒ¼ãƒˆã‚’利用ã§ãã¾ã™ã€‚ Hey, Scripting Guy!発言ã«ã¯æ³¨æ„ã—ã¾ã—ょㆠMicrosoft Scripting Guy アメリカå—åŒ—æˆ¦äº‰ä¸ (æ£ç¢ºã«ã¯ã‚¹ãƒãƒƒãƒˆã‚·ãƒ«ãƒãƒ‹ã‚¢ã®æˆ¦ã„ã«éš›ã—) ã«ã€åŒ—è»ã®ã‚¸ãƒ§ãƒ³ãƒ»ã‚»ã‚¸ã‚¦ã‚£ãƒƒã‚¯å°†è»ã¯ã€éƒ¨ä¸‹ãŸã¡ãŒå—è»ã®ç‹™æ’ƒå…µãŸã¡ã«ã‚ˆã‚‹ä¸è¦å‰‡ã‹ã¤ç„¡ä½œç‚ºãªç™ºç ²ã«ãŠã˜ã‘ã¥ã„ã¦ã„ã‚‹ã®ã‚’見ã¦è½èƒ†ã—ã¦ã„ã¾ã—ãŸã€‚言ã„ä¼ãˆã«ã‚ˆã‚Œã°ã€ã‚»ã‚¸ã‚¦ã‚£ãƒƒã‚¯ã¯éƒ¨ä¸‹ãŸã¡ã«ã“ã†è¨€ã„ã¾ã—ãŸã€‚「ãã‚“ãªé¢¨ã«é€ƒã’回るãªã€‚æ¥ã‚’知れ。å—è»ã¯ã“ã®è·é›¢ã§ã¯è±¡ã§ã‚‚æ’ƒã¦ã¾ã„。ã€ãã®ç›´å¾Œã«ã€ã‚»ã‚¸ã‚¦ã‚£ãƒƒã‚¯ã¯æˆ¦æ»ã—ãŸæœ€é«˜ä½ã®åŒ—è»å°†æ ¡ã¨ãªã‚Šã¾ã—ãŸã€‚セジウィックã«ã¨ã£ã¦ã¯ä¸å¹¸ãªã“ã¨ã«ã€å—è»ã®ç‹™æ’ƒå…µã¯è±¡ã‚’æ’ƒã¤ã“ã¨ã¯ã§ããªã‹ã£ãŸã‹ã‚‚ã—ã‚Œã¾ã›ã‚“ãŒã€å°†è»ã‚’æ’ƒã¤ã“ã¨ã¯ã§ã
Windows Script Debugger
ã™ã¹ã¦ã® Microsoft 製å“GlobalMicrosoft 365TeamsWindowsSurfaceXboxセール法人å‘ã‘サãƒãƒ¼ãƒˆ ソフトウェアWindows アプリAIOneDriveOutlookSkypeOneNoteMicrosoft TeamsPC ã¨ãƒ‡ãƒã‚¤ã‚¹Xbox を購入ã™ã‚‹ã‚¢ã‚¯ã‚»ã‚µãƒªVR & 複åˆç¾å®Ÿã‚¨ãƒ³ã‚¿ãƒ¡Xbox Game Pass UltimateXbox Live GoldXbox ã¨ã‚²ãƒ¼ãƒ PC ゲームWindows ã‚²ãƒ¼ãƒ æ˜ ç”»ã¨ãƒ†ãƒ¬ãƒ“番組法人å‘ã‘Microsoft CloudMicrosoft SecurityAzureDynamics 365一般法人å‘ã‘ Microsoft 365Microsoft IndustryMicrosoft Power PlatformWindows 365開発者 & IT デベãƒãƒƒãƒ‘ー センタードã‚ュメントMicrosof
WSH ã®ãƒ‡ãƒãƒƒã‚°æ–¹æ³•ã¨OSå´è¨å®šã€€æ›´æ–°ç‰ˆ - ã—ãŠãã‚‹ã¨
WSHã®ãƒ‡ãƒãƒƒã‚°ãƒ„ールã«ã¤ã„ã¦ã€‚ ã™ã£ã‹ã‚Šå¿˜ã‚Œã¦ã¾ã—ãŸã€éŽåŽ»è¨˜è¼‰ã®æƒ…å ±ã®è£œè¶³ã§ã™ã€‚ １）無償：Windows Script Debugger http://www.microsoft.com/downloads/details.aspx?FamilyID=e606e71f-ba7f-471e-a57d-f2216d81ec3d&DisplayLang=ja Win9xç³»ã€Windows XPã€Windows 2000ã€ã¾ãŸã¯ Windows NT 4.0用 Microsoft(R) Script Debugger (以下 Script Debugger) ã¯ã€Microsoft(R) Internet Explorer (以下 IE)ã¾ãŸã¯ Microsoft(R) Internet Information Server (以下 IIS) ãªã©ã® Microsoft(R)
WSH ã®ãƒ‡ãƒãƒƒã‚°æ–¹æ³•ã¨OSå´è¨å®š - ã—ãŠãã‚‹ã¨
WSH用デãƒãƒƒã‚°ãƒ„ールãŒMSã‹ã‚‰æä¾›ã•ã‚Œã¦ã„る。 Windows Script Debugger ã‹ãªã‚Šå¤ã„ãŒã€ä»Šã§ã‚‚利用å¯èƒ½ã€‚ 楽ãªåˆ©ç”¨æ–¹æ³• デãƒãƒƒã‚¬ã‚’èµ·å‹• C:\Program Files\Microsoft Script Debugger\msscrdbg.exe オプション //X を利用ã—㦠wscript/cscriptを実行 例 wscript //x "My Documents\test.vbs" é©å½“ã«åˆ©ç”¨ 知りãŸã„ã¨ã“ã‚ã‚ãŸã‚Šã«ãƒ–レークãƒã‚¤ãƒ³ãƒˆã‚’è¨å®šã€ã€Œã‚¹ãƒ†ãƒƒãƒ—アウトã€ãƒœã‚¿ãƒ³æŠ¼ 知りãŸã„変数ã®å€¤ã¯ã€ã‚³ãƒžãƒ³ãƒ‰ã‚¦ã‚£ãƒ³ãƒ‰ã‚¦ã§ ?変数å を記入。 例：?msg æ¡ä»¶åˆ†å²ã®ç¢ºèªã¯ã€Œã‚¹ãƒ†ãƒƒãƒ—インã€ã§1è¡Œãšã¤å®Ÿè¡Œ 「ステップオーãƒãƒ¼ã€ã¯é–¢æ•°ã¯ã™ã£é£›ã°ã—ã¦ãれる ãŸã ã—ã€WinXP/2003ã§ã¯ãã®ã¾ã¾ã§ã¯ã†ã¾ãå‹•ã‹ãªã„模様。下記２ã¤ã‚’確èªã€è¨å®šã€‚ Wi
TechNet Script Center
Summary: Using PowerShell to identify RPC ports in use by capturing content from PowerShell We'd like to introduce you today to one of our newest bloggers! It's a froopingly awesome friend of ours, Joel Vickery, PFE. (did I mention Dr. Scripto is a big fan of books written by Douglas Adams?....oops!) Take it away Joel! Thanks Doc! So ...
第1回　WSHを始ã‚よã†
WSHã®æƒ…å ±æº WSHãŒç™»å ´ã—ãŸå½“åˆã¯ã€ãƒžã‚¤ã‚¯ãƒã‚½ãƒ•ãƒˆã®å…¬å¼ã‚µã‚¤ãƒˆã«ã™ã‚‰ãƒ˜ãƒ«ãƒ—もドã‚ュメントもサンプルも満足ãªã‚‚ã®ãŒãªã‹ã£ãŸã†ãˆã«ã€ãã®å¤šããŒè‹±èªžã ã£ãŸãŒã€ã“ã“æ•°å¹´ã§ãã®çŠ¶æ³ã¯å¤§ãã改善ã•ã‚ŒãŸã€‚ã„ã¾ã§ã¯ãƒžã‚¤ã‚¯ãƒã‚½ãƒ•ãƒˆã®ã‚µã‚¤ãƒˆã‚„外部サイトã§å¤šæ•°ã®æ—¥æœ¬èªžåŒ–ã•ã‚ŒãŸãƒ‰ã‚ュメントやサンプルãŒå…¥æ‰‹ã€ã‚ã‚‹ã„ã¯é–²è¦§ã§ãるよã†ã«ãªã£ã¦ã„る。 Windows Scriptã®ãƒšãƒ¼ã‚¸ WSH 5.6ã®ãƒ€ã‚¦ãƒ³ãƒãƒ¼ãƒ‰ãƒ»ãƒšãƒ¼ã‚¸ã¨ã—ã¦å†’é ã§ã‚‚ã”紹介ã—ãŸãŒã€ã“ã‚Œã¯WSHã®ç·æœ¬å±±ã¨ã‚‚ã„ã†ã¹ãサイトã§ã‚る。ã“ã“ã§ã¯WSH（Windows Script）本体ã¨ã€ãƒ˜ãƒ«ãƒ—・ファイルãŒãƒ€ã‚¦ãƒ³ãƒãƒ¼ãƒ‰ã§ãã‚‹ã»ã‹ã€WSHã‚„VBScriptã®ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ã‚’èªã‚€ã“ã¨ãŒã§ãる。ヘルプ・ファイルã¯WSHスクリプト作æˆã§ã¯å¿…é ˆã¨ãªã‚‹ã®ã§ã€å¿˜ã‚Œãšã«ãƒ€ã‚¦ãƒ³ãƒãƒ¼ãƒ‰ã—ã¦ãŠã“ã†ã€‚ スクリプト センター ã“ã“ã«ã¯ã€VBScriptã§æ›¸ã‹ã‚ŒãŸã€åˆ†é‡Žåˆ¥ã®900本以上
ホームページデータをå–å¾—ã™ã‚‹ï¼ã‚µã‚¤ãƒˆãŒæœ‰åŠ¹ã‹ç¢ºèªã™ã‚‹ï½œVBScript Tips
'#################################################################################### '# '# 関数å：GetHtmlSource '#----------------------------------------------------------------------------------- '# 機能 ：指定ã®URLã‹ã‚‰HTMLソースをå–å¾—ã™ã‚‹ '# 引数 ：strURL I URL '# strRetVal O å–å¾—ã—ãŸæ–‡å—列 '# isSJIS I ソース㌠Shift-JIS ã®å ´åˆ True '# strID I ドメインèªè¨¼ãŒå¿…è¦ãªå ´åˆã®ãƒ¦ãƒ¼ã‚¶ãƒ¼ID '# strPass I ドメインèªè¨¼ãŒå¿…è¦ãªå ´åˆã®ãƒ‘スワード '# 戻り値：True æ£å¸¸ã€False 失敗 '# '######
@IT：VBScriptã§XMLプãƒã‚°ãƒ©ãƒŸãƒ³ã‚°
ダウンãƒãƒ¼ãƒ‰ã™ã‚‹ã ã‘ã§å§‹ã‚られる ç¾åœ¨ã€å¸‚å ´ã«ç™»å ´ã—ã¦ã„る製å“ã§ã¯ã€ã•ã¾ã–ã¾ãªã¨ã“ã‚ã§XML対応ã¨ã„ã†ã“ã¨ãŒå«ã°ã‚Œã€å®Ÿè£…ãŒé€²ã‚られã¦ã„ã¾ã™ã€‚ã‚‚ã¡ã‚ã‚“ã€è£½å“ã¨ã„ã†ç‹ã„範囲ã®ã“ã¨ã ã‘ã§ã¯ãªãã€ã‚¤ãƒ³ã‚¿ãƒ¼ãƒãƒƒãƒˆã‚¢ãƒ—リケーションやä¼æ¥å†…ã®ã‚¢ãƒ—リケーションã«ãŠã„ã¦ã‚‚åŒæ§˜ã®ã“ã¨ãŒã„ãˆã¾ã™ã€‚ã“れらã¯ã€ã“ã®ã‚³ãƒ¼ãƒŠãƒ¼ã‚’èªã‚“ã§ã„らã£ã—ゃる皆ã•ã‚“ã§ã‚ã‚Œã°ã€ã™ã§ã«ã”å˜ã˜ã®ã“ã¨ã§ã—ょã†ã€‚ ã“ã‚“ãªä¸ã€XMLを利用ã—ãŸã‚¢ãƒ—リケーションを自分ã®æ‰‹ã§ã‚¤ãƒ³ãƒ—リメントã—ã¦ã„ãã“ã¨ã«ãŠã„ã¦ã¯ã€ã•ã¾ã–ã¾ãªæ‰‹æ³•ãŒã‚ã‚Šã¾ã™ã€‚多ãã®ãƒ—ラットフォームã®ä¸Šã§ã€XMLを処ç†å¯èƒ½ãªãƒ—ãƒã‚°ãƒ©ãƒ （XMLパーサ）ãªã©ãŒæä¾›ã•ã‚Œã¦ã„ã¾ã™ã€‚ã“ã“ã§ã¯ã€ãƒ€ã‚¦ãƒ³ãƒãƒ¼ãƒ‰ã™ã‚‹ã ã‘ã§XMLプãƒã‚°ãƒ©ãƒŸãƒ³ã‚°ã®ã§ãる環境ã«ã¤ã„ã¦è§£èª¬ã—ã€ã•ã‚‰ã«ä»Šå›žã‹ã‚‰5回ã«ã‚ãŸã£ã¦ã€å®Ÿéš›ã«ãã®ç’°å¢ƒã§ã®XMLプãƒã‚°ãƒ©ãƒŸãƒ³ã‚°ã«ã¤ã„ã¦ã€è§£èª¬ã‚’進ã‚ã¦ã„ããŸã„ã¨æ€ã„ã¾ã™ã€‚
XMLファイルã®ä½œæˆï¼ˆVBS） - メモ帳
Dim xdoc Dim pi Dim root Dim cdata Dim ele Dim attr Dim txt Set xdoc = CreateObject("Microsoft.XMLDom") Set pi = xdoc.createProcessingInstruction("xml", "version='1.0' encoding='Shift_JIS'") xdoc.appendChild(pi) Set root = xdoc.createElement("ルート") Set cdata = xdoc.createCDATASection("ã”ã«ã‚‡ã”ã«ã‚‡") root.appendChild(cdata) Set ele = xdoc.createElement("å") Set attr = xdoc.createAttribute("id") attr.valu
DOMを利用ã—ã¦XMLデータã¸ã‚¢ã‚¯ã‚»ã‚¹
Dim objDOM, rtResult Set objDOM = WScript.CreateObject("MSXML2.DOMDocument") rtResult = objDOM.load("Sample.xml") If rtResult Then procDispDatas objDOM.childNodes Else MsgBox "XMLオブジェクトã®ä½œæˆã«å¤±æ•—ã—ã¾ã—ãŸã€‚" End If Set objDOM = Nothing Sub procDispDatas(objNode) Dim obj For Each obj In objNode If obj.nodeType = 3 and obj.parentNode.nodeName = "title" Then MsgBox obj.parentNode.nodeName & " : " & obj.nodeVal
リリースã€éšœå®³æƒ…å ±ãªã©ã®ã‚µãƒ¼ãƒ“スã®ãŠçŸ¥ã‚‰ã›
最新ã®äººæ°—エントリーã®é…ä¿¡
j次ã®ãƒ–ックマーク
kå‰ã®ãƒ–ックマーク
lã‚ã¨ã§èªã‚€
eコメント一覧を開ã
oページを開ã
http://www.nobotan.net/cgi-bin/sfs6_diary/sfs6_diary/200902.html
Prog/VBScript/スタートアップã®é…延起動 - PukiWiki
ã¾ã¡ã ã—ã¶)
Windows 2000: Script Heaven
WinHTTP (Windows HTTP Services) 覚書
{{#tags}}- {{label}}
{{/tags}}