Vbscript 发送'；魔术包'；使用.vbs
我是日本的一名服务人员，虽然我一直在为自己的项目学习Python，但现在我需要编写VBScript，将“神奇数据包”广播到呼叫中心的200多台PC上 有人能告诉我如何实现这个目标，或者简单地教我代码吗 例如，我们公司的法规不允许我下载任何免费软件，但不知何故，如果我能打开它，用.txt复制源代码，并将其带到公司就可以了 或者。。。我在下面找到了一些VB6脚本，我相信这正是我所需要的，所以也许有人可以把它翻译成VBSVbscript 发送'；魔术包'；使用.vbs,vbscript,Vbscript,我是日本的一名服务人员，虽然我一直在为自己的项目学习Python，但现在我需要编写VBScript，将“神奇数据包”广播到呼叫中心的200多台PC上 有人能告诉我如何实现这个目标，或者简单地教我代码吗 例如，我们公司的法规不允许我下载任何免费软件，但不知何故，如果我能打开它，用.txt复制源代码，并将其带到公司就可以了 或者。。。我在下面找到了一些VB6脚本，我相信这正是我所需要的，所以也许有人可以把它翻译成VBS Dim strIP As String = "192.168.1.1" 'IPア
Dim strIP As String = "192.168.1.1" 'IPアドレス
Dim strMAC As String = "00-00-00-00-00-00" 'マックアドレス
'送信データを作成
Dim intCounter As Integer = 0
Dim sendBytes(0 To 101) As Byte
'最初に&hFFを6個付ける
For I = 1 To 6
sendBytes(intCounter) = &HFF
intCounter += 1
Next
'MACアドレスを16回繰り返す
For I = 1 To 16
'MACアドレス読込み
For J = 0 To 5
'16進数を変換して読込み
sendBytes(intCounter) = Byte.Parse(strMAC.Substring(J * 3, 2), Globalization.NumberStyles.HexNumber)
intCounter += 1
Next
Next
'データを送信するポート番号
Dim RemotePort As Integer = 2304 '何でも良い
'送信先IP指定（ブロードキャストとピンポイントの両方に送信してみる）
Dim BCIP As System.Net.IPAddress
Dim EP As System.Net.IPEndPoint
Dim UDP As New System.Net.Sockets.UdpClient'UDP接続
'ブロードキャストアドレス指定で送信するとき
BCIP = System.Net.IPAddress.Parse("255.255.255.255")
EP = New System.Net.IPEndPoint(BCIP, RemotePort)
'送信先を指定してデータを送信する
UDP.Send(sendBytes, sendBytes.Length, EP)
'ピンポイントのIPアドレス指定して送信するとき
BCIP = System.Net.IPAddress.Parse(strIP)
EP = New System.Net.IPEndPoint(BCIP, RemotePort)
'送信先を指定してデータを送信する
UDP.Send(sendBytes, sendBytes.Length, EP)
'UDP接続を終了
udp.Close()
我知道这种愚蠢的开放式问题会激怒一些中级技术人员，所以如果您对此感到不舒服，请忽略我。您拥有的代码是VB.NET，而不是VB6或VBScript。VBScript没有内置的套接字支持，Windows也没有用于处理套接字的COM库，但是可以使用第三方库（例如，从Chilkat）： 如果您是系统管理员，那么最好使用PowerShell：
下面是您想要的示例（发送魔法包）：您拥有的代码是VB.NET，而不是VB6或VBScript。VBScript没有内置的套接字支持，Windows也没有用于处理套接字的COM库，但是可以使用第三方库（例如，从Chilkat）： 如果您是系统管理员，那么最好使用PowerShell：
以下是您想要的示例（发送魔法包）：谢谢！尽管PowerShell并非例外，但我不能在办公室使用。@HiroGotanda另一种方法是使用
WScript.ShellWScript.Shell