Change drive letters of volume winXP

[kumar3698]

Want to change drive letter of volumes. once the script is run it should show the partitions in pop up box and ask for new drive letters.

Used below code but it is just changing the d to q

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colVolumes = objWMIService.ExecQuery _
("Select * from Win32_Volume Where Name = 'D:\\'")

For Each objVolume in colVolumes
objVolume.DriveLetter = "Q:"
objVolume.Put_
Next

 

[Geates]

Used below code but it is just changing the d to q

take away the D: qualification

strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colVolumes = objWMIService.ExecQuery("Select * from Win32_Volume")

For Each objVolume in colVolumes
   strDrive = inputBox("Enter new drive letter (e.g. c:)")
   objVolume.DriveLetter = strDrive
   objVolume.Put_
Next

-Geates

http://ns7.webmasters.com/caspdoc/html/vbscript_language_reference.htm

 

[kumar3698]

Hello friend Its not working and giving the below error in XP

script D:\driveletter.vbs
line 5
char 1
error 0x80041010
code 80041010
source (null)

 

[Geates]

What is line 5 in your script? In what I posted, it's the [tt]for each[/tt] loop. An error here would suggest the colVolumes is empty - which further suggests either a corrupt WMI on the computer or that information thru WMI is protected by software or something.

I do not get an error.

Also, I added a line.

strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colVolumes = objWMIService.ExecQuery("Select * from Win32_Volume")

For Each objVolume in colVolumes
	[highlight #FCE94F]if (objVolume.DriveLetter <> "") then[/highlight]
		strDrive = inputBox("Curren Letter: " & [highlight #FCE94F]objVolume.DriveLetter[/highlight] & chr(10) & "Enter new drive letter (e.g. c:)")
		objVolume.DriveLetter = strDrive
		objVolume.Put_
	[highlight #FCE94F]end if[/highlight]
Next

-Geates

http://ns7.webmasters.com/caspdoc/html/vbscript_language_reference.htm

 

[kumar3698]

Hello friend -It works in Windows 7 but not in XP.