-2

でフォルダを探すためにこのスクリプトが必要です

c：\ windows \ system32\foldername。

このフォルダが存在する場合は、スクリプトを停止します。フォルダが存在しない場合は、スクリプトでサーバーから.exeファイルを実行して、ソフトウェアをインストールします。すなわち

\ servername \ folder\software.exe。

c：\ windows \ system32 \ foldernameのフォルダーにファイルがありますが、フォルダーの内容ではなく、フォルダーを確認するだけです。

何か提案をお願いします。

4

1 に答える 1

4

次のスクリプトを試すことができます

Option Explicit

Private Const Folder As String = "c:\windows\system32\foldername"
Private Const FileToRun As String = "\\servername\folder\software.exe"

Sub Run(ByVal sFile)
    Dim shell
    Set shell = CreateObject("WScript.Shell")
    shell.Run Chr(34) & sFile & Chr(34), 1, False
    Set shell = Nothing
End Sub

Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")

If Not fs.FolderExists(Folder) Then
   Run FileToRun
End If
于 2012-08-13T09:30:34.743 に答える