「VBScript」カテゴリーアーカイブ

VBScript, クリエイティブ

VBScript 連番のページにアクセスする

コメントする

こんにちは、ジンです。今日はVBScript 連番のページにアクセスするVBscriptを載せておきます。

Option Explicit
 
Dim objIE
Dim strBody
Dim n
Dim url
 
 
Set objIE = CreateObject("InternetExplorer.Application")
 
objIE.Width = 800
objIE.Height = 600
objIE.Left = 0
objIE.Top = 0
 
objIE.Visible = True
 
For n = 1 to 100
 
url = "ここにURLを記入" & n &"連番の後を記入"
 
objIE.Navigate url
 
Do Until objIE.Busy = False
   WScript.sleep(500)
Loop'
 
Next
 
Msgbox "終了しました。"
 
Set objIE = Nothing
VBScript, クリエイティブ

VBScript ネットワークに接続できなければ再起動する

コメントする

こんにちは、ジンです。

今回はVBScriptを使って、PCが万が一ネットワークに接続できなくなった場合、PCを再起動するVBScriptのサンプルを書いておきます。最近会社のPCがなんかの拍子で急にネットワークにつながらなくなることがあり、再起動しないと復旧しないのでこんなものを作りました。会社外からリモートで操作できなくなっては仕事ができないので（笑）これをタスクマネージャーに仕込んで、30分に一回でも起動するようにしておけば何とかなりそうです。

サンプルではpingを送信して返って来なかったらPCを再起動するようにしています。「www.ocn.ne.jp」の部分は好きなアドレス(pingを返してくれるアドレス)に変更して使います。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36

Dim objWMIService
Dim PingSet
Dim Ping
Dim objShut
Dim objOS
Dim objSystem
 
 
Set objWMIService = GetObject("winmgmts:\\.")
Set PingSet = objWMIService.ExecQuery _
("Select * From Win32_PingStatus Where Address = 'www.ocn.ne.jp'")
 
 
For Each Ping In PingSet
 
  Select Case Ping.StatusCode
 
  Case 0
    checkPing = True
  Case 11010
    checkPing = False
  End Select
 
Next
 
 
If checkPing = False Then
 
  Set objShut = GetObject("winmgmts:{impersonationLevel = impersonate, (Shutdown)}")
  Set objOS = objShut.InstancesOf("Win32_OperatingSystem")
 
  For Each objSystem In objOS
      objSystem.Win32Shutdown 2
  Next
 
End If
VBScript, クリエイティブ

VBScript メール送信

コメントする

こんにちは、ジンです。

VBScriptでメールを送信するサンプルを書いておきます。

Dim oMsg
 
Set oMsg = CreateObject("CDO.Message")
oMsg.From = "ここに送信元のメールアドレスを記入します"
oMsg.To = "ここに送信先のメールアドレスを記入します"
oMsg.Subject = "ここにメールのタイトルを記入します"
oMsg.TextBody = "ここに本文を書きます"
oMsg.TextBodyPart.Charset = "ISO-2022-JP"
oMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
oMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "SMTPサーバーのアドレスを記入します"
oMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
 
'場合によっては以下の設定が必要
'oMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = true
'oMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "ここにアカウント名"
'oMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "ここにメールのパスワード"
 
oMsg.Configuration.Fields.Update
oMsg.Send
 
Set oMsg = Nothing
VBScript, クリエイティブ

VBScript 音量の変更

コメントする

こんにちは、ジンです。

VBScriptで音量を変更するサンプルを書いておきます。

Dim mwd
 
Set mwd = CreateObject("MSWebDVD.MSWebDVD.1")
'音量最大
mwd.Volume = -1000
'音量50%
'mwd.Volume = -5000
'音量0%(ミュート)
'mwd.Volume = -10000
 
Set mwd = Nothing
VBScript, クリエイティブ

VBScript テキストへの書き込み

コメントする

こんにちは、ジンです。

VBScriptでテキストに書き込みを行うサンプルを書いておきます。

Dim fso
Dim objStream
 
Set fso = CreateObject("Scripting.FileSystemObject")
Set objStream = fso.CreateTextFile("C:\Users\kimura\demo.txt")
txt = "ここに文章を書きます。"
objStream.WriteLine(txt)
objStream.Close()
 
Set objStream = Nothing
Set fso = Nothing
VBScript, クリエイティブ

VBScript アプリケーションの起動

コメントする

こんにちは、ジンです。

VBScriptでアプリケーションの起動を行うサンプルを書いておきます。

Dim objWshShell
Dim objExec
 
Set objWshShell = WScript.CreateObject("WScript.Shell")
Set objExec = objWshShell.Exec("C:\Program Files\Internet Explorer\iexplore.exe")
 
Set objExec = Nothing
Set objWshShell = Nothing