stantheman

Many thanks for the detailed reply. That makes a lot of sense now. Thanks for the clarification.

I am new to Office 365 and have purchased a license that covers up to 5 devices under a single email address ([email protected]). I downloaded the setup.exe from the supplier and registered my Microsoft 365 account. I have a standalone PC used by a single user. I logged into the machine as the local administrator and installed the Office products. When I launched Word, it prompted me to activate the license. I signed in with my credentials, and it confirmed that Office is now activated. My question is: when the end user (a standard user) logs into the same machine and opens Word, they are prompted to activate the license again. If they enter the same credentials as I used, does this count as a second activation, thereby reducing the total available activations from 5? I was under the impression that once Office is activated by an administrator, other users on the same machine should be able to use Office without requiring additional activation. Additionally, going forward, if I want to deactivate or transfer the license, do I need to log in as the administrator, open an Office application, and sign out to free up an activation? How exactly does deactivation work in this scenario? What happens when I try and install Office on a 6th machine or I have a HDD failure? Or, alternatively, should I just get the end user to sign in and I (admin) install Office (by right-clicking and choosing 'Run as administrator') instead of installing and activating the license using the local admin account? Finally, is there a report or tool that shows which devices the license has been installed on? Can I remove or deactivate the license from specific devices if needed? Apologies, I am quite new to M365 and appreciate any guidance. I have seen images of (portal.office.com but wouldn't know where to start!)

I am after a batch program or a Powershell script that runs from variables from a user input screen. Basically a user has a folder of work and needs to copy this to a folder (that changes each week so not always the same hence the asking of Source and Destination) for a backup. From the supplied batch code I have so far got the user to input the source and the destination and it copies this to the destination and works. My question is can this be run a scheduled task after the use has entered the information in? At the moment the user enters the source and destination in and it will backup at that time. Due to network activity and the computer it's running from, I wish to have this run at a later time/date when the network is less busy. Is it possible for someone to enter in the source and destination and then these variables are then written to a text file to hold the paths and then another batch or Powershell then does the copy of the folder and reads from the textfile the source and destination it needs to copy to and from? Hope this makes sense? Batchfile @echo off ::Ask echo Enter Source Directory to copy : set SRC= set /P SRC=Type input: %=% echo Enter Destination Directory to paste : set DEST= set /P DEST=Type input: %=% xcopy /s /e /y %SRC% %DEST%

Thanks for the help on this. I have managed to find another way of doing this so but I will look into PowerShell for future tasks.

HPlum78 - Not really it can be anything really. I just found the code and thought can it be changed to fit my needs. If it can be 5 lines of code that is even better. Are you able to share on what the lines will be? New to PowerShell but keen to see it work.

jb2201 - thanks for the reply. The bad news is that I've not used PowerShell all that much so wouldn't know where to start. Are you able to share the basic that I require? Don't require health of the hard drive just the total, used and remaining and % remaining with a red colour if less than 10% free space? It will be just local hard drives that are connected via SATA. It does sound great if it can be html format thinking about it.

The following code (taken from http://www.wisesoft.co.uk/scripts/vbscript_disk_sp...) displays a dialog window with the results of space of hard drives. Is it possible from this code to make the end column of the dialog window (not the textfile as I know that can't be done) that shows (Free(%)) to be bold or the colour red if the % is below 10% for example? That way you can see visually and quickly that this hard drive is going to be low on space soon? I hope this can be done but I don't know enough about VBS and formatting when dialog windows are displayed. Option Explicit const strComputer = "." const strReport = "c:\diskspace.txt" Dim objWMIService, objItem, colItems Dim strDriveType, strDiskSize, txt Set objWMIService = GetObject("winmgmts:" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_LogicalDisk WHERE DriveType=3") txt = "Drive" & vbtab & "Size" & vbtab & "Used" & vbtab & "Free" & vbtab & "Free(%)" & vbcrlf For Each objItem in colItems DIM pctFreeSpace,strFreeSpace,strusedSpace pctFreeSpace = INT((objItem.FreeSpace / objItem.Size) * 1000)/10 strDiskSize = Int(objItem.Size /1073741824) & "Gb" strFreeSpace = Int(objItem.FreeSpace /1073741824) & "Gb" strUsedSpace = Int((objItem.Size-objItem.FreeSpace)/1073741824) & "Gb" txt = txt & objItem.Name & vbtab & strDiskSize & vbtab & strUsedSpace & vbTab & strFreeSpace & vbtab & pctFreeSpace & vbcrlf Next writeTextFile txt, strReport wscript.echo "Report written to " & strReport & vbcrlf & vbcrlf & txt ' Procedure to write output to a text file private sub writeTextFile(byval txt,byval strTextFilePath) Dim objFSO,objTextFile set objFSO = createobject("Scripting.FileSystemObject") set objTextFile = objFSO.CreateTextFile(strTextFilePath) objTextFile.Write(txt) objTextFile.Close SET objTextFile = nothing end sub

I would like the below VBS to write to a text file called backuplog_) to a given folder (as a log) the start date/time and the end date/time the process took and show what was copied? Is this possible? In other words, I would like a textfile called backuplog_ and inside that lines showing C: Volume backup Backup Starting at hh:mm:ss Copying Volume_1 folders c:\mydocs\Data\pic1.png c:\mydocs\Data\pic2.jpg etc of each directory and file copied across then at the end of the file and to show the script has finished C: Volume backup Backup Starting at hh:mm:ss I just would like to know how long the process took to backup and a start and end date/time is OK for my needs. Also if it's just possible to show hours and minutes and not seconds that is OK. Here is the code: ----------------------------------------------------------- Option Explicit On Error Resume Next ' Change the following lines Dim sSrcFolder : sSrcFolder = "C:\Data" ' Change Me Dim sDstFolder : sDstFolder = "E:\DataBackup" ' Change Me '======================================= ' Do not change anything after this line Dim DTM : DTM = Now() ' Set date variables Dim Y, M, D, sToday Y = Year(DTM) M = Right("0" & Month(DTM),2) D = Right("0" & Day(DTM),2) sToday = D & "_" & M & "_" & Y ' Set time variables Dim H, N, S, sTime H = Hour(DTM) N = Right("0" & Minute(DTM),2) S = Right("0" & Second(DTM),2) sTime = H & "_" & N & "_" & S ' Create objects Dim oProc Dim oFSO : Set oFSO = CreateObject("Scripting.FileSystemObject") Dim oShell : Set oShell = WScript.CreateObject("WScript.Shell") Sub Main() sDstFolder = sDstFolder & sToday ' Updated the destination folder ' First check if folders exists and create if they dont exist If oFSO.FolderExists(sDstFolder) Then If not oFSO.FolderExists(sTime) Then 'oFSO.CreateFolder(sTime) End If Else ' Create the destination directory if it doesn't exist If Not oFSO.FolderExists(sDstFolder) Then BuildFullPath sDstFolder ' Copy data If oFSO.FolderExists(sSrcFolder) Then oFSO.CopyFolder sSrcFolder & "*", sDstFolder, True If Err.Number <> 0 Then ErrorHandler End If ' Clean up If oFSO.FileExists(sFile) Then oFSO.DeleteFile sFile, True Set oFSO = Nothing Set oShell = Nothing Set oProc = Nothing End Sub Sub BuildFullPath(ByVal FullPath) If Not oFSO.FolderExists(FullPath) Then BuildFullPath oFSO.GetParentFolderName(FullPath) oFSO.CreateFolder FullPath If Err.Number <> 0 Then ErrorHandler End If End Sub Main()