闲中好

2008-11-10

办公室机器曾出现的诸多问题 - [乱七八糟]

1、双击桌面图标不能打开程序，弹出相应程序属性对话框

可能原因及解决办法：

1、键盘ALT键卡住

2、系统设置被修改，点附件-系统工具-还原

3、鼠标问题，在控制面板内选鼠标属性，将左右手习惯切换复选框内的勾去掉

4、中毒

二、显示器窗口两边呈现凹型，无法调节

原因：枕型失真--主要是枕型失真校正电路出现故障

应检查显示器枕型失真电路中各元件：

1、某个元件接触处虚焊或锈蚀

2、枕型失真校正电位器氧化，造成动片与定片接触不好，需清洗或更换，并重新调整。

3、这部分电路的晶体管放大能力下降，需更换。

三、任务栏无法显示任务窗口

是WindowsXP注册表中关于任务栏的一些数据损坏或丢失很多朋友反映Windows XP的任务栏出现故障，现象是最小化窗口时无法在任务栏中显示。 只有快捷启动栏和语言栏，无法看到正在运行的任务栏的任务。

1.针对这个问题国外高手Kelly Theriot和Doug Knox编写了个脚本，可以修复这个问题。

在记事本里写下如下内容:

'xp_taskbar_desktop_fixall.vbs - Repairs the Taskbar when minimized programs don't show.
'?Kelly Theriot and Doug Knox - 8/22/2003

Set WSHShell = WScript.CreateObject("WScript.Shell")

Message = "To work correctly, the script will close" & vbCR
Message = Message & "and restart the Windows Explorer shell." & vbCR
Message = Message & "This will not harm your system." & vbCR & vbCR
Message = Message & "Continue?"

X = MsgBox(Message, vbYesNo, "Notice")

If X = 6 Then

On Error Resume Next

WshShell.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\StuckRects2\"
WshShell.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\StreamMRU\"
WshShell.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Streams\Desktop\"

WshShell.RegDelete "HKCU\Software\Microsoft\Internet Explorer\Explorer Bars\{32683183-48a0-441b-a342-7c2a440a9478}\BarSize"

P1 = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\"

WshShell.RegWrite p1 & "NoBandCustomize", 0, "REG_DWORD"
WshShell.RegWrite p1 & "NoMovingBands", 0, "REG_DWORD"
WshShell.RegWrite p1 & "NoCloseDragDropBands", 0, "REG_DWORD"
WshShell.RegWrite p1 & "NoSetTaskbar", 0, "REG_DWORD"
WshShell.RegWrite p1 & "NoToolbarsOnTaskbar", 0, "REG_DWORD"
WshShell.RegWrite p1 & "NoSaveSettings",0,"REG_DWORD"
WshShell.RegWrite p1 & "NoToolbarsOnTaskbar", 0, "REG_DWORD"
WshShell.RegWrite p1 & "NoSetTaskbar",0,"REG_DWORD"
WshShell.RegWrite p1 & "NoActiveDesktop",0,"REG_DWORD"
WshShell.RegWrite p1 & "ClassicShell",0,"REG_DWORD"

p1 = "HKCU\Software\Microsoft\Windows\CurrentVersion\Group Policy Objects\LocalUser\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\"

WshShell.RegWrite p1 & "NoCloseDragDropBands", 0, "REG_DWORD"
WshShell.RegDelete p1 & "NoMovingBands"

p1 = "HKLM\Software\Microsoft\Windows NT\CurrentVersion\Winlogon\Shell"

WshShell.RegWrite p1, "explorer.exe", "REG_SZ"

p1 = "HKCU\Software\Microsoft\Internet Explorer\Explorer Bars\{32683183-48a0-441b-a342-7c2a440a9478}\"
WshShell.RegDelete p1 & "BarSize"
WshShell.RegWrite p1, "Media Band", "REG_SZ"

On Error Goto 0

For Each Process in GetObject("winmgmts:"). _
ExecQuery ("select * from Win32_Process where name='explorer.exe'")
Process.terminate(0)
Next

MsgBox "Finished." & vbcr & vbcr & "?Kelly Theriot and Doug Knox", 4096, "Done"

Else

MsgBox "No changes were made to your system." & vbcr & vbcr & "?Kelly Theriot and Doug Knox", 4096, "User Cancelled"

End If

2.然后另存为.vbs文件.点击运行就行了. 就OK了！

四、打不开设备管理器

可能是系统文件mmc.exe丢失造成，进入PE，将正常的mmc.exe文件复制入system32目录下。

五、无法进入系统，在登陆窗口自动注销

由于系统文件userinit32.exe文件被修改，进入PE，在%systemroot%\system32目录下复制替换新的userinit32.exe文件

六、浏览器使用域名无法打开网页（包括IE6,IE7,Firefox,Google Chrome),如果直接使用ip访问一切正常；同时，QQ等直接使用IP登录的软件使用正常。
解决：开始是检查DNS服务器，相同设置的其他机器均无问题，排除DNS服务器down掉的可能。
运行nslookup，发现可以正确解析域名
检查局域网，无arp欺骗
查看host文件，一切正常；添加指定的域名－IP后浏览器可以正确访问。
netsh winsock reset以后问题依旧。
崩溃中无意中发现出问题的机器在更新windows xp sp3时都出现过ntldr文件无法复制的情况，安装时都选择了忽略……
google之后才知道原来是瑞星在作怪。关闭之后顺利安装sp3完毕。重启后一切回归正常。（这是我们家强大的猪儿解决的，我可是在烦闷了一天之后重装了系统）

此外，还有诸如开机黑屏，超恶心的“万能搜索”流氓软件，系统文件被误删的诸多问题，当然在很多问题无法解决时我还是只有无奈的重装系统，但是对于弹出窗口都以all yes or all no解决的办公室的大人们，我真是非常的头痛。

七、将PPT文件转化为DOC文件

要求电脑上装有Microsoft Office软件：（星号之间的内容复制到记事本中，保存为扩展名为.vbs的文件），把需要转化的ppt文件放到c:\目录下，双击刚才保存的文件，即可将ppt文件转化为doc文件，转化后的文件存放c:\下。

***************************************************************

'绑定到本地计算机
strComputer = "."
'如果发生错误，继续执行
on error resume next

Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
msgbox "此脚本可以批量将ppt文件中的文本转换为word文件。图片、表格等内容则自动跳过" & vbcrlf & "使用时请把所有要转换的ppt文件复制到目录c:\下。双击运行此文件即可。" & vbcrlf & "运行此脚本需要本机上安装了office"
'创建一个word对象
Set objWord = CreateObject("Word.Application")
'创建一个ppt对象
Set pptApp = CreateObject("PowerPoint.application")
'获得c:\目录下的文件集合
Set FileList = objWMIService.ExecQuery _
    ("ASSOCIATORS OF {Win32_Directory.Name='c:'} Where " _
        & "ResultClass = CIM_DataFile")
For Each objFile In FileList
'如果文件的扩展名是ppt
    If objFile.Extension = "ppt" Then
pptApp.visible = true
'打开这个ppt文件
Set pptSelection = pptApp.Presentations.Open("c:\" & objFile.FileName & "." & objFile.Extension)
'如果想让脚本处理得快些，把下面一行改为“objWord.Visible = false”,不推荐。
objWord.Visible = true
'新建一个word，以保存ppt中的文本
Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.Selection
'从ppt的第一页开始循环。Slides.Count即幻灯片的数量
For i = 1 To pptSelection.Slides.Count
'从每一张ppt的第一个文本框开始循环，Shapes.Count，即每张幻灯片中文本框的数量
   For j = 1 To pptSelection.Slides(i).Shapes.Count
    '如果是每页的第一行，就按标题处理，变成黑体字     
    if i =1 then
           objSelection.Font.Name = "黑体"
           '把文本框中的文字添加到word中
       objSelection.TypeText pptSelection.Slides(i).Shapes(j).TextFrame.TextRange.text
     objSelection.TypeParagraph()
         objSelection.Font.Name = "宋体"
          end if
    objSelection.TypeText pptSelection.Slides(i).Shapes(j).TextFrame.TextRange.text
      '加一个回车
    objSelection.TypeText vbcrlf
   Next
next
'关闭这个ppt文件
pptSelection.close
'保存word文件。
objDoc.SaveAs("c:\" & objFile.FileName & ".doc")
'如果不需要关闭word，把下面这一行删掉
objDoc.close
'如果不想弹出消息框，把下面这一行删掉
msgbox "转换后的word已保存在c:\" & objFile.FileName & ".doc"
else '没有ppt文件
'msgbox "错误：c:\下没有发现ppt文件！"
    End If
Next
pptApp.quit