爱子日志

Windows 2003 备份DHCP服务器配置

在规模较大的局域网中，一般采用DHCP服务器为客户机统一分配TCP/IP配置信息，一旦出现人为的误操作或其他一些因素，将会导致DHCP服务器的配置信息出错或丢失，手工进行恢复非常麻烦，而且工作量较大，同时，DHCP服务器中可能包含多个作用域，并且每个作用域中又包含不同的IP地址段、网关地址、DNS服务器等参数。因此，这就需要你时常注意备份这些配置信息，一旦出现问题，进行还原即可。

DHCP服务器内置了备份和还原功能，而且操作非常简单。在DHCP控制台窗口中，右键点击“DHCP服务器名”选项，在弹出的菜单中选择“备份”，接着在“浏览文件夹”对话框中指定备份文件的存放路径，点击“确定”按钮后，就可完成配置信息的备份。

QQ影音提示：由于应用程序配置不正确，应用程序未能启动

系统：Windows XP SP3
QQ影音版本：3.4.1 (871)
QQ影音不能启动，提示：由于应用程序配置不正确，应用程序未能启动，重新安装应用程序可能会纠正这个问题。重装QQ影音仍旧报错。


版本：2.6，启动没有该问题。

原因：计算机中缺少VC运行库

①Windows XP下载安装VC2005运行库：Microsoft Visual C++ 2005 SP1 Redistributable Package (x86)

②Windows 7下载安装VC2008运行库：Microsoft Visual C++ 2008 SP1 Redistributable Package (x86)

③Microsoft Visual C++ 2010 可再发行组件包 (x86)

如果还不行的话，检查下 Windows Installer 服务是否已启动，且其启动类型是否为“自动”；
控制面板→管理工具→服务→找到Windows Installer，将其启动类型设置为“自动”，重启电脑。

文字整理自：
http://www.bingd.com/blog/html/139.htm
http://blog.csdn.net/donitz126/article/details/6140713
https://bbs.et8.net/bbs/showthread.php?t=1026432

用vbs统计公司电脑配置

首先我们先确定下我们的目的，我们需要得到的内容有，显示器、cpu、内存、主板、显卡、硬盘、ip等等，将这些数据搜集上来，写在txt文件里，最后发送到我们指定的共享文件里（这里的必须是完全共享）下面想具体代码：

ON ERROR RESUME Next
  
MsgBox"本操作为采集公司办公设备，请大家积极配合，" & Chr(13) & Chr(10) & "认真填写你所在部门和姓名," & Chr(13) & Chr(10) & "有问题请联系网络管理员,电话，谢谢合作",vbYes, "博纳集团计算机盘点系统"
  
Temp = 0
 Set WSHNetwork = WScript.CreateObject("WScript.Network")
 ComputerName = WSHNetwork.ComputerName
  
While Dept=""
 Dept=InputBox("请输入你所在的部门:","提示")
 Wend
  
While Name=""
 Name=InputBox("请输入你名字:","提示")
 Wend
 While Showq=""
 Showq=InputBox("请输入你电脑显示器的型号:" & Chr(13) & Chr(10) & "例：方正17纯平，方正17液晶 等","提示")
 Wend
  
TempFiles = "\\192.168.8.20\com\info\" & ComputerName &".txt"
 Set FSO = CreateObject("Scripting.FileSystemObject")
 Set TempFile = FSO.CreateTextFile(TempFiles)
 strComputer = "."
 Set objWMIService = Getobject("winmgmts:\\" & strComputer & "\root\cimv2")
  
Set CPU = objWMIService.ExecQuery("Select * From Win32_Processor")
 For Each Item In CPU
 CPU2 = "CPU:" & Item.Name
 Next
  
Set Board = objWMIService.ExecQuery("Select * From Win32_BaseBoard")
 For Each Item In Board
 Board2 = "主板: " & Item.Product
 Next
  
Set colItems = objWMIService.ExecQuery("Select * From Win32_PhysicalMemory",,48)
 For Each objItem In colItems
 A = objItem.Capacity/1048576
 Temp = temp+objItem.Capacity
 N = N+1
 Next
 Memory = Temp/1048576
 If N = 1 Then
 Memory2 = "内存: " & N & "条" & A & "M"
 Else
 Memory2 = "内存: " & N & "条" & A & "M" &" 总计" & Memory & "M"
 End If
  
Set Video = objWMIService.ExecQuery("Select * From Win32_VideoController",,48)
 For Each Item In Video
 Video2 = "显卡: " & Item.Description
 Next
  
Set Disk = objWMIService.ExecQuery("Select * From Win32_DiskDrive")
 For Each Item In Disk
 Disk2 = Disk2 & Item.Model & " "
 Next
 Disk3 = "硬盘: " & Trim(Disk2)
  
Set Network = objWMIService.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = true")
 For Each Item In Network
 Lan = "网卡: " & Item.Description
 Next
  
Set IPConfigSet = objWMIService.ExecQuery("Select IPAddress from Win32_NetworkAdapterConfiguration where IPEnabled=true")
 For Each IPConfig in IPConfigSet
 If Not IsNull(IPConfig.IPAddress) Then
 For i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)
 IP = IP & IPConfig.IPAddress(i) & " "
 Next
 End If
 Next
 IP = "IP: " & Trim(IP)
  
Set mc=GetObject("Winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")
 For Each Item In mc
 If Item.IPEnabled=True Then
 Mac=Mac & Item.MacAddress & " "
 End If
 Next
 Mac = "MAC: " & Trim(Mac)
  
Name = "姓名: "&Name
 Dept = "部门: "&Dept
 Showq = "显示器: "&Showq
 TempFile.WriteLine(Dept)
 TempFile.WriteLine(Name)
 TempFIle.WriteLine(Showq)
 TempFile.WriteLine(CPU2)
 TempFile.WriteLine(Board2)
 TempFile.WriteLine(Memory2)
 TempFile.WriteLine(Video2)
 TempFile.WriteLine(Disk3)
 TempFile.WriteLine(Lan)
 TempFile.WriteLine(IP)
 TempFile.WriteLine(mac)
 TempFile.Close
 MsgBox "信息传送完毕,谢谢合作",vbYes,"北京博纳集团公司"

将上面的代码写到txt文件里，然后改名为vbs，然后发给客户机器运行下，就可以了，我们上面提到要得到的内容就全部发到你的共享文件里了，注意请更改里面的共享地址！