windows-nt/Source/XPSP1/NT/base/pnp/tools/scrubber/scrubber.c

512 lines
15 KiB
C
Raw Normal View History

2020-09-26 03:20:57 -05:00
/*
Note: This program creates the following files in %systemroot%\system32\config:
system.sc0 Backup at start of operations
system.scc Backup if compression is on
system.scb Backup after removing devnodes
system.scn Temporary during replacement of system (should go away)
system Updated system hive (should match system.scb)
Modification History:
10/3/2000 original version from jasconc
10/4/2000 put back compression option, version 0.9
10/10/2000 if compression (no removals), save backup as .scc, else as .sc0
10/13/2000 Add version check (Win2K only, not NT4, not Whistler, etc.)
10/20/2000 Return DevicesRemoved to help with diskpart in scripts
*/
//#include "scrubber.h"
#include <windows.h>
#include <setupapi.h>
#include <cfgmgr32.h>
#include <stdio.h>
#include <stdlib.h>
#include <initguid.h>
#include <devguid.h>
#include <winioctl.h>
CONST GUID *ClassesToClean[2] = {
&GUID_DEVCLASS_DISKDRIVE,
&GUID_DEVCLASS_VOLUME
};
CONST GUID *DeviceInterfacesToClean[5] = {
&DiskClassGuid,
&PartitionClassGuid,
&WriteOnceDiskClassGuid,
&VolumeClassGuid,
&StoragePortClassGuid
};
void PERR(void);
BOOL
IsUserAdmin(
VOID
)
/*++
Routine Description:
This routine returns TRUE if the caller's process is a
member of the Administrators local group.
Caller is NOT expected to be impersonating anyone and IS
expected to be able to open their own process and process
token.
Arguments:
None.
Return Value:
TRUE - Caller has Administrators local group.
FALSE - Caller does not have Administrators local group.
--*/
{
BOOL b;
SID_IDENTIFIER_AUTHORITY NtAuthority = SECURITY_NT_AUTHORITY;
PSID AdministratorsGroup;
b = AllocateAndInitializeSid(&NtAuthority,
2,
SECURITY_BUILTIN_DOMAIN_RID,
DOMAIN_ALIAS_RID_ADMINS,
0,
0,
0,
0,
0,
0,
&AdministratorsGroup
);
if (b) {
if (!CheckTokenMembership(NULL,
AdministratorsGroup,
&b
)) {
b = FALSE;
}
FreeSid(AdministratorsGroup);
}
return (b);
}
int
__cdecl
main(
IN int argc,
IN char *argv[]
)
{
HDEVINFO DeviceInfoSet;
HDEVINFO InterfaceDeviceInfoSet;
SP_DEVINFO_DATA DeviceInfoData;
SP_DEVICE_INTERFACE_DATA DeviceInterfaceData;
int DevicesRemoved = 0;
int i, InterfaceIndex;
int MemberIndex, InterfaceMemberIndex;
BOOL bDoRemove = TRUE, bDoCompress = FALSE;
DWORD Status, Problem;
CONFIGRET cr;
TCHAR DeviceInstanceId[MAX_DEVICE_ID_LEN];
TCHAR DirBuff[MAX_PATH], DirBuffX[MAX_PATH], BackupDir[MAX_PATH];
UINT uPathLen;
HKEY hKey;
DWORD dwMessage;
TOKEN_PRIVILEGES tp;
HANDLE hToken;
LUID luid;
LPTSTR MachineName=NULL; // pointer to machine name
DWORD dwSubKeyIndex=0; // index into key
DWORD dwSubKeyLength=_MAX_FNAME; // length of SubKey buffer
OSVERSIONINFO osvi;
//
// enable backup privilege at least
//
printf("SCRUBBER 0.93 Storage Device Node Cleanup\nCopyright (c) 2000 Microsoft Corp. All rights reserved.\n");
//
// parse parameters.
//
for (i = 1; i < argc; i++)
{
//
// Check for help
//
if ( (lstrcmpi(argv[i], TEXT("-?")) == 0) ||
(lstrcmpi(argv[i], TEXT("/?")) == 0) ){
printf("\nSCRUBBER will remove phantom storage device nodes from this machine.\n\n");
printf("Usage: scrubber [/n] [/c]\n");
printf("\twhere /n displays but does not remove the phantom devnodes.\n");
printf("\t and /c will compress the registry hive even if no changes are made.\n");
printf("\nBackup and Restore privileges are required to run this utility.\n");
printf("A copy of the registry will saved in %%systemroot%%\\system32\\config\\system.sc0\n");
return 0;
}
//
// Check for -n which means just list the devices that
// we will remove.
//
if ( (lstrcmpi(argv[i], TEXT("-n")) == 0) ||
(lstrcmpi(argv[i], TEXT("/n")) == 0) ) {
bDoRemove = FALSE;
}
//
// Force compress mode?
//
if ( (lstrcmpi(argv[i], TEXT("-c")) == 0) ||
(lstrcmpi(argv[i], TEXT("/c")) == 0) ){
bDoCompress = TRUE;
}
}
//
// Only run on Windows 2000 (not Whistler, etc.) Initialize the OSVERSIONINFOEX structure.
//
ZeroMemory(&osvi, sizeof(OSVERSIONINFO));
osvi.dwOSVersionInfoSize = sizeof(OSVERSIONINFO);
if (!GetVersionEx(&osvi))
{
fprintf(stderr, "SCRUBBER: Unable to verify Windows version, exiting...\n");
return -1;
}
if ( (osvi.dwMajorVersion != 5) || (osvi.dwMinorVersion != 0) )
{
fprintf(stderr, "SCRUBBER: This utility is only designed to run on Windows 2000\n");
return -1;
}
//
// The process must have admin credentials.
//
if (!IsUserAdmin()) {
fprintf(stderr, "SCRUBBER: You must be an administrator to run this utility.\n");
return -1;
}
//
// see if we can do the task, need backup privelege.
//
if(!OpenProcessToken(GetCurrentProcess(),
TOKEN_ADJUST_PRIVILEGES,
&hToken ))
{
fprintf(stderr, "SCRUBBER: Unable to obtain process token.\nCheck privileges.\n");
return -1;
}
if(!LookupPrivilegeValue(MachineName, SE_BACKUP_NAME, &luid))
{
fprintf(stderr, "SCRUBBER: Backup Privilege is required to save the registry.\n"
"Please rerun from a privileged account\n");
return -1;
}
tp.PrivilegeCount = 1;
tp.Privileges[0].Luid = luid;
tp.Privileges[0].Attributes = SE_PRIVILEGE_ENABLED;
if (!AdjustTokenPrivileges(hToken, FALSE, &tp, sizeof(TOKEN_PRIVILEGES),
NULL, NULL ))
{
fprintf(stderr, "SCRUBBER: Unable to set Backup Privilege.\n");
return -1;
}
// Backup the file if we aren't doing a dry run
if ( bDoCompress || bDoRemove)
{
if(!LookupPrivilegeValue(MachineName, SE_RESTORE_NAME, &luid))
{
fprintf(stderr, "SCRUBBER: Restore Privilege is required to make changes to the registry.\n"
"Please rerun from a privileged account\n");
return -1;
}
tp.Privileges[0].Luid = luid;
AdjustTokenPrivileges(hToken, FALSE, &tp, sizeof(TOKEN_PRIVILEGES),
NULL, NULL );
if (GetLastError() != ERROR_SUCCESS)
{
fprintf(stderr, "SCRUBBER: Unable to set Restore Privilege.\n");
return -1;
}
if (RegOpenKey(HKEY_LOCAL_MACHINE, "System", &hKey) == ERROR_SUCCESS)
{
uPathLen = GetSystemDirectory(DirBuffX, sizeof(DirBuffX));
if (uPathLen < MAX_PATH - strlen("\\config\\system.scx") - 1)
{
strcat(DirBuffX, "\\config\\system.scx");
dwMessage = RegSaveKey(hKey, DirBuffX, NULL);
if (dwMessage == ERROR_ALREADY_EXISTS)
{
DeleteFile(DirBuffX);
dwMessage = RegSaveKey(hKey, DirBuffX, NULL);
}
RegCloseKey(hKey);
if (dwMessage != ERROR_SUCCESS)
{
fprintf(stderr, "Unable to save a backup copy of the system hive.\n"
"No changes have been made.\n\n");
return -1;
}
}
}
}
for (i=0; (i<sizeof(ClassesToClean)) && (bDoRemove || !bDoCompress); i++) {
DeviceInfoSet = SetupDiGetClassDevs(ClassesToClean[i],
NULL,
NULL,
0
);
if (DeviceInfoSet != INVALID_HANDLE_VALUE) {
DeviceInfoData.cbSize = sizeof(DeviceInfoData);
MemberIndex = 0;
while (SetupDiEnumDeviceInfo(DeviceInfoSet,
MemberIndex++,
&DeviceInfoData
)) {
//
// Check if this device is a Phantom
//
cr = CM_Get_DevNode_Status(&Status,
&Problem,
DeviceInfoData.DevInst,
0
);
if ((cr == CR_NO_SUCH_DEVINST) ||
(cr == CR_NO_SUCH_VALUE)) {
//
// This is a phantom. Now get the DeviceInstanceId so we
// can display this as output.
//
if (CM_Get_Device_ID(DeviceInfoData.DevInst,
DeviceInstanceId,
sizeof(DeviceInstanceId) / sizeof(TCHAR),
0) == CR_SUCCESS) {
if (bDoRemove) {
printf("SCRUBBER: %s will be removed.\n",
DeviceInstanceId
);
//
// Since DeviceRemoval doesn't always clean out all
// of the device's interfaces (this is the case for
// RAW devnodes) then we need to manually build up
// a list of device interfaces that we care about
// that are associated with this DeviceInfoData and
// manually remove them.
//
for (InterfaceIndex = 0;
InterfaceIndex < sizeof(DeviceInterfacesToClean);
InterfaceIndex++) {
//
// Build up a list of the interfaces for this specific
// device.
//
InterfaceDeviceInfoSet =
SetupDiGetClassDevs(DeviceInterfacesToClean[InterfaceIndex],
DeviceInstanceId,
NULL,
DIGCF_DEVICEINTERFACE
);
if (InterfaceDeviceInfoSet != INVALID_HANDLE_VALUE) {
//
// Enumerate through the interfaces that we just
// built up.
//
DeviceInterfaceData.cbSize = sizeof(DeviceInterfaceData);
InterfaceMemberIndex = 0;
while (SetupDiEnumDeviceInterfaces(InterfaceDeviceInfoSet,
NULL,
DeviceInterfacesToClean[InterfaceIndex],
InterfaceMemberIndex++,
&DeviceInterfaceData
)) {
//
// Remove this Interface from the registry.
//
SetupDiRemoveDeviceInterface(InterfaceDeviceInfoSet,
&DeviceInterfaceData
);
}
//
// Destroy the list of Interfaces that we built up.
//
SetupDiDestroyDeviceInfoList(InterfaceDeviceInfoSet);
}
}
//
// Call DIF_REMOVE to remove the device's hardware
// and software registry keys.
//
if (SetupDiCallClassInstaller(DIF_REMOVE,
DeviceInfoSet,
&DeviceInfoData
)) {
DevicesRemoved++;
} else {
fprintf(stderr, "SCRUBBER: Error 0x%X removing phantom\n",
GetLastError());
}
} else {
printf("SCRUBBER: %s would have been removed.\n",
DeviceInstanceId
);
}
}
}
}
SetupDiDestroyDeviceInfoList(DeviceInfoSet);
}
}
// compress registry now
if (DevicesRemoved || bDoCompress)
{
uPathLen = GetSystemDirectory(DirBuff, sizeof(DirBuff));
SetLastError(0);
if (uPathLen < MAX_PATH - strlen("\\config\\system.scn") - 1)
{
// Rename our backup copy
if (!DevicesRemoved)
{
strcat(DirBuff, "\\config\\system.scc");
}
else
{
strcat(DirBuff, "\\config\\system.sc0");
}
DeleteFile(DirBuff);
if (rename(DirBuffX, DirBuff))
{
fprintf(stderr, "SCRUBBER: Failed to rename backup file (system.scx)\n");
}
else
{
printf("System hive backup saved in %s\n", DirBuff);
}
}
else
{
fprintf(stderr, "SCRUBBER: Path name too long. Registry not compressed.\n");
}
if (RegOpenKey(HKEY_LOCAL_MACHINE, "System", &hKey) == ERROR_SUCCESS)
{
// Make an additional copy now because it gets blown away on replace
uPathLen = GetSystemDirectory(DirBuff, sizeof(DirBuff));
strcat(DirBuff, "\\config\\system.scn");
dwMessage = RegSaveKey(hKey, DirBuff, NULL);
if (dwMessage == ERROR_ALREADY_EXISTS)
{
DeleteFile(DirBuff);
dwMessage = RegSaveKey(hKey, DirBuff, NULL);
}
if (dwMessage == ERROR_SUCCESS)
{
if (bDoCompress) {
TCHAR *tcPtr;
sprintf(BackupDir, DirBuff);
tcPtr = strstr(BackupDir, ".scn");
strcpy(tcPtr, ".scb");
if (!DeleteFile(BackupDir))
{
dwMessage = GetLastError();
}
dwMessage = RegReplaceKey(hKey, NULL, DirBuff, BackupDir);
if (dwMessage != ERROR_SUCCESS)
PERR();
else
printf("Saved new system hive.\n");
}
}
else
{
PERR();
}
RegCloseKey(hKey);
}
}
else
DeleteFile(DirBuffX);
return DevicesRemoved;
}
void PERR(void)
{
LPVOID lpMsgBuf;
FormatMessage(
FORMAT_MESSAGE_ALLOCATE_BUFFER |
FORMAT_MESSAGE_FROM_SYSTEM |
FORMAT_MESSAGE_IGNORE_INSERTS,
NULL,
GetLastError(),
MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT), // Default language
(LPTSTR) &lpMsgBuf,
0,
NULL);
fprintf(stderr, lpMsgBuf);
LocalFree(lpMsgBuf);
}