? TYPE([CREATEOBJECT("wscript.Shell")]) = "O" && will return .T. if WSH is presented>You don't 've to perform any tests to run code below but it would generate an error if WSH isn't present on PC.
WshShell = CreateObject("WScript.Shell") >>strDesktop = WshShell.SpecialFolders("Desktop")>>