Posted on 10月 5th, 2008 作者： 蛋蛋
安装SQL2000常常遇到安装时候被挂机，解决方法很简单。
1、运行里输入regedit，打开注册表。
2、在HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager中找到PendingFileRenameOperations项目，并删除它。一切OK。
Posted on 10月 4th, 2008 作者： 蛋蛋
这些天郁闷到死，事事不顺心不说，连个写个发个简历，Office 2007还来操蛋。鼠标一但点到别的东西上面，Word文本中的内容就再也点不了了。又要关了重新打开，烦死了。
原来是由于安装了PowerDesigner造成的，把它带的com插件删除加载就OK。
1、运行里输入：regedit（打开注册表）
2、找到[HKEY_CURRENT_USER\Software\Microsoft\Office\Word\Addins\WordToRQM12.Connect]文件夹删除，OK！
Posted on 09月 10th, 2008 作者： 蛋蛋
买了本本后，发现一个问题很郁闷，在家上网和在公司上网的IP老是要重新设置，真是个麻烦的工作。
所以想到个容易解决的好方法，在这里共享给大家。
Dim Num Num=Inputbox ("请输入IP的最后一位"+chr(10)&chr(13)+"","IP地址输入") Set sh = Nothing Set oShell = Nothing strComputer = "." Set objWMIService=GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colNetAdapters = objWMIService.ExecQuery _ ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE") strIPAddress = Array("192.168.1."&Num) strSubnetMask = Array("255.255.255.0") strGateway = Array("192.168.1.1") For Each objNetAdapter in colNetAdapters errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask) errGateways = objNetAdapter.SetGateways(strGateway) Dim dns dns = Array("61.144.56.101","210.21.4.131") err = objNetAdapter.SetDNSServerSearchOrder(dns) 'msgbox(err) Next Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel = impersonate}!\\" & strComputer & "\root\cimv2") Set colComputers = objWMIService.ExecQuery _ ("Select * from Win32_ComputerSystem") For Each objComputer in colComputers 'ObjComputer.Rename("game" &Num) Next Set objNetworkSettings = objWMIService. Get("Win32_NetworkAdapterConfiguration") objNetworkSettings.SetIPXVirtualNetworkNumber(Num) |