禁用Skype文件传输

禁用Skype文件传送功能!
前段经常有用户不小心收到Skype传过来的病毒,如果用户不小心接受了不明文件,就会中毒;还有公司,因为安全的考虑,防止文件外传,也需要禁止Skype的文件传送功能,针对此需求,写了下面的脚本,将其应用的AD 的GPO中，就可以对域下面的电脑很轻松的管理了！

Const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ 
    strComputer & "\root\default:StdRegProv")

strKeyPath = "SOFTWARE\Policies\Skype\Phone"
oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath
strValueName = "DisableFileTransfer"
dwValue = 1
oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue

如果要启用,将上面的dwValue 改为0即可!