![[view]](images/icons/view.gif "Bekijk bericht"){kind=icon}
![[quote]](images/icons/quote.gif "Quote bericht"){kind=icon}
Door: 
Berichten: 9
Reg. datum: 15 juli 2007
Reg. datum: 15 juli 2007
Nooit meer een CD/DVD vergeten bij 't afsluiten
Tool is een groot woord, maar ik heb een VBscriptje gemaakt om te controleren of er nog een CD/DVD in eender welke drive zit.
Het is vooral de bedoeling dit in te stellen als afmeldscript bij de Group Policy Editor zodat het bij elke shutdown uitgevoerd wordt. Zit er dan nog een CD of DVD in je computer, verschijnt er een messagebox en houdt je pc op met afsluiten. Zo kan hem eruit halen, op OK drukken en dan sluit de pc verder af.
code:
Tool is een groot woord, maar ik heb een VBscriptje gemaakt om te controleren of er nog een CD/DVD in eender welke drive zit.
Het is vooral de bedoeling dit in te stellen als afmeldscript bij de Group Policy Editor zodat het bij elke shutdown uitgevoerd wordt. Zit er dan nog een CD of DVD in je computer, verschijnt er een messagebox en houdt je pc op met afsluiten. Zo kan hem eruit halen, op OK drukken en dan sluit de pc verder af.
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
| Set FileSystemObject = CreateObject("Scripting.FileSystemObject")
Set Drives = FileSystemObject.Drives
For Each DiskDrive in Drives
DriveType = DiskDrive.DriveType
If DriveType = "4" Then
If DiskDrive.IsReady Then
MsgBox "Er steekt nog een CD of DVD in de drive.",48,"Opgelet"
End If
End If
Next
Set Drives = nothing
Set FileSystemObject = nothing
WScript.Quit |
Al is de kleurstelling nog steed wel iets waar mensen met minder goede ogen moeite mee gaan hebben.
)
, want dit hét alternatief tegen 
![[RSS]](images/icons/rss.gif "RSS feed of /list_messages/1174542/last"){kind=icon}
![[XML]](images/icons/xml.gif "XML feed of /list_messages/1174542/last"){kind=icon}
