toggle devstudio scc.vbs

来自「ResOrg 图形化管理Vc项目的资源ID的工具的源代码。 ResOrg - 」· VBS 代码 · 共 17 行

set shell = CreateObject("WScript.Shell")
key =  "HKEY_LOCAL_MACHINE\SOFTWARE\SourceCodeControlProvider\ProviderRegKey"
currentSCCP = shell.RegRead(key)
if currentSCCP = Empty then 
	intButton = shell.Popup("Integration is currently disabled, enable it?", 0, "Visual Studio SourceSafe integration", 4 + 32)
	if intButton = 6 then 
		shell.RegWrite key, "Software\Microsoft\SourceSafe"
		shell.Popup "Integration is now enabled" + vbcrlf + "Visual Studio should now be restarted.", 5, "Visual Studio SourceSafe integration", 0
	end if
else 
	intButton = shell.Popup("Integration is currently enabled, disable it?", 0, "Visual Studio SourceSafe integration", 4 + 32)
	if intButton = 6 then 
		shell.RegWrite key, ""
		shell.Popup "Integration is now disabled." + vbcrlf + "Visual Studio should now be restarted.", 5, "Visual Studio SourceSafe integration", 0
	end if
end if