VB Script that changes the CDROM drive letter
- Details
- Category: VB Scripting
- Written by Winfred de Kreij
'
' Script creates a local file that gets called by Diskpart to change the CDROM drive to Z:
'
'
strComputer = "."
Set WshShell = WScript.CreateObject("WScript.Shell")
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set fso = CreateObject ("Scripting.FileSystemObject")
Set colItems = objWMIService.ExecQuery("Select * from Win32_CDROMDrive")
'define the path where the file was started
ScriptStartLocation = left(Wscript.ScriptFullName, ((instr((Wscript.ScriptFullName), (wscript.ScriptName)))-1))
'Select CDROM drive (here you select drive letter you want it renamed to)
For Each objItem in colItems
If fso.DriveExists("Z") = False Then
Errcode = ChgDrv("Z:", objItem.Drive)
end if
Next
'======================================================
'
'Function changes CDROM drive letter.
'
'======================================================
Function ChgDrv(Drive, theDrive)
wscript.echo theDrive & " => " & Drive
If theDrive <> Drive Then
'Create File
strFilename = ScriptStartLocation & "chgdrv" & Left(Drive,1) & ".txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile(strFilename)
objFile.Close
'Write Data to File
Set objFile = objFSO.OpenTextFile (strFilename, 2)
objFile.WriteLine "select volume " & theDrive
objFile.WriteLine "assign letter=" & Drive
objFile.WriteLine "exit"
objFile.Close
'Run Diskpart calling the script just created
strRun = "diskpart /s " & strFilename
nRtn = wshShell.Run(strRun, 2 , True)
'Delete File
objFSO.DeleteFile(strFilename)
End If
End Function