Overblog Tous les blogs Top blogs Technologie & Science Tous les blogs Technologie & Science
Editer l'article Suivre ce blog Administration + Créer mon blog
MENU
Tous les blogs Top blogs Technologie & Science Tous les blogs Technologie & Science
Recherche
+ Créer mon blog Editer l'article Suivre ce blog Administration
Partager

Assign AppV Drive Letter

Publié le par damcuvelier

 

Dim oWsh, osdV4, objFileDiskPart, objLogFile, strFileDiskPart, iRetVal

Set oWsh = CreateObject("WScript.Shell")
Set osdV4 = CreateObject("Microsoft.SMS.TSEnvironment")
Set objFSO = CreateObject("Scripting.FileSystemObject")

strFileDiskPart = osdV4("_SMSTSLogPath")  & "\diskpart.ini"
 
' Regarder le second argument de opentextfile pour écraser le document et non pas faire de l'append
Set objFileDiskPart = objFSO.opentextfile(strFileDiskPart, 8, True)
objFileDiskPart.writeline "select volume " & osdV4("APPVDRIVELETTER")
objFileDiskPart.writeline "assign letter=Q"
objFileDiskPart.Close

sCmd = "diskpart /s " & strFileDiskPart

iRetVal = oWsh.Run(sCmd, 0, true)

Commenter cet article

Retour à l'accueil