Question

如果计算机在星期三运行该脚本，我希望它在netwok映射中创建一个％computername * .txt文件。在批处理脚本中，我可以使用％computername％.txt，我可以将哪些代码用于VBS脚本？

Dim WshShell
Set WshShell = CreateObject("WScript.Shell")

If DatePart("W",Date) = 4 Then
    'Today is Wednesday, so run the virus scan
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFile = objFSO.CreateTextFile("\\server\Avast Scan Log\%COMPUTERNAME%.txt")
    WshShell.Run """C:\Program Files\Alwil Software\Avast4\aswcmd"" M: /m /*", , True
End If

Answer 1

>> WScript.Echo CreateObject("WScript.Shell").ExpandEnvironmentStrings("%COMPUTERNAME%")
>>
WINXPSP3
>> WScript.Echo CreateObject("WScript.Network").Computername
>>
WINXPSP3

Answer 2

使用WshNetwork对象获取建议的计算机名称。它看起来像这样。

Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
Set WshNetwork = CreateObject("WScript.Network")
strComputer = WshNetwork.ComputerName

If DatePart("W",Date) = 4 Then
    'Today is Wednesday, so run the virus scan
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFile = objFSO.CreateTextFile("\\server\Avast Scan Log\" & strComputer & ".txt")
    WshShell.Run """C:\Program Files\Alwil Software\Avast4\aswcmd"" M: /m /*", , True
End If

Computername写入txt文件（％computername％）

2 个答案: