VB2008 サービス「PrintSpooler」の停止、開始方法

質問

VB2008 サービス「PrintSpooler」の停止、開始方法

VB初心者です
どなたか教えていただけると助かります

サービス「PrintSpooler」の停止後、特定のファイルを削除してから
再開するプログラムを作りたいのですがまったくわかりません
どなたか教えてください
よろしくお願いします
※参照すべきコンポーネントも必要であれば教えていただけると助かります

回答No.4

tohru999 · ベストアンサー

>>エラー箇所
>>scTemp.Stop()
>>
>>エラー時メッセージ
>>InvalidOperationExceptionはハンドルされませんでした。
>>'.' コンピュータで Spooler サービスを開けません。

以下のどちらかではないですか？
1.管理者権限で実行していない
2.Spoolerサービスが無効にされている

1の場合は、管理者権限で実行してください
2の場合は、サービスを自動にする

お礼

ご回答ありがとうございます。
上記の内容で解決することができました。
ありがとうございました。

回答No.3

tohru999

>>Class宣言の前においた「Imports System.ServiceProcess」でエラーが出てしまいます
>>何かが足りないのでしょうか
どういったエラーなのかわかりませんが．．．

No.1で書いた
System.ServiceProcess を参照設定
は、やってますか？

具体的なエラー内容を書かないと、さっぱり状況が把握できません。

補足

ご回答ありがとうございます。

返信後、「System.ServiceProcess」の参照忘れに気が付き
参照後、ストップの部分だけを切り抜いて実行したところ下記のようなエラーがでました。

エラー箇所
scTemp.Stop()

エラー時メッセージ
InvalidOperationExceptionはハンドルされませんでした。
'.' コンピュータで Spooler サービスを開けません。

よろしくお願いします。

回答No.2

tohru999

No.1の書き忘れ

Class宣言の前に
Imports System.ServiceProcess
のコードを追加してください

補足

ご回答ありがとうございます

教えていただいたとおり、まずはボタンを押したらストップの部分のみ
動作するようにプログラムを組んだのですが
Class宣言の前においた「Imports System.ServiceProcess」でエラーが出てしまいます
何かが足りないのでしょうか

Windowsアプリケーションでこのようなアプリを作成できればと思います
よろしくお願いします

回答No.1

tohru999

System.ServiceProcess を参照設定

で、簡単にコードを書くと

Dim scServices() As ServiceController
Dim scTemp As ServiceController

scServices = ServiceController.GetServices()

For Each scTemp In scServices
If scTemp.DisplayName = "Print Spooler" Then
scTemp.Stop()
End If
Next scTemp

' ****************************************
' 特定のファイルを削除のコードをここに記述
' ****************************************

For Each scTemp In scServices
If scTemp.DisplayName = "Print Spooler" Then
scTemp.Start()
End If
Next scTemp