昨天发现C盘的空间不足了，就想把C盘的东西都压缩下。今天早上来发现悲剧了，电脑无法正常启动了。出现bootmgr is compressed 然后让我重新启动，重启后还是同样的报错。
我很不明白这个磁盘压缩是哪个货推广出来的，压缩后系统运行会变慢，而且还会出现其他故障。
故障表现： 开机后无法正常启动，提示bootmgr is compressed
故障原因： 右键打开C盘属性，勾选了“压缩此驱动器以节省空间”，导致磁盘中不知道什么东西被压缩了。
解决前提： 操作系统盘或者usb
解决方法：1、 插入系统盘（如果不是cd-com的或者usb运行的，开机后狂按F12。然后选择usb或者cd-com来运行）。进入winpe系统后，打开我的电脑点击C盘右键，把“压缩此驱动器以节省空间”选择勾掉，点击“确定”。重启 （PS：此方法我已经尝试过了，成功）
2、同样从系统盘运行，在“系统故障恢复选择”中打开“命令提示符”，运行两条命令“Bootrec.exe /fixmbr”和"Bootrec.exe /fixbool".然后重启
本文链接
作者：zyl910
有的时候将子目录下的所有文件的修改时间、大小、全限定名等信息导出到Excel表格中。
尝试过命令行，但不太好用——
1.对于“dir /s >1.txt”，当前目录与文件列表是分开显示的，合并起来太麻烦，而且没有文件的全限定名。
2.对于“dir /b /s >1.txt”，只有全限定名，没有修改时间、大小等详细信息。
3.对于“tree /f >1.txt”，只有目录树，没有修改时间、大小等详细信息。
在网上找了几个导出文件列表的工具，但都不太好用。于是决定自己编写。
用什么编程工具开发呢？考虑到以后可能经常改进输出内容的格式，所以用VBScript脚本来写是最方便的。
全部代码如下——
' Author: zyl910
' Blog: http://www.cnblogs.com/zyl910
' URL: http://www.cnblogs.com/zyl910/archive/2013/01/07/allfiles.html
' Version: V1.0
' Updata: 2013-01-07
'
' 输出文件是“allfiles.txt”。格式:
' Type DateLastModified Size Base Ext FullName
' D 2013-1-1 12:30:30 Temp C:\Temp
' F 2013-1-1 12:30:31 34 abc txt C:\Temp\abc.txt
'
' Type: 类型。D目录，F文件。
' DateLastModified: 最后修改时间.
' Size: 文件大小.
' Base: 文件基本名.
' Ext: 扩展名.
' FullName: 文件的全限定名.
' 取得文件扩展名和基本名.
Function GetFileExtAndBaseName(ByVal sfilename, ByRef sbasename)
n = InStrRev(sfilename, ".")
If n>1 Then
GetFileExtAndBaseName = Mid(sfilename, n+1)
sbasename = Left(sfilename, n-1)
Else
GetFileExtAndBaseName = ""
sbasename = sfilename
End If
End Function
' 遍历该目录及子目录.
'
' Result: 目录和文件的总数.
' fileOut: 输出文件，用于输出遍历结果.
' fso: FileSystemObject对象.
' sPath: 目录.
Function dirscan(ByRef fileOut, ByVal fso, ByVal sPath)
rt = 0
Set currentFolder = Nothing
'MsgBox sPath
On Error Resume Next
Set currentFolder = fso.GetFolder(sPath)
On Error Goto 0
If Not (currentFolder Is Nothing) Then
' Folders
For Each subFolder in currentFolder.SubFolders
sfull = subFolder.Path & "\" ' 全限定名.
s = "D" & vbTab & subFolder.DateLastModified & vbTab & "" & vbTab & subFolder.Name & vbTab & "" & vbTab & sfull & vbCrLf
fileOut.write s
rt = rt + 1
rt = rt + dirscan(fileOut, fso, subFolder.Path)
Next
' Files
For Each f in currentFolder.Files
sbase = ""
sext = GetFileExtAndBaseName(f.Name, sbase) ' 扩展名.
sfull = f.Path & "\" & f.Name ' 全限定名.
s = "F" & vbTab & f.DateLastModified & vbTab & f.Size & vbTab & sbase & vbTab & sext & vbTab & sfull & vbCrLf
fileOut.write s
rt = rt + 1
Next
End If
dirscan = rt
End Function
'得到脚本文件所在的当前目录
Function GetCurrentFolderFullPath(fso)
GetCurrentFolderFullPath = fso.GetParentFolderName(WScript.ScriptFullName)
End Function
' 测试
Sub dotest
Set fso = CreateObject("Scripting.FileSystemObject")
strpath = GetCurrentFolderFullPath(fso)
笔记本配置了一块以太网卡和一块无线网卡，安装了Windows Server 2008 R2。最近为了学习Linux，新建了一个Hyper-V虚拟机，并在虚拟机上安装了Ubuntu Desktop 12.04 LTS。由于平时常用Wi-Fi上网，偶然发现Hyper-V虚拟机默认不能使用宿主系统的无线网卡上网，据说是出于安全方面的考虑。后来参考“Using Wireless with Hyper-V”解决了问题，具体的设置步骤如下：
STEP 1：新建内部虚拟网络
STEP 2：桥接内部虚拟网络和无线网络
STEP 3：设置虚拟机的网络适配器
说明：完成上述设置之后启动Hyper-V虚拟机，发现虚拟机依旧无法使用Wi-Fi上网，因为虚拟机的网络配置竟然与笔记本通过DHCP获得的无线网络配置一样，于是决定重启笔记本的无线连接。当断开笔记本的无线连接时，竟然弹出了IP地址冲突提示框。这个提示框的弹出时机有点儿怪！重启无线连接之后，笔记本通过DHCP获得了新的无线网络配置，而虚拟机仍然保持之前的网络配置，此时，笔记本和虚拟机都能使用Wi-Fi上网。现将操作步骤总结为：（1）启动Wi-Fi；（2）启动虚拟机；（3）关闭Wi-Fi；（4）重启Wi-Fi。
本文链接