小千千的筆記: VBS RegisteredOwner&Organization Tool

2009年11月7日土曜日

VBS RegisteredOwner&Organization Tool


Set WshShell = WScript.CreateObject("WScript.Shell")
Dim RegisteredOwner , RegisteredOrganization
RegisteredOwner = InputBox("Input Registered Owner" , "Message" , "Belldandy")
RegisteredOrganization = InputBox("Input Registered Organization" , "Message" , "Syaorin")
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOwner" , RegisteredOwner , "REG_SZ"
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOrganization" , RegisteredOrganization , "REG_SZ"

0 件のコメント:

コメントを投稿