KURO-RS

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=shift_jis" /> <title></title> <script language="JavaScript"> var flg = 0; var p = -1; function SendCmd(par, port){ if(flg==0){ flg=1; var KuroRSctrl; //オブジェクトを作成 KuroRSctrl = new ActiveXObject("KUROrsLib.ClassLib"); //COM Portの設定 //KuroRSctrl.ComPort = 1; //ポートを開く KuroRSctrl.Open; //送信ポート設定 KuroRSctrl.Port = port; //送信データセット KuroRSctrl.Para = par; //送信 p = KuroRSctrl.Send; //ポートを閉じる KuroRSctrl.Close; // オブジェクト変数を解放します。 KuroRSctrl = ""; flg=0; } return p; } //DST-SP1 function CC(no){ var p = 0; var b; var CH = new Array(10); CH[0]="FFFFFF81FF077EE007FE1FF8811FFCC1FF077FF0FFC11FFC7FF0FFC00FFCC00FFCC00FFC3FF0030000000000000000000000000000000000F8FFFF07FE1FF8811FFC7FF0077FF007FF1FFCC1FF073FF0FFC0FF033FF0033FF0033FF0FFC00F0000000000000000000000000000000000E0FFFF1FF87FE0077EE0FFC11FFCC11FFC3FF003FF0FFCC0FF03FF0FFCC00FFCC00FFCC0FF033F000000000000000000000000000000000080FFFF7FE0FF831FF881FF077EE0077EE0FF811FF87FE007FF1FFC7FF0077FF0077FF003FF0FFC000000000000000000000000000000000000FCFFFF07FF1FFCC01FFC3FF0033FF0"; CH[1]="FFFFFF811FF8811FF8811FF8C11FFC7FF007FF1FFCC1FF07FF1FFCC00FFCC00FFCC0FF033F00000000000000000000000000000000000000F8FFFF077EE0077EE0077EE0077EE0FF811FF87FF007FF1FFC7FF0077FF0073FF003FF0FFC00000000000000000000000000000000000000E0FFFF3FF8833FF8831FF8811FF881FF077EE0FF811FF87FF0FFC11FFCC11FFCC11FFC7FF00300000000000000000000000000000000000000FFFFFFC11FFCC11FFCC00FFCC00FFC3FF003FF0FFEE0FF83FF0FFEE00FFEE00FFEE0FF811F00000000000000000000000000000000000000F8FFFF0FFEE00FFEE00FFEE00F7EE0"; CH[2]="FFFFFF81FF0F7EE0077EF0077FF007FF1FFCC1FF077FF0FFC1FF077FF0073FF0033FF0FFC00F000000000000000000000000000000000000F8FFFF0FFE3FF8833FF8833FF8833FF8FFE00FFE3FF881FF07FE1FF8811FF8811FFCC1FF077F000000000000000000000000000000000000C0FFFF7FF0FFC11FFCC11FFCC01FFCC1FF033FF0FFE00FFE3FF8FFE00FFEE00FFEE00FFE3FF803000000000000000000000000000000000000FEFFFF83FF0FFEE00FFEE00FFEE00FFE3FF883FF07FEE0FF81FF077EE0077EE0077FF0FFC11F000000000000000000000000000000000000F0FFFF1FFC7FF0077FF0077FF0077F"; CH[3]="FFFFFF811FF87FE0077EE0077EE007FE1FFCC1FF077FF0FFC1FF077FF0073FF0033FF0FFC00F000000000000000000000000000000000000F0FFFF0FFCC0FF033FF8833FF8833FF8FFE00FFE1FF881FF07FE1FF8811FF8811FF881FF077E000000000000000000000000000000000000C0FFFF7FF007FF1FFCC11FFCC00FFCC0FF033FF0FFC00FFC3FF0FFC00FFEE00FFEE00FFE3FF803000000000000000000000000000000000000FCFFFF033FF0FFC00FFEE00FFEE00FFE3FF883FF0F7EE0FF81FF077EE0077EE0077EE0FF811F000000000000000000000000000000000000F0FFFF1FF881FF077FF0077FF0077F"; CH[4]="FFFFFF81FF07FE1FF8811FFCC11FFCC1FF077FF0FFC11FFC7FF0FFC00FFCC00FFCC00FFC3FF0030000000000000000000000000000000000F8FFFF07FE1FF87FE0077FF0077FF007FF1FFCC1FF073FF0FFC0FF033FF0033FF0033FF0FFE00F0000000000000000000000000000000000F0FFFF1FF87FF0FFC11FFCC11FFCC11FFC7FF007FF1FFCC0FF03FF0FFCC00FFCC00FFEE0FF833F000000000000000000000000000000000080FFFFFFE0FF83FF0F7EE0077EE0077EE0FF811FF87FF007FF1FFC7FF0077FF0077FF003FF0FFC000000000000000000000000000000000000FCFFFF07FF1FFC7FF0033FF0033FF0"; CH[5]="FFFFFF811FF881FF077EE0077EF007FF1FFCC1FF077FF0FFC1FF077FF0033FF0033FF0FFC00F000000000000000000000000000000000000F8FFFF0FFCE00FFE3FF8833FF8833FF8FFE00FFE1FF881FF07FE1FF8811FF8811FF8C1FF077F000000000000000000000000000000000000C0FFFF7FF0077FF0FFC10FFCC00FFCC0FF033FF0FFC00FFC3FF8FFE00FFEE00FFEE00FFE3FF801000000000000000000000000000000000000FEFFFF033FF883FF0FFEE00FFEE00FFE3FF883FF077EE0FF81FF077EE0077EE0077EF0FFC11F000000000000000000000000000000000000F0FFFF1FFCC11FFC7FF0077FF0077F"; CH[6]="FFFFFF81FF077EE0FF811FF8811FFCC1FF077FF0FFC11FFC7FF0FFC00FFCC00FFCC00FFC3FF0030000000000000000000000000000000000F8FFFF07FE1FF881FF077EF0077FF007FF1FFCC1FF073FF0FFC0FF033FF0033FF0033FF0FFC00F0000000000000000000000000000000000E0FFFF1FF87FF007FF1FFCC11FFCC11FFC7FF007FF0FFCC0FF03FF0FFCC00FFCC00FFCE0FF833F000000000000000000000000000000000080FFFF7FE0FF831FF87FE0077EE0077EE0FF811FF87FE007FF1FFC7FF0077FF0077FF007FF0FFC000000000000000000000000000000000000FCFFFF03FF1FFCC1FF033FF0033FF0"; CH[7]="FFFFFF813FF87FE0FFC11FFCC11FFCC1FF077FF0FFC11FFC7FF0FFC11FFCC00FFCC00FFC3FF0030000000000000000000000000000000000F8FFFF077EE0FF81FF077FF0077FF007FF1FFCC1FF077FF0FFC0FF033FF0033FF0033FF0FFE00F0000000000000000000000000000000000F0FFFF1FF8C1FF07FF1FFCC11FFCC11FFC7FF007FF0FFCC0FF03FF0FFCC00FFCC00FFCE0FF833F000000000000000000000000000000000080FFFFFFE00FFE3FF87FE0077EE0077EE0FF811FF87FF007FF1FFC7FF0077FF0077FF007FF0FFC000000000000000000000000000000000000FCFFFF077FF0FFC1FF033FF0033FF0"; CH[8]="FFFFFF81FF07FE1FF87FE0077EF0077FF0FFC11FFC7FF007FF1FFC3FF0033FF0033FF003FF0FFC0000000000000000000000000000000000F8FFFF07FE1FF87FE0FFC11FFCC11FFCC1FF077FF0FFC11FFC3FF0FFC00FFCC00FFCC00FFC3FF00300000000000000000000000000000000E0FFFF1FF87FF0FFC1FF077FF0077FF007FF1FFCC1FF033FF0FFC0FF033FF0033FF0033FF8FFE00F0000000000000000000000000000000080FFFF7FE0FF83FF07FE1FF8811FF8811FF87FE007FE1FF8C1FF07FF1FFCC11FFCC11FFCC0FF033F0000000000000000000000000000000000FEFFFF83FF0FFE3FF8FFE00FFEE007"; CH[9]="FFFFFF811FF8811FF87FE0077EE007FE1FFCC1FF077FF0FFC1FF033FF0033FF0033FF0FFC00F000000000000000000000000000000000000F0FFFF0FFCC00FFCC0FF031FF0011FF07FC007FC1FF801FF07FE1FF0811FF8811FF881FF073E000000000000000000000000000000000000C0FFFF3FF0073FF003FF0FFCC00FFCC0FF033FF0FFC00FFC3FF0FFC00FFCE00FFEC007FE1FF801000000000000000000000000000000000000FCFFFF033FF0833FF8FFE00FFEE00FFE3FF883FF07FEE0FF81FF077EE0077EE0077EE0FFC11F000000000000000000000000000000000000F0FFFF1FF8C11FFCC1FF077FF0077F"; for(var i=0; i<no.length; i++){ b = SendCmd(CH[no.charAt(i)], 1); if(b!=0){ return -1 } }; return p; //alert(p); } </script> </head> <body> <input type="button" value="DST-SP1 PowerON/Off" onClick=" if(SendCmd('FFFFFF81FF077EE0FFC11FFC7FF0077FF0FFC11FFC7FF007FF1FFC3FF0073FF0033FF003FF0FFC0000000000000000000000000000000000F8FFFF07FE1FF881FF077FF0FFC11FFCC1FF077FF0FFC11FFC3FF0FFC00FFCC00FFCC00FFC3FF80300000000000000000000000000000000F0FFFF1FF87FF007FF1FFCC1FF077FF007FF1FFCC0FF033FF0FFC0FF033FF0033FF0833FF8FFE00F0000000000000000000000000000000080FFFFFFE0FF833FF87FE007FE1FF8811FF87FE007FE1FFCC1FF07FF1FFCC11FFCC11FFCC0FF033F0000000000000000000000000000000000FEFFFF83FF0FFEE0FF833FF8FFE007', '1')==0){alert('OK');}else{alert('NG');} "> <input type="button" value="DST-SP1 CH200" onClick="if(CC('200')==0){alert('OK');}else{alert('NG');}"> <br> </body> </html> スクリプトを組んでおけばタスクスケジューラを使ってログインしていなくても動かすことも出来ます。 sample.vbs 'DST-SP1 PowerON/Off Dim objKUROLib Set objKUROLib = Wscript.CreateObject("KUROrsLib.ClassLib") With objKUROLib .Open .Port = 1 .Para = "FFFFFF81FF077EE0FFC11FFC7FF0077FF0FFC11FFC7FF007FF1FFC3FF0073FF0033FF003FF0FFC0000000000000000000000000000000000F8FFFF07FE1FF881FF077FF0FFC11FFCC1FF077FF0FFC11FFC3FF0FFC00FFCC00FFCC00FFC3FF80300000000000000000000000000000000F0FFFF1FF87FF007FF1FFCC1FF077FF007FF1FFCC0FF033FF0FFC0FF033FF0033FF0833FF8FFE00F0000000000000000000000000000000080FFFFFFE0FF833FF87FE007FE1FF8811FF87FE007FE1FFCC1FF07FF1FFCC11FFCC11FFCC0FF033F0000000000000000000000000000000000FEFFFF83FF0FFEE0FF833FF8FFE007" .Send .Close End With Set objKUROLib = Nothing CH切り替え sample.vbs で保存した場合は sample.vbs 200 でCH200 function SendCmd(par, port) Dim p:p=-1 if flg=0 Then flg=1 Dim KuroRSctrl Set KuroRSctrl = CreateObject("KUROrsLib.ClassLib") With KuroRSctrl .Open .Port = port .Para = par p = .Send .Close End With Set KuroRSctrl = Nothing flg=0 End If SendCmd=p End Function 'DST-SP1 Function CC(no) Dim i Dim p: p=0 Dim CH(9) CH(0)="FFFFFF81FF077EE007FE1FF8811FFCC1FF077FF0FFC11FFC7FF0FFC00FFCC00FFCC00FFC3FF0030000000000000000000000000000000000F8FFFF07FE1FF8811FFC7FF0077FF007FF1FFCC1FF073FF0FFC0FF033FF0033FF0033FF0FFC00F0000000000000000000000000000000000E0FFFF1FF87FE0077EE0FFC11FFCC11FFC3FF003FF0FFCC0FF03FF0FFCC00FFCC00FFCC0FF033F000000000000000000000000000000000080FFFF7FE0FF831FF881FF077EE0077EE0FF811FF87FE007FF1FFC7FF0077FF0077FF003FF0FFC000000000000000000000000000000000000FCFFFF07FF1FFCC01FFC3FF0033FF0" CH(1)="FFFFFF811FF8811FF8811FF8C11FFC7FF007FF1FFCC1FF07FF1FFCC00FFCC00FFCC0FF033F00000000000000000000000000000000000000F8FFFF077EE0077EE0077EE0077EE0FF811FF87FF007FF1FFC7FF0077FF0073FF003FF0FFC00000000000000000000000000000000000000E0FFFF3FF8833FF8831FF8811FF881FF077EE0FF811FF87FF0FFC11FFCC11FFCC11FFC7FF00300000000000000000000000000000000000000FFFFFFC11FFCC11FFCC00FFCC00FFC3FF003FF0FFEE0FF83FF0FFEE00FFEE00FFEE0FF811F00000000000000000000000000000000000000F8FFFF0FFEE00FFEE00FFEE00F7EE0" CH(2)="FFFFFF81FF0F7EE0077EF0077FF007FF1FFCC1FF077FF0FFC1FF077FF0073FF0033FF0FFC00F000000000000000000000000000000000000F8FFFF0FFE3FF8833FF8833FF8833FF8FFE00FFE3FF881FF07FE1FF8811FF8811FFCC1FF077F000000000000000000000000000000000000C0FFFF7FF0FFC11FFCC11FFCC01FFCC1FF033FF0FFE00FFE3FF8FFE00FFEE00FFEE00FFE3FF803000000000000000000000000000000000000FEFFFF83FF0FFEE00FFEE00FFEE00FFE3FF883FF07FEE0FF81FF077EE0077EE0077FF0FFC11F000000000000000000000000000000000000F0FFFF1FFC7FF0077FF0077FF0077F" CH(3)="FFFFFF811FF87FE0077EE0077EE007FE1FFCC1FF077FF0FFC1FF077FF0073FF0033FF0FFC00F000000000000000000000000000000000000F0FFFF0FFCC0FF033FF8833FF8833FF8FFE00FFE1FF881FF07FE1FF8811FF8811FF881FF077E000000000000000000000000000000000000C0FFFF7FF007FF1FFCC11FFCC00FFCC0FF033FF0FFC00FFC3FF0FFC00FFEE00FFEE00FFE3FF803000000000000000000000000000000000000FCFFFF033FF0FFC00FFEE00FFEE00FFE3FF883FF0F7EE0FF81FF077EE0077EE0077EE0FF811F000000000000000000000000000000000000F0FFFF1FF881FF077FF0077FF0077F" CH(4)="FFFFFF81FF07FE1FF8811FFCC11FFCC1FF077FF0FFC11FFC7FF0FFC00FFCC00FFCC00FFC3FF0030000000000000000000000000000000000F8FFFF07FE1FF87FE0077FF0077FF007FF1FFCC1FF073FF0FFC0FF033FF0033FF0033FF0FFE00F0000000000000000000000000000000000F0FFFF1FF87FF0FFC11FFCC11FFCC11FFC7FF007FF1FFCC0FF03FF0FFCC00FFCC00FFEE0FF833F000000000000000000000000000000000080FFFFFFE0FF83FF0F7EE0077EE0077EE0FF811FF87FF007FF1FFC7FF0077FF0077FF003FF0FFC000000000000000000000000000000000000FCFFFF07FF1FFC7FF0033FF0033FF0" CH(5)="FFFFFF811FF881FF077EE0077EF007FF1FFCC1FF077FF0FFC1FF077FF0033FF0033FF0FFC00F000000000000000000000000000000000000F8FFFF0FFCE00FFE3FF8833FF8833FF8FFE00FFE1FF881FF07FE1FF8811FF8811FF8C1FF077F000000000000000000000000000000000000C0FFFF7FF0077FF0FFC10FFCC00FFCC0FF033FF0FFC00FFC3FF8FFE00FFEE00FFEE00FFE3FF801000000000000000000000000000000000000FEFFFF033FF883FF0FFEE00FFEE00FFE3FF883FF077EE0FF81FF077EE0077EE0077EF0FFC11F000000000000000000000000000000000000F0FFFF1FFCC11FFC7FF0077FF0077F" CH(6)="FFFFFF81FF077EE0FF811FF8811FFCC1FF077FF0FFC11FFC7FF0FFC00FFCC00FFCC00FFC3FF0030000000000000000000000000000000000F8FFFF07FE1FF881FF077EF0077FF007FF1FFCC1FF073FF0FFC0FF033FF0033FF0033FF0FFC00F0000000000000000000000000000000000E0FFFF1FF87FF007FF1FFCC11FFCC11FFC7FF007FF0FFCC0FF03FF0FFCC00FFCC00FFCE0FF833F000000000000000000000000000000000080FFFF7FE0FF831FF87FE0077EE0077EE0FF811FF87FE007FF1FFC7FF0077FF0077FF007FF0FFC000000000000000000000000000000000000FCFFFF03FF1FFCC1FF033FF0033FF0" CH(7)="FFFFFF813FF87FE0FFC11FFCC11FFCC1FF077FF0FFC11FFC7FF0FFC11FFCC00FFCC00FFC3FF0030000000000000000000000000000000000F8FFFF077EE0FF81FF077FF0077FF007FF1FFCC1FF077FF0FFC0FF033FF0033FF0033FF0FFE00F0000000000000000000000000000000000F0FFFF1FF8C1FF07FF1FFCC11FFCC11FFC7FF007FF0FFCC0FF03FF0FFCC00FFCC00FFCE0FF833F000000000000000000000000000000000080FFFFFFE00FFE3FF87FE0077EE0077EE0FF811FF87FF007FF1FFC7FF0077FF0077FF007FF0FFC000000000000000000000000000000000000FCFFFF077FF0FFC1FF033FF0033FF0" CH(8)="FFFFFF81FF07FE1FF87FE0077EF0077FF0FFC11FFC7FF007FF1FFC3FF0033FF0033FF003FF0FFC0000000000000000000000000000000000F8FFFF07FE1FF87FE0FFC11FFCC11FFCC1FF077FF0FFC11FFC3FF0FFC00FFCC00FFCC00FFC3FF00300000000000000000000000000000000E0FFFF1FF87FF0FFC1FF077FF0077FF007FF1FFCC1FF033FF0FFC0FF033FF0033FF0033FF8FFE00F0000000000000000000000000000000080FFFF7FE0FF83FF07FE1FF8811FF8811FF87FE007FE1FF8C1FF07FF1FFCC11FFCC11FFCC0FF033F0000000000000000000000000000000000FEFFFF83FF0FFE3FF8FFE00FFEE007" CH(9)="FFFFFF811FF8811FF87FE0077EE007FE1FFCC1FF077FF0FFC1FF033FF0033FF0033FF0FFC00F000000000000000000000000000000000000F0FFFF0FFCC00FFCC0FF031FF0011FF07FC007FC1FF801FF07FE1FF0811FF8811FF881FF073E000000000000000000000000000000000000C0FFFF3FF0073FF003FF0FFCC00FFCC0FF033FF0FFC00FFC3FF0FFC00FFCE00FFEC007FE1FF801000000000000000000000000000000000000FCFFFF033FF0833FF8FFE00FFEE00FFE3FF883FF07FEE0FF81FF077EE0077EE0077EE0FFC11F000000000000000000000000000000000000F0FFFF1FF8C11FFCC1FF077FF0077F" for i=1 To Len(no) If 0<>SendCmd( CH( Mid(no, i, 1) ), 2) Then CC=-1 Exit Function End If Next CC=0 End Function Dim flg:flg=0 Dim Args, PAR Set Args = WScript.Arguments If Args.Count = 1 Then PAR = Args(0) If IsNumeric(PAR) Then Call CC(PAR) End If End If おまけ。 COMポート確認 Set objWMIService = GetObject("winmgmts:\\.\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * From Win32_PnPEntity Where Name Like 'BUFFALO RemoteStation PC-OP-RS1 (COM%)'") For Each objItem in colItems 'Wscript.Echo "Description: " & objItem.Description 'Wscript.Echo "Manufacturer: " & objItem.Manufacturer Wscript.Echo "Name: " & objItem.Name 'Wscript.Echo "PNP Device ID: " & objItem.PNPDeviceID Set REG = New RegExp REG.IgnoreCase = True REG.Pattern = "COM(\d+)" Set MTCHS = REG.Execute(objItem.Name) For Each Match in MTCHS Wscript.Echo Match.Value Next Next WScript.Echo "END."