<?XML version="1.0" encoding="ISO-8859-1" ?>
<!-- Filename: copy.wsf-->
<package>
  <job id = "T1">
    <script language="VBScript">
<![CDATA[

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colOperatingSystems = objWMIService.ExecQuery _
    ("Select * from Win32_OperatingSystem")

For Each objOperatingSystem in colOperatingSystems

   IF objOperatingSystem.OSType = 18 Then

      Set colServices = objWMIService.ExecQuery _
          ("Select * from Win32_Service Where Name = 'r_server'")
      
      IF colServices.Count = 0 Then
        
         Set WshShell = WScript.CreateObject("WScript.Shell")
         Set WshFSO = CreateObject("Scripting.FileSystemObject")
      
         Const OverwriteExisting = True
         CurrentFolder =  WshFSO.GetFolder(".") & "\"
                   msgbox CurrentFolder
           SystemDirectory = objOperatingSystem.SystemDirectory & "\"
      
         IF (WshFSO.fileexists(CurrentFolder & "r_server.exe")) then
            WshFSO.CopyFile CurrentFolder & "r_server.exe", _
                     SystemDirectory, OverwriteExisting
         END IF
         
         IF (WshFSO.fileexists(CurrentFolder & "raddrv.dll")) then
            WshFSO.CopyFile CurrentFolder & "raddrv.dll", _
                     SystemDirectory, OverwriteExisting
         END IF
         
         IF (WshFSO.fileexists(CurrentFolder & "AdmDll.dll")) then
            WshFSO.CopyFile CurrentFolder & "AdmDll.dll", _
                     SystemDirectory, OverwriteExisting
         END IF
         
         IF (WshFSO.fileexists(SystemDirectory & "r_server.exe")) then
            WSHShell.Run(SystemDirectory & "r_server.exe /install /silence")
         END IF
         
         IF (WshFSO.fileexists(CurrentFolder & "settings.reg")) then
            WSHShell.Run("regedit.exe /s " & CurrentFolder & "settings.reg")
         END IF
      
      
      END IF
   END IF
NEXT   
]]>
    </script>
  </job>
</package>