Endre stasjonsbokstav til dvd-rom under oppstart

[ilpostino]

er det noen som vet hvordan en får endret stasjonsbokstaven til dvd-stasjonen under opstart?

 

Jeg ønsker at dette skal bli gjort gjennom AD og grup policies (eller lignende). dette skal kun være nødvendig å gjøre en gang per maskin.

[panzerwolf]

Har stasjonen samme bokstav på alle maskinene? Mulig dette skal la seg gjøre i registeret, la meg se litt...

[ilpostino]

unnskyld, min feil at jeg ikke har sagt ifra. Fant et script som kjøres under bootup som endrer stasjonsbokstaven.

 

takk for at du svarte.

[panzerwolf]

Er ikke så lett, trådene er ganske ensomme her Kunne du sendt meg the scriptet eller linken til det? Virker interessant

[ilpostino]

Lagre dette som en vbs-fil og legg filen inn i group policy i AD hvis du kjører på et nettverk. Du kan også legge inn startup-scripts på enkeltstående maskiner. en oppskrift på det står nedenfor.

 

Hvis du skal gjøre dette på en enkelt maskin kan du gjøre følgende:

Hvis du tar ibtuk MMC-snap-in så skal dete løse problemet. Du kan da sette program/script som skal kjøres under oppstart/shutdown av maskin og ved pålogging av diverse brukere. du kan lese mer om snap-ins her.

 

Trykk du Start -> Kjør og skriver mmc og trykker Enter.

Trykk Fil -> Legg til/Fjern snap-in modul -> Trykk Legg til

Trykk Legg til Redigering for gruppepolicyobjekt og trykk Fullfør

Trykk Lukk og Ok.

 

Du skal nå ha lagt til noe som heter Lokal datamaskin-policy. Med denne kan du styre veldig mye når det gjelder brukere/system på datamaskinen din.

 

Trykk på pluss-tegnet ved siden av Datamaskinkonfigurasjon og Windows-innstillinger. Her kan du legge til startup/shutdown-scripts som kjøres når du skrur på/av maskinen.

 

Dobbeltklikk på Avslutt og Legg til. Finn fremprogrammet du vil ha lagt til når maskinen skrus av. Trykk Bruk og Ok. Trykk Fil -> Avslutt. Trykk Ja når du får spørsmål om å lagre og trykk Ja (snap-in vil da bli lagret under Administrative Verktøy på Start-menyen).

 

Det er linjen med koden "intDriveLetter=88 ' ascii for x" som endrer stasjonsbokstaven. du kan for eksempel se på denne siden for å se ancii-koden for alfabetet hvis du vil sette det til en annen bokstav enn x. Her er selve scriptet:

Klikk for å se/fjerne innholdet nedenfor

Option Explicit

 

dim objShell, objFs, objDriveCollection, wshSysEnv, strTemp, strSystemRoot, intDriveLetter

Dim objDrive, objFile, strDriveType, strCMD, strVolume, strDrivesDone

 

Set objShell = WScript.CreateObject("WScript.Shell")

Set objfs = CreateObject("Scripting.FileSystemObject")

Set objDriveCollection = objfs.Drives

 

Set WshSysEnv = objShell.Environment("PROCESS")

strTemp = WshSysEnv("Temp")

strSystemRoot = WshSysEnv("SystemRoot")

 

intDriveLetter=88 ' ascii for x

strDrivesDone="" ' Drives that have been remapped. Prevents CDs being changed again after being moved higher up the alphabet

 

For Each objDrive in objDriveCollection

 

Select Case objDrive.DriveType

Case 0: strDriveType = "Unknown"

Case 1: strDriveType = "Removable"

Case 2: strDriveType = "Fixed"

Case 3: strDriveType = "Network"

Case 4: strDriveType = "CD-ROM"

Case 5: strDriveType = "RAM Disk"

End Select

 

if strDriveType = "CD-ROM" AND instr(strDrivesDone,objDrive.DriveLetter)=0 then

 

' discover volume ID

strCMD = strSystemroot & "\system32\cmd /c mountvol.exe " & objDrive.DriveLetter & ": /L > " & strTemp & "\volume.txt"

objshell.run strCMD,0,true

Set objFile = objfs.OpenTextFile(strTemp & "\volume.txt", 1)

strVolume = ltrim(objFile.ReadLine)

objFile.close

 

' unmount CD-ROM

strCMD = "mountvol.exe " & objDrive.DriveLetter & ": /d"

objShell.Run strCMD,0,true

 

' Remount CD-ROM

strCMD = "mountvol.exe " & chr(intDriveLetter) & ": " & strVolume

objShell.Run strCMD,0,true

strDrivesDone=strDrivesDone & chr(intDriveLetter)

intDriveLetter=intDriveLetter+1

 

end if

 

 

Next

[panzerwolf]

Takk skal du ha, må prøves ut!