Guoy

遥看成梦,近看成风

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,然后发给客户机器运行下,就可以了,我们上面提到要得到的内容就全部发到你的共享文件里了,注意请更改里面的共享地址!