返回列表 发帖
pcl_test

Rank: 8Rank: 8

帖子
3040 
积分
5332 
技术
685  
捐助
0  
注册时间
2014-10-19 
1楼 跳转到 »
发表于 2016-7-21 21:36 | 显示全部帖子
本帖最后由 pcl_test 于 2016-7-22 01:13 编辑 
Set ws = CreateObject("Wscript.Shell")
Set wmi = GetObject("winmgmts:\\.\root\cimv2")
Set Items = wmi.ExecQuery("Select * from Win32_ComputerSystem")
For Each Item in Items
n = Right(Item.Name, 1)
If IsNumeric(n) = True Then
    If n mod 2 =0 Then
        msgbox "ws.run 偶数.exe"
    Else
        msgbox "ws.run 奇数.exe"
    End If
Else
    msgbox Item.Name
End If
NextCOPY

TOP

返回列表