[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

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

本帖最后由 pcl_test 于 2016-7-21 21:18 编辑
  1. 2>nul set/a 1/(%computername:~-1%%%2) && start 奇数.exe || start 非奇数.exe
复制代码
根据计算机名最后一位分别执行2个程序,测试通过

能否把这句话转换成VBS?

本帖最后由 pcl_test 于 2016-7-22 01:13 编辑
  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
复制代码

TOP

  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
复制代码

TOP

感谢帮助,测试通过

TOP

  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
复制代码

QQ 20147578

TOP

返回列表