■No21_VBScript ﾌｧｲﾙを指定する

ﾌｧｲﾙを指定して、何か処理を行いたい場合、GUIでファイルを指定する事ができる。
ただし、動作するのは、WindowsXPのみ

ダウンロード(vbs)

■No18_VBScript メールを送る２

VBScriptとJavaScript　の２つの方法を記載する。

●VBScript (SMTPサーバーが自分の場合）
Set oMsg = CreateObject("CDO.Message")
oMsg.From = "[e-mail]"
oMsg.To = "[e-mail]"
oMsg.Subject = "Test "
oMsg.TextBody = "テストメッセージです" & vbCrLf & Now
oMsg.Send

●JScript　（SMTPが自分でない場合）
var oMsg = WScript.CreateObject("CDO.Message");
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.Update();
oMsg.From     = "[e-mail]";
oMsg.To       = "[e-mail]";
//oMsg.CC       = "[e-mail]";
oMsg.Subject  = "タイトル";
oMsg.TextBody = "メールの本文";
oMsg.Send();


どちらも、スクリプトファイルとして保存し、コマンドプロンプト上から

cscript　スクリプトのﾌﾙﾊﾟｽ

で実行できる。

■No13_VBS-1 プリンタ名変更

プリンタ名変更スクリプト

strComputer = "."
Set objWMIService = GetObject("winmgmts:￥￥" & strComputer & "￥root￥cimv2")

Set colPrinters = objWMIService.ExecQuery _
    ("Select * From Win32_Printer Where DeviceID = 'プリンタ名変更前'")

For Each objPrinter in colPrinters
    objPrinter.RenamePrinter("プリンタ名変更後")
Next



  ダウンロード(vbs)