- CHANGER LA LETTRE DU LECTEUR CDROM (WIN2K ET XP
cree un script passe en argument de ligne de commande pour modifier la lettre du lecteur de cdrom avec diskpart puis supprime le script
Source / Exemple :
' ***************************************************************************************
' * (C) Claude CONTAMINA (email : ccontamina@glf.fr) *
' ***************************************************************************************
' * Script de modification lettre cdrom *
' ***************************************************************************************
' ***************************************************************************************
' * Declaration des variables globales *
' ***************************************************************************************
Public strFile, strTxtToFile, strNewCdRomLetter
' ***************************************************************************************
' * Programme Principal *
' ***************************************************************************************
strNewCdRomLetter = "Z"
' **** cree script
strFile = "C:\ChangeCdromLetter.spt"
strTxtToFile = "list volume" & VbCrLf & _
"select volume 0" & VbCrLf & _
"assign letter=" & strNewCdRomLetter & VbCrLf & _
"exit" & VbCrLf
WriteStrToFile
' **** lance script
Call RunCmd("diskpart /s " & strFile)
' **** supprime le script cree
Call DelSpt
WScript.Quit
' ***************************************************************************************
' * Fonction ecrit le txt dans le fichier *
' ***************************************************************************************
Private Sub WriteStrToFile()
On Error Resume Next
Dim oFSO, FileWrite
Const ForWriting = 2
' *** création objet file
Set oFSO = WScript.CreateObject("Scripting.FileSystemObject")
' *** écriture du fichier cf
Set FileWrite = oFSO.OpenTextFile(strFile, ForWriting, True)
FileWrite.Write StrTxtToFile
' *** suppréssion objet file
Set oFSO = Nothing
End Sub
' ****************************************************************************************
' * Lancement de ligne de commande *
' ****************************************************************************************
Private Sub RunCmd(strCmd)
Dim loShell
Set loShell = WScript.CreateObject("WScript.Shell")
nerror = loShell.run(strCmd, 0, True)
Do While nerror = 1
Loop
Set loShell = Nothing
End Sub
' **************************************************************************************
' * Fonction efface le fichier script *
' **************************************************************************************
Private Sub DelSpt()
On Error Resume Next
Dim oFSO, oFile
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFile = oFSO.GetFile(strFile)
oFile.Delete
Set oFSO = Nothing
Set oFILE = Nothing
End Sub
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.