VBS如何获取计算机名的最后一位数字并根据奇偶执行不同操作/程序

wenhongde

1. 2>nul set/a 1/(%computername:~-1%%%2) && start 奇数.exe || start 非奇数.exe

复制代码

根据计算机名最后一位分别执行2个程序，测试通过

能否把这句话转换成VBS？

czjt1234

1. Set objWsh = CreateObject("Wscript.Shell")
   
2. objWsh.Run "cmd.exe /c 2>nul set/a 1/(%computername:~-1%%%2) && start 奇数.exe || start 非奇数.exe", 0, True

复制代码

wenhongde

感谢帮助，测试通过

FOR

1. Randomize():a= int((99-1)*rnd()+1):b=a mod 2
   
2. if b=0 then
   
3.         msgbox(a&" 是偶数")
   
4. else
   
5.         msgbox(a&" 奇数")
   
6. end if
   

复制代码

pcl_test

1. Set ws = CreateObject("Wscript.Shell")
   
2. Set wmi = GetObject("winmgmts:\\.\root\cimv2")
   
3. Set Items = wmi.ExecQuery("Select * from Win32_ComputerSystem")
   
4. For Each Item in Items
   
5. n = Right(Item.Name, 1)
   
6. If IsNumeric(n) = True Then
   
7.     If n mod 2 =0 Then
   
8.         msgbox "ws.run 偶数.exe"
   
9.     Else
   
10.         msgbox "ws.run 奇数.exe"
    
11.     End If
    
12. Else
    
13.     msgbox Item.Name
    
14. End If
    
15. Next

复制代码