Printer script

og hvordan tilføjer man "benyt som standardprinter" i et VB.

Dim Wshshell, fso, win, drvname, foldername
  Set WshShell = Wscript.CreateObject("Wscript.Shell")
  Set fso = CreateObject("Scripting.FileSystemObject")
  Win = fso.GetSpecialFolder(0)
  drvname="Spooler"
  foldername="C:\a\prov\"

choice = Msgbox ("Hit YES to start the Print Spooler" & chr(13) & "Hit NO to stop the Print Spooler",3, "Make your choice")
if choice = 6 Then
  Wshshell.Run Win & "\system32\sc.exe start " & drvname,true
Elseif choice = 7 Then
  Wshshell.Run Win & "\system32\sc.exe stop " & drvname,true
End if

choice = Msgbox ("Do you want to delete the spool\driver folder?",4, "Delete Spool\driver folder")
if choice = 6 Then
  If fso.FolderExists(foldername) Then
    dim folder
    set folder = fso.GetFolder(foldername)
    folder.Delete
  End If
End If

Sorry, der var en fejl:


Dim Wshshell, fso, win, drvname, foldername
  Set WshShell = Wscript.CreateObject("Wscript.Shell")
  Set fso = CreateObject("Scripting.FileSystemObject")
  Win = fso.GetSpecialFolder(0)
  drvname="Spooler"
  foldername="C:\windows\system32\spool\drivers\"

choice = Msgbox ("Hit YES to start the Print Spooler" & chr(13) & "Hit NO to stop the Print Spooler",3, "Make your choice")
if choice = 6 Then
  Wshshell.Run Win & "\system32\sc.exe start " & drvname,true
Elseif choice = 7 Then
  Wshshell.Run Win & "\system32\sc.exe stop " & drvname,true
End if

choice = Msgbox ("Do you want to delete the spool\driver folder?",4, "Delete Spool\driver folder")
if choice = 6 Then
  If fso.FolderExists(foldername) Then
    dim folder
    set folder = fso.GetFolder(foldername)
    folder.Delete
  End If
End If

Dit tillægsspørgsmål kan du se svar på her:
http://www.computerperformance.co.uk/ezine/ezine17.htm#Setting%20the%20default%20printer

super, men den kommer med en fejl som er :
sript: c:\test.vbs
linje 20
tegn 5
fejl tilladelse næge´tet
kode 800a0046
kilde der opstod en microsoft vbssript kørselsfejl

Prøv dette:

Dim Wshshell, fso, win, drvname, foldername
  Set WshShell = Wscript.CreateObject("Wscript.Shell")
  Set fso = CreateObject("Scripting.FileSystemObject")
  Win = fso.GetSpecialFolder(0)
  drvname="Spooler"
  foldername="C:\windows\system32\spool\drivers\"

choice = Msgbox ("Hit YES to start the Print Spooler" & chr(13) & "Hit NO to stop the Print Spooler",3, "Make your choice")
if choice = 6 Then
  Wshshell.Run Win & "\system32\sc.exe start " & drvname,true
Elseif choice = 7 Then
  Wshshell.Run Win & "\system32\sc.exe stop " & drvname,true
End if

choice = Msgbox ("Do you want to delete the spool\driver folder?",4, "Delete Spool\driver folder")
if choice = 6 Then
  If fso.FolderExists(foldername) Then
    dim folder
    set folder = fso.GetFolder(foldername)
    folder.Delete true
  End If
End If

samme fejl... kan man ikke lave det sådan at der ikke kommer en boks op, hvor man først stopper service, sletter indhold, og starter servicen igen?

Jo, hvis det er det, du vil have kan det da sagtens lade sig gøre. Bemærk dog: I din oprindelige beskrivelse var det lidt uklart om du vil have mappen  "spool\drivers" slettet eller bare tømt. Jeg valgte at slette den, men nu skriver du igen at det kun er indholdet der skal slettes. Hvad er det rigtige?


Dim Wshshell, fso, win, drvname, foldername
  Set WshShell = Wscript.CreateObject("Wscript.Shell")
  Set fso = CreateObject("Scripting.FileSystemObject")
  drvname="Spooler"
  foldername="C:\windows\system32\spool\drivers\"

Wshshell.Run Win & "c:\windows\system32\sc.exe start " & drvname,true
If fso.FolderExists(foldername) Then
  dim folder
    set folder = fso.GetFolder(foldername)
  folder.Delete, true
End If
Wshshell.Run Win & "\system32\sc.exe stop " & drvname,true

Hvis du kun vil have indholdet slettet:

Dim Wshshell, fso, win, drvname, foldername
  Set WshShell = Wscript.CreateObject("Wscript.Shell")
  Set fso = CreateObject("Scripting.FileSystemObject")
  drvname="Spooler"
  foldername="C:\windows\system32\spool\drivers\"
Wshshell.Run "c:\windows\system32\sc.exe stop " & drvname,true
If fso.FolderExists(foldername) Then
  fso.DeleteFile foldername & "*.*", true
End If
Wshshell.Run Win & "\system32\sc.exe start " & drvname,true


Der var desuden fejl i den anden version også, så herkommer en rigtig:

Dim Wshshell, fso, drvname, foldername
  Set WshShell = Wscript.CreateObject("Wscript.Shell")
  Set fso = CreateObject("Scripting.FileSystemObject")
  drvname="Spooler"
  foldername="C:\windows\system32\spool\drivers\"

Wshshell.Run "c:\windows\system32\sc.exe stop " & drvname,true
If fso.FolderExists(foldername) Then
  dim folder
    set folder = fso.GetFolder(foldername)
  folder.Delete, true
End If
Wshshell.Run Win & "\system32\sc.exe start " & drvname,true

Arrrhhhg. Fejl igen!!

Slet indhold:

Dim Wshshell, fso, drvname, foldername
  Set WshShell = Wscript.CreateObject("Wscript.Shell")
  Set fso = CreateObject("Scripting.FileSystemObject")
  drvname="Spooler"
  foldername="C:\windows\system32\spool\drivers\"
Wshshell.Run "c:\windows\system32\sc.exe stop " & drvname,true
If fso.FolderExists(foldername) Then
  fso.DeleteFile foldername & "*.*", true
End If
Wshshell.Run "c:\windows\system32\sc.exe start " & drvname,true


Slet mappe:

Dim Wshshell, fso, drvname, foldername
  Set WshShell = Wscript.CreateObject("Wscript.Shell")
  Set fso = CreateObject("Scripting.FileSystemObject")
  drvname="Spooler"
  foldername="C:\windows\system32\spool\drivers\"

Wshshell.Run "c:\windows\system32\sc.exe stop " & drvname,true
If fso.FolderExists(foldername) Then
  dim folder
    set folder = fso.GetFolder(foldername)
  folder.Delete, true
End If
Wshshell.Run "c:\windows\system32\sc.exe start " & drvname,true

hvor skal den køres fra!! man kan vel køre den lokalt på maskinen, som test ik stadigvæk fejl..:)

Kan du ikke lige svare på, hvilken version det er du ønsker at køre videre med. Det er lidt omstændeligt at lave 2 versioner...

Og så skal jeg høre: Ved den oprindelige version (med dialogboksene): Hvor i processen fik du fejlen (da du startede scriptet, efter første dialog, efter anden dialog)

Jeg har nu været ved at teste på den hårde måde. Problemet er simpelthen at der er (i hvert fald her) en mappe, som ikke kan slettes inde i driver-mappen (heller ikke selvom spool-servicen er slået fra): Den bruges af en anden proces. Derfor kan vbsriptet ikke udføre en sletning af hverken mappen eller indholdet.

cool... det kan jeg godt se, vender lige tilbage med hvad som skal slettes, og jeg ville gerne have den med stoppe servic slette de filer / mappe i C:\windows\system32\spool\drivers, (finder lige ud af hvad som skal slettes) start service igen...:)

fedthans

arrr kan du se hvilken proces som driller..:)
fedthans...

Nej, det kan jeg desværre ikke :)

Det er fordi windows låser filerne. Hvis du vil slette, skal du starte op i fejlsikret tilstand. se lidt mere her. http://support.microsoft.com/kb/222193

tak for hjælpen.... finder en anden løsning.
fedthans