マシン名を入力して、pingを飛ばし、そのマシンが起動しているかを判断する(在席確認)のプログラムを組もうと思っています。

winsok32って言うのを使うのかな~、と思ったのですが、どうやってパラメーターを使用するのか、調べられません。

どなたかご教授、お願いいたします。

A 回答 (2件)

pingのサンプルプログラムがあります。


APIを使用しています。

参考URL:http://www.geocities.co.jp/SiliconValley-SanJose …
    • good
    • 0
この回答へのお礼

助かりました。
ありがとうございました。

お礼日時:2001/06/29 18:26

API関数で出来ます



参考URL:http://www.mvps.org/vbnet/code/network/ping.htm
    • good
    • 0
この回答へのお礼

助かりました。
ありがとうございました。

お礼日時:2001/06/29 18:27

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Q韓国歌手ピ(RAIN)の新たな跳躍…

韓国人歌手が怪しい活動をしています。
世界から総スカンを食らっている韓国人が何をほざいてやがる。
国内問題を完全に解決し、世界中に対して謝罪と賠償を行ってからやれ。
そう思いませんか?


ソース
↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓
韓国歌手ピ(RAIN)の新たな跳躍…「韓国だけでなく全世界に好かれる音楽を」[11/16]
http://awabi.2ch.net/test/read.cgi/news4plus/1384576363/-100

◆歌手RAINの新たな跳躍…「韓国だけでなく全世界に好かれる音楽を」

最高の韓流雑誌『K&』が歌手RAIN(ピ)の新たな跳躍のスタートを取材した。

7月に軍服務を終えたRAINは、歌手と俳優の活動再開を宣言して
次から次へと新しい活動を構想中だ。

ファンに向けた正式な初舞台は10月12日ソウル慶煕(キョンヒ)大学平和の殿堂で
ファンクラブ「クルム(雲)」の第8期ファンミーティング「2013 Rain With you Fan Meeting」
だった。
この日の行事は7月の転役後、初めてとなる韓国内の公式日程で、
2009年以降4年ぶりに開かれたファンミーティングだった。

特に今回のファンミーティングでは、国内だけでなく日本・中国・米国・ペルー・ブラジル・
トルコなど世界各地から駆けつけたファンたちのためにRAINは3カ国の通訳機
1300台を用意、アジアを超えて依然として熱い人気を得ているRAINの現状を体感させた。

RAINはこの日「多彩な魅力を持った歌やステージを構想中だ。
いい姿をお見せしたいとか、新しいものに挑戦したい気持ちもある。
韓国だけでなく全世界に好かれるような音楽とステージをお見せしたい」と
レコード発売計画を伝えて期待感を高めた。

再度世界に向けて疾走する準備をしている歌手RAINの過去12年間の活動や
インタビューなどフルストーリーを振り返った。

このほかにも『K&』12月号にはG-DRAGON、KARA、ペ・ヨンジュン、
キム・ヒョンジュンの話や、俳優と認められたMBLAQ(エムブラック)の
イ・ジュンのインタビューなどホットニュースが盛りだくさんだ。

写真:RAIN
http://japanese.joins.com/upload/images/2013/11/20131115165615-1.jpg

中央日報 2013年11月15日16時57分
http://japanese.joins.com/article/356/178356.html?servcode=700&sectcode=740&cloc=jp|main|breakingnews

■関連スレ(痛いニュース+板)
韓流歌手「ピ(Rain)」、原爆投下直後の被爆地「広島」で歌って踊る
http://blog.livedoor.jp/dqnplus/archives/881769.html

韓国人歌手が怪しい活動をしています。
世界から総スカンを食らっている韓国人が何をほざいてやがる。
国内問題を完全に解決し、世界中に対して謝罪と賠償を行ってからやれ。
そう思いませんか?


ソース
↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓
韓国歌手ピ(RAIN)の新たな跳躍…「韓国だけでなく全世界に好かれる音楽を」[11/16]
http://awabi.2ch.net/test/read.cgi/news4plus/1384576363/-100

◆歌手RAINの新たな跳躍…「韓国だけでなく全世界に好かれる音楽を」

最高の韓流雑誌『K&』が歌手RAIN(...続きを読む

Aベストアンサー

そうですね、仰るとおりです

QプログラミングにおいてOrの使い方がいまいち理解できません。 どなたかご教授お願い致します。

プログラミングにおいてOrの使い方がいまいち理解できません。
どなたかご教授お願い致します。

Aベストアンサー

仮に、a or b であれば、
a 真、b 真 → 真
a 真、b 偽 → 真
a 偽、b 真 → 真
a 偽、b 偽 → 偽

となります。
一つでも真があれば、結果は真となります。

Qrain(ピ)の東京公演DVDは発売してますか?

皆様こんばんは。
母が誕生日を迎えました。
母の好きな韓国のアーティスト、rain(ピ)が先日行った
RAIN'S coming in tokyoのDVDをプレゼントしてあげたいです。
韓国で行ったワールドツアーのDVDは持っていて繰り返し観ながら、
東京公演のが観たいといっているので、どうしてもあげたいんです。
既に発売されていたり、発売される予定や目処はあるのでしょうか?
検索してもうまく見つけられないので、ぜひご存知の方、
情報を教えてください。よろしくお願いします。

Aベストアンサー

http://www.rain-official-club-japan.jp/
こちらがRAINさんの公式HPになりますので
DVD発売があればいち早くお知らせがあるとおもいます。
TOKYOは5月なのでもう少し先かもしれませんね。
FCに入るのもいいと思いますよ^^

Qエクセルでマクロを組み始めたばかりのため、皆様にご教授頂ければと思います。 今開いているブックのシ

エクセルでマクロを組み始めたばかりのため、皆様にご教授頂ければと思います。

今開いているブックのシート1、シート2の各データをシート3に付けた転送ボタンをおして、「マクロ」というブックの「記録用紙1」「記録用紙2」名の各シートの各同セルに毎日データ転送しようと思います(4行目,5行目…)。
その際、転送先はシート保護をしておきたいのです。

Option Explicit
Private Sub CommandButton1_Click()
Call Macro1
End Sub

Sub Macro1()

Workbook.Open Filename:=”K:¥$共有¥マクロ¥記録用紙.xlsmx”
ThisWorkbook.Activate
With Workbooks(”記録用紙.xlsmx”)

GYOU = .Sheets(”記録用紙1”).Range(”A” & Rows.Count).End(xlup).Row + 1
.Sheets(”記録用紙1”).Range(”A” & GYOU & ”:AA” & GYOU + 1880).Value = Sheets(”記録用紙1”).Range(”A2:AA2000”).Value

GYOU = .Sheets(”記録用紙2”).Range(”A” & Rows.Count).End(xlup).Row + 1
.Sheets(”記録用紙2”).Range(”A” & GYOU & ”:AA” & GYOU + 1880).Value = Sheets(”記録用紙2”).Range(”A2:W2000”).Value

End With
Range(”A2:AA6000”).Value = ””

End Sub


この様なマクロを組んでみました。転送ボタンを押しても、「保護の為、読み取り専用」というエラーメッセージが出て途中で止まってしまいます。

どの様に修正すれば良いのでしょうか?お手数をおかけして申し訳ございませんが、よろしくお願いします。

エクセルでマクロを組み始めたばかりのため、皆様にご教授頂ければと思います。

今開いているブックのシート1、シート2の各データをシート3に付けた転送ボタンをおして、「マクロ」というブックの「記録用紙1」「記録用紙2」名の各シートの各同セルに毎日データ転送しようと思います(4行目,5行目…)。
その際、転送先はシート保護をしておきたいのです。

Option Explicit
Private Sub CommandButton1_Click()
Call Macro1
End Sub

Sub Macro1()

Workbook.Open Filename:=”K:¥$共有¥マクロ¥記録用紙.xlsmx”
This...続きを読む

Aベストアンサー

転送処理前にマクロで転送先のシート保護を外して、転送後にマクロでシート保護をかければ実現します。
シート保護と解除をマクロの自動記録させればコードも大体わかると思います。

QRAIN(ピ)さんのファンレター住所を教えて下さい

最近新しい事務所を開かれたと聞きましたが、韓国の俳優&ミュージシャンである”RAIN(ピ)(チョン・ジフン)”さんのファンレターの新しい送り先住所をご存知の方、お教えください。よろしくお願いします。

Aベストアンサー

住所:ソウル市,江南区(カンナムグ),清潭洞(チョンダムドン)89-8,3階
郵便番号:135-101

Address: 89-8 Chungdam-Dong, 3rd Floor
Gangnam-gu, Seoul, Korea, 135-101

8月1日付けの記事ですので、最新版だと思います。
URL貼っておきますね!

参考URL:http://blog.livedoor.jp/arisa22_yuki25/?blog_id=1936747

Qエクセルでマクロを組み始めたばかりのため、皆様にご教授頂ければと思います。 今開いいるシートに転送

エクセルでマクロを組み始めたばかりのため、皆様にご教授頂ければと思います。

今開いいるシートに転送ボタンを作成します。このシートのセルC4からC27まで、もしくはC23までのデータ(言葉や数値など)を、ボタンを押して、Cドライブ共有フォルダ内のマクロというブック、様式1ならびに2の名前のシートにセルB9,C9,D9…といったように縦並びから横並びに変えて毎日までに転送しようと思います。(一括転送)
その際、転送先はシート保護をしておきたいのです。

Option Explicit
Private Sub CommandButton1_Click()
Call Macro1
End Sub

Sub Macro1()

Workbook.Open Filename:=”C:¥共有¥マクロ.xlsx”
ThisWorkbook.Activate
With Workbooks(”マクロ.xlsx”)

GYOU = .Sheets(”様式1”).Range(”A” & Rows.Count).End(xlUp).Row + 1
.Sheets(”様式1”).Range(”A” & GYOU & ”:AA” & GYOU + 1880).Value
=Sheets(”様式1”).Range(”A2:AA2000”).Value

GYOU = .Sheets(”様式2”).Range(”A” & Rows.Count).End(xlUp).Row + 1
.Sheets(”様式2”).Range(”A” & GYOU & ”:W” & GYOU + 1880).Value
=Sheets(”様式2”).Range(”A2:W2000”).Value

ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveWorkbook.Save
ActiveWindow.Close
Application.CutCopyMode =False

End Sub


この様なマクロを組んでみましたが、コンパイルエラーが出て、「変数が定義されていません」と表示されます。

どの様に修正すれば良いのでしょうか?お手数をおかけして申し訳ございませんが、よろしくお願いします。

エクセルでマクロを組み始めたばかりのため、皆様にご教授頂ければと思います。

今開いいるシートに転送ボタンを作成します。このシートのセルC4からC27まで、もしくはC23までのデータ(言葉や数値など)を、ボタンを押して、Cドライブ共有フォルダ内のマクロというブック、様式1ならびに2の名前のシートにセルB9,C9,D9…といったように縦並びから横並びに変えて毎日までに転送しようと思います。(一括転送)
その際、転送先はシート保護をしておきたいのです。

Option Explicit
Private Sub CommandButton1_Click()...続きを読む

Aベストアンサー

「Workbook.Open Filename:=”C:¥共有¥マクロ.xlsx”」は
「Workbooks.Open Filename:="C:\共有\マクロ.xlsx"」です。

「Sub Macro1()」の後に
「Dim GYOU As Long」も必要です。

シート保護を解除するため「ActiveSheet.Unprotect」も必要です。

Q72才の母が韓国スターのRainピさんの、大ファンなので、一度で良いの

72才の母が韓国スターのRainピさんの、大ファンなので、一度で良いので追っかけをさせてあけだいのですが、今、お泊まりのホテルすらわからず、何をなさってるのか、まったく知りません、どなたか詳しくおわかりの方がいたら教えてください

Aベストアンサー

RAINファンです。
お母さまがファンなのですね^^

RAINの追っかけをさせてあげたいということですが、RAIN自信がそのようなことを好きではないため、オススメは出来ません。
韓国のファンに対してRAINがよく言うことですが...「韓国のファンは僕の嫌がることをしないので助かります。」と。。。
このことを聞いてるので、日本のファンもできるだけ、そっと見守りましょうという動きになっています。

ちなみに、今、日本でドラマ撮影を行っていますが、撮影場所は、秘密になっています。
記事で都市名が書いてありましたが、実際に他の都市も行っているので、断定できないようです。

それと、本日7/17と明日7/18は”さいたまアリーナ”で、コンサートがあります。
チケットもぴあでまだ販売しているかも知れません。

もし、色々なRAIN情報をお知りになりたかったら、色々なファンブログがありますので、検索してみてくださいね。

最後に...いつまでもお元気で、RAINを応援し続けてください、とお伝え下さいね^^!

Qマクロについてどなたかご教授お願い致します。 全て同シートの作業です。 エクセルのセルコピーして値の

マクロについてどなたかご教授お願い致します。
全て同シートの作業です。
エクセルのセルコピーして値のみ貼り付けをするのですが、毎日貼り付けるセルが違うように設定したいのです。
C2が1日 D2が2日と毎日今日の日付に貼り付けたいです。マクロ記録ぐらいしか出来ない素人でございます。コピーする場所は毎回同じです。

Aベストアンサー

No3です。
すみません。セルのコピー&ペーストですね。
セルの値だけでなく、書式も含めてコピーされたいのなら、以下のようにしてください。
Option Explicit
Sub Macro1()
Dim colNo As Long
colNo = day(Date)
Range("A1").Copy
Cells(2, colNo).PasteSpecial (xlPasteAll)
Application.CutCopyMode = False
End Sub
コピー元はA1セルにしています。これは、あなたの環境に合わせてください。

Qピ(Rain)の太陽を避ける方法

ピ(Rain)の太陽を避ける方法のイントロからずっと流れているメロディなのですが、何の曲のサンプリングでしょうか?
80年代のA.O.Rっぽい洋楽のヒット曲と思うのですが。
ご存知の方よろしくお願いします。

Aベストアンサー

今晩は
映画レオンでもお馴染みのStingの「Shape Of My Heart」ではないでしょうか?
参考URLで試聴できますのでご確認下さい。

参考URL:http://www.hmv.co.jp/product/detail.asp?sku=1507525

Qエクセルでマクロを組み始めたばかりのため、皆様にご教授頂ければと思います。 今開いいるシートに転送

エクセルでマクロを組み始めたばかりのため、皆様にご教授頂ければと思います。

今開いいるシートに転送ボタンを作成します。このシートのセルC4からF24までデータ(言葉や数値など)を、ボタンを押して、Cドライブ共有フォルダ内のマクロというブック、様式名のシートにセルD7からG27までに転送しようと思います。
その際、転送先はシート保護をしておきたいのです。

Option Explicit
Private Sub Workbook_Open()
ActiveSheet.Unprotect
ActiveSheet.Protect User InterfaceOnly:=True
ActiveWindow.ScrollRow = 1
End Sub

Sub Macro1()

Workbook.Open Filename:=”C:¥共有¥マクロ.xlsm”
ThisWorkbook.Activate
With Workbooks(”マクロ.xlsm”)
Range(”C4:F24”).Select
Selection.Copy
Windows(”マクロ.xlsm”).Activate
Sheets(”様式”).Select
Range(”D7:G27”).Select

End With

End Sub


この様なマクロを組んでみました。転送ボタンを押して走るものの、転送元(C4からF24)で幾つかのデータを変更しても転送先のセルに変更は出来ていませんでした。

どの様に修正すれば良いのでしょうか?お手数をおかけして申し訳ございませんが、よろしくお願いします。

エクセルでマクロを組み始めたばかりのため、皆様にご教授頂ければと思います。

今開いいるシートに転送ボタンを作成します。このシートのセルC4からF24までデータ(言葉や数値など)を、ボタンを押して、Cドライブ共有フォルダ内のマクロというブック、様式名のシートにセルD7からG27までに転送しようと思います。
その際、転送先はシート保護をしておきたいのです。

Option Explicit
Private Sub Workbook_Open()
ActiveSheet.Unprotect
ActiveSheet.Protect User InterfaceOnly:=True
ActiveWindow.ScrollRow =...続きを読む

Aベストアンサー

「With …」がないのに「End With」が2か所ありますがこれはなんですか?

一応全部書きましたが、ファイル名の所を変えたものを列挙するだけですが…
-------------------------------------------------
標準モジュールに
-------------------------------------------------
Sub Macro1()

Workbooks.Open Filename:="C:\共有\マクロ.xlsm"
ActiveSheet.Unprotect
ThisWorkbook.Activate
Range("C4:F24").Select
Selection.Copy
Windows("マクロ.xlsm").Activate
Range("D7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveWorkbook.Save
ActiveWindow.Close
Application.CutCopyMode = False

Workbooks.Open Filename:="C:\共有\マクロ2.xlsm"
ActiveSheet.Unprotect
ThisWorkbook.Activate
Range("C4:F24").Select
Selection.Copy
Windows("マクロ2.xlsm").Activate
Range("D7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveWorkbook.Save
ActiveWindow.Close
Application.CutCopyMode = False

Workbooks.Open Filename:="C:\共有\マクロ3.xlsm"
ActiveSheet.Unprotect
ThisWorkbook.Activate
Range("C4:F24").Select
Selection.Copy
Windows("マクロ3.xlsm").Activate
Range("D7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveWorkbook.Save
ActiveWindow.Close
Application.CutCopyMode = False

End Sub
-------------------------------------------------

「With …」がないのに「End With」が2か所ありますがこれはなんですか?

一応全部書きましたが、ファイル名の所を変えたものを列挙するだけですが…
-------------------------------------------------
標準モジュールに
-------------------------------------------------
Sub Macro1()

Workbooks.Open Filename:="C:\共有\マクロ.xlsm"
ActiveSheet.Unprotect
ThisWorkbook.Activate
Range("C4:F24").Select
Selection.Copy
Windows("マクロ.xlsm").Activate
Range("D7").Select
ActiveSheet.Paste
...続きを読む


人気Q&Aランキング