- ベストアンサー
スタートアップにKickmap.VBSが作成されていた
お世話になります。 会社のPC(WindowsXP)のスタートアップにいつの間にか「Kickmap.VBS」というファイルが作成されていました。メモ帳で開くと -----ココから----- '_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/ 'Kickmap.VBS ' ' 2001-08-20 PhaseIN A.Akasaka '起動BATファイル名をユーザー.BATに変更した 2001-08-23 PhaseIN A.Akasaka '_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/ Dim WshShell,LoginReg,ClientEnv Set WshShell = WScript.CreateObject("WScript.Shell") On Error Resume Next LoginReg = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT" LoginReg = LoginReg & "\CurrentVersion\Winlogon\DefaultUserName" ClientEnv = WshShell.RegRead(LoginReg) ClientEnv = Replace(ClientEnv," ","") 'ユーザー名にスペースがあれば外す ClientEnv = ClientEnv & ".bat" 'MAP開始 WshShell.Run "C:\COE\FSMAP\" & ClientEnv , 0, False On Error Resume Next WScript.Quit -----ココまで----- という内容でした。このファイルをメールに添付して自宅PCに転送したところNorton Anti Virus(NAV)が「悪質なスクリプトを検出しました」と警告を出しました。「Kickmap.VBS」をデスクトップにいったん保存してからNAVでスキャンすると「感染は見つかりませんでした」となりました。会社のPCはウィルスソフトが入っており、最新のウィルス定義ファイルになっています。最近PCの調子が余りよくない気もするのですが、このファイルの正体・対処法について教えてください。 よろしくお願いします。
- みんなの回答 (3)
- 専門家の回答
質問者が選んだベストアンサー
その他の回答 (2)
- ittochan
- ベストアンサー率64% (2667/4137)
- MovingWalk
- ベストアンサー率43% (2233/5098)
関連するQ&A
- JP1からvbs(PSExec)が起動できない
突然失礼します。 以下のサーバーAにあるvbsを、JP1から起動しようとしていますが、うまく起動しないので、もし原因が分かる方がいたら、ご教授願いたいです。 起動しようとしているサーバーAの「test.vbs」は、簡単に言うと、PsExecを利用して、サーバーBの「hoge.bat」を実行する内容です。 ***test.vbs*** Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.Run "PsExec.exe サーバーBIPアドレス -u 実行ユーザ -p 実行ユーザーパスワード cmd" WshShell.AppActivate "cmd " WScript.Sleep 3000 WshShell.SendKeys "cd C:\" WshShell.SendKeys "{enter}" WshShell.SendKeys "hoge.bat" WshShell.SendKeys "{enter}" WScript.Sleep 10000 WshShell.AppActivate "cmd" WshShell.SendKeys "exit" WshShell.SendKeys "{enter}" ************************ 上記バッチを手動で実行するとうまくいくのですが、 JP1で起動しようとすると、うまくいきません。 そもそもPsExecが実行出来ていないかも。。。。 宜しくお願いします。
- 締切済み
- Visual Basic
- VBSのsendkeysで日本語を出力したいです
WshShell.Run "explorer" WScript.Sleep 100 WshShell.AppActivate "explorer" WScript.Sleep 100 WshShell.SendKeys "C:\Users\Default\" WScript.Sleep 100 WshShell.SendKeys "デスクトップ" WScript.Sleep 100 WshShell.SendKeys "{ENTER}" WScript.Sleep 100 *.VBS ファイルに書き込んで、直接実行したいのですが、エラーになります。 どんなコマンドを足すといいのですか?
- ベストアンサー
- その他(プログラミング・開発)
- VBSファイルをスタートアップフォルダに入れておいて、
エクセル2007の特定ファイルをそのVBSファイルにより自動起動させる方法を教えてください。ちなみに、次のようなVBSファイルを作成しましたがエラーとなってしまいます。 Option Explicit 'オブジェクト変数の宣言とWshShellオブジェクトの作成。 Dim objWshShell Set objWshShell = WScript.CreateObject("WScript.Shell") WScript.Sleep 1000 '1秒待機 objWshShell.Run "C:¥Program Files¥Microsoft Office¥Office12¥EXCEL.exe" です。
- ベストアンサー
- Windows Vista
- vbsスクリプト作成について
いつもありがとうございます。 今回、知識がないのですが下記のような処理のVBSを作成したく調べております。 (1)test.vbsファイルを実行時にvbsファイルと同じディレクトリに「folder」フォルダを作成 (2)作成した「folder」フォルダにサービス「idsvc」の状態をテキスト形式で「service.txt」として出力 (3)上記と同様の処理(service.txtはリネームする)を現在ログインしているユーザのスタートアップに「start.vbs」として配置 (3)上記処理後、再起動を実施 (4)再起動後、start.vbsを実行後に自動削除 大きく分けて4つの処理を個別に作成して最終1つのファイルとして作成しようと思っております。 なんとかわからいなりに作成してはいるのですが どうしても下記方法がわかりません。 (2)の処理「folder」を作成後、service.txtのパス(最下位行)を変数に入れて出力する方法 (きたないソースで申し訳ないです) ↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓ ' フォルダ作成 '---------------------------------------------- Dim str_Path Dim objFdr Set objFdr = CreateObject("Scripting.FileSystemObject") str_Path = objFdr.CreateFolder(".\folder") Dim WshShell Set WshShell = CreateObject("WScript.Shell") Set objLog = WshShell.Exec("cmd /C ""sc query idsvc | findstr -i state > .\folder\service.txt""") ※サービス出力はvbsでの方法がわからなかったのでcmdを呼び出しています。 (4)再起動後の処理にて、再起動前に作成したフォルダに「service.txt」を出力する方法 ↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓ objVBSFile.WriteLine("On Error Resume Next") objVBSFile.WriteLine("Dim WshShell") objVBSFile.WriteLine("Set WshShell = CreateObject(""WScript.Shell"")") objVBSFile.WriteLine("Set objLog = WshShell.Exec(""cmd /C """sc query idsvc | findstr -i state >C:\services.txt"""")") objVBSFile.WriteLine("Set objFSO = CreateObject(""Scripting.FileSystemObject"")") objVBSFile.WriteLine("objFSO.DeleteFile WScript.ScriptFullName") 他にもわからないことはありますが、調べてなんとかなるとおもっておりますが 上記についてはVBSの理解不足なため、つかめません。 申し訳ありませんが、アドバイス頂けないでしょうか。 以上、宜しくお願い致します。
- ベストアンサー
- その他(ITシステム運用・管理)
- VBSでバッチを実行できません。
C:\temp\test.batをVBSで実行しようとするのですが、 何度やっても実行されません。 想像ですが、c:\WINNT\System32\cmd.exeが動いている ようなのですが、肝心のC:\temp\test.batが動きません。 以下のように記述しました。 Dim WshShell Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.Run ("cmd /c c:\temp\test,0,True") WIN2K、IE6.0の環境です。 どこか記述に誤りでもあるのでしょうか? どうぞよろしくお願いいたします。
- ベストアンサー
- その他(プログラミング・開発)
- VBScrptについて
現在、VBScriptの課題制作をしており、その内容について質問させていただきたく思います。 質問内容としては、レジストリエディターにプリンター情報を追加して、それをregreadで読み取るためにはどうすれば良いかということです。プログラムとしては、以下のように書きましたが、ルートが無効になっているとエラーが出ました。 Set WshShell = WScript.CreateObject("WScript.Shell") WScript.Echo WshShell.RegRead("HKLM\SOFTWARE\RICOH\\LoPrintLog") WScript.Echo WshShell.RegRead("HKLM\SOFTWARE\RICOH\PrintLoggFileDirectory") 課題内容としては、 1.端末設定確認.VBSというのを実行するとOSごとに同フォルダ内のTXTファイル 【(端末確認_XXXXXXXX.txt)XXXXXXはPCのhostnameが入ります】が表示される 2.いろいろな端末情報(IPアドレス・プリンタ情報・ウイルスソフトのVer等) をレジストリから引っ張ってきてTXTファイルにまとめて表示させて端末の 設定値を変更した場合に確認する。 の2点です。 長々とすみません。 どなたか教えていただければ幸いです。
- 締切済み
- Visual Basic
- コピーするVBS
ファイルサーバーからファイルをデスクトップにコピーするVBSを下記のように作成しています。 Set objFSO= CreateObject("Scripting.FileSystemObject") objFsoCopyFile("\\server\public\test.mdb","C:\Documents and Settings\user\デスクトップ",true) この中で、「C:\Documents and Settings\user\デスクトップ」はパソコンごとに異なりますので、 それぞれのPCのデスクトップをしてする方法を探しています。 ネットで、デスクトップという類のフォルダの取得として Dim WshShell As Object Set WshShell = CreateObject("WScript.Shell") WshShell.SpecialFolders("Desktop") を絡めれば出来るようなことがありましたが、使い方をどなたか教えてください。
- ベストアンサー
- Windows 7
- VBSについて
VBSの中でDOSのコマンドを実行したいのですが、VBS内で使用した変数を Runで使うことはできないのでしょうか? ################################################ Set WSHShell = CreateObject("WScript.Shell") x = "C:\Documents and Settings\user" WSHShell.Run "cmd.exe /K dir x" ################################################ たとえば上記のようなプログラムを作ったときに最終行のcmd.exeの 実行で変数xを使用したいのですが、可能でしょうか? このまま実行するとコマンドプロンプトの窓が開いて「ファイルが見つかりません」と表示されてしまいます。 何か方法があればご教授ください。よろしくお願いします。
- 締切済み
- その他(プログラミング・開発)
- VBS
VBSであるファイルを1行ずつ読み込み、その読み込んだ値を ある別のファイルにリダイレクトしたいのですが、 どのように書けばよいか教えてください。 下記のように、echoでは出すことができるのですが、 ファイルにリダイレクトというのができません。 よろしくお願いします。 ==== sample shell ========================= Option Explicit On Error Resume Next Dim objFSO ' FileSystemObject Dim objFile ' ファイル読み込み用 Set objFSO = WScript.CreateObject("Scripting.FileSystemObject") If Err.Number = 0 Then Set objFile = objFSO.OpenTextFile("d:\dr1.txt") If Err.Number = 0 Then Do While objFile.AtEndOfStream <> True WScript.Echo objFile.ReadLine Loop objFile.Close Else WScript.Echo "ファイルオープンエラー: " & Err.Description End If Else WScript.Echo "エラー: " & Err.Description End If Set objFile = Nothing Set objFSO = Nothing ============================================================
- 締切済み
- その他(プログラミング・開発)
- VBSでレジストリキー名に円マークをつける
「SQL\INSTANCE」という名前のキーをレジストリに作成したいのですが、円マークを入れると階層化されてしまうので、困っています。 カンタンな質問かもしれませんがどなたか教えてください。 以下、VBSで作成 Option Explicit On Error Resume Next Dim objWshShell ' WshShell オブジェクト Set objWshShell = WScript.CreateObject("WScript.Shell") If Err.Number = 0 Then objWshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\SQL\INSTANCE", "SQL", "REG_SZ" WScript.Echo "ODBC設定変更:完了" Else WScript.Echo "エラー: " & Err.Description End If Set objWshShell = Nothing
- ベストアンサー
- その他(プログラミング・開発)
- ドラムエラーが出て、緑のツマミを左右にしドラムワイヤーを掃除するのですが、1枚出力するたび毎にエラーがでて、ツマミを左右に掃除するよう指示されるので仕事にならない
- パソコンのOSはWindows10で、接続は有線LANです。関連するソフト・アプリは全般です。電話回線の種類はひかり回線です。
- ブラザー製品のプリンター(HL-L5100DN)でドラムエラーが発生しており、出力するたびにエラーが出てしまい、ツマミを左右に掃除するよう指示されるため、仕事が滞っています。パソコンのOSはWindows10で、有線LAN接続しており、関連するソフト・アプリは全般です。電話回線の種類はひかり回線です。
お礼
ありがとうございました。どうやらネットワーク関連のスクリプトだったようです。